vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Done. 
Autor: youngmann
Datum: 20.06.02 21:11
Du hast am anfang das geschrieben:

Private Sub List1_Click()
Dim SQL As String
Dim o As Control
Dim Fld As Field

If List1.ListIndex < 0 Then Exit Sub
ClearFields
SQL = "SELECT * From Einstellungen Where [Server Name] = '" & List1.List(List1.ListIndex) & "'"
Set Rs = DB.OpenRecordset(SQL, dbOpenDynaset)
If Not Rs.EOF Then
For Each o In Form1.Controls
For Each Fld In Rs.Fields
If Fld.Name = o.Tag Then
o.Text = Fld.Value
End If
Next
Next
End If
End Sub

und dan zum verbessern das:

Private Sub List1_Click()
Dim SQL As String
Dim o As Control
Dim Fld As Field

If List1.ListIndex "" Then o.Text = ""
Next
End Sub

wo muss ich das einfühgen?
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Datenbank83youngmann20.06.02 17:59
Re: Datenbank250unbekannt20.06.02 18:07
Re: Datenbank53youngmann20.06.02 18:19
Re: Datenbank258unbekannt20.06.02 18:32
Re: Datenbank238unbekannt20.06.02 18:34
Re: Datenbank50youngmann20.06.02 18:39
Thx, wait a Moment ... please261unbekannt20.06.02 18:40
Ach ja ... kleine Korrektur242unbekannt20.06.02 18:45
Done.264unbekannt20.06.02 18:52
Erklärung:252unbekannt20.06.02 18:53
12 Minuten ... naja .... war schon mal schneller 254unbekannt20.06.02 18:57
Grrr ... schon wieder vergessen ...258unbekannt20.06.02 19:14
Re: Done.47youngmann20.06.02 20:04
Re: Done.242unbekannt20.06.02 20:10
Re: Done.42youngmann20.06.02 20:13
Re: Done.44youngmann20.06.02 20:15
Re: Done.41youngmann20.06.02 21:11
Re: Done.240unbekannt20.06.02 21:24
Re: Done.37youngmann20.06.02 21:29
Re: Done.41youngmann20.06.02 21:34
Re: Done.39youngmann21.06.02 09:12

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel