| |
Visual-Basic EinsteigerProblem !!! Datensätz über Listbox editieren excel 2003 | | | Autor: kingkoma | Datum: 06.11.12 11:02 |
| Hallo Leute,
ich habe ein problem mit meiner lisbox... Ich habe eine Kundendatenbank die in einer Listbox angezeigt wird. Ich möchte nun Datensätze über doppelklick editieren. Dies funktioniert auch teilweise. Wenn ich einen datensatz anklicke öffnet sich eine neue Userform mit verschiedenen Textboxen. Der Datensatz wird aber erst nach 2 x Doppelklicken eingelesen. Wenn ich einmal Doppelklicke kommt entweder nichts oder der falsche Datensatz. Kann mir jmd helfern... hier mein code
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Kundendatenbearbeiten.Show
For intindex = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(intindex) = True Then
Kundendatenbearbeiten.TextBox1.Value = ListBox1.List(intindex, 0)
Kundendatenbearbeiten.TextBox2.Value = ListBox1.List(intindex, 4)
Kundendatenbearbeiten.TextBox3.Value = ListBox1.List(intindex, 5)
Kundendatenbearbeiten.TextBox4.Value = ListBox1.List(intindex, 1)
Kundendatenbearbeiten.TextBox5.Value = ListBox1.List(intindex, 2)
Kundendatenbearbeiten.TextBox6.Value = ListBox1.List(intindex, 6)
Kundendatenbearbeiten.TextBox7.Value = ListBox1.List(intindex, 7)
Kundendatenbearbeiten.TextBox8.Value = ListBox1.List(intindex, 9)
Kundendatenbearbeiten.TextBox9.Value = ListBox1.List(intindex, 8)
Kundendatenbearbeiten.TextBox10.Value = ListBox1.List(intindex, 10)
Kundendatenbearbeiten.TextBox11.Value = ListBox1.List(intindex, 11)
Kundendatenbearbeiten.TextBox12.Value = ListBox1.List(intindex, 12)
Kundendatenbearbeiten.TextBox13.Value = ListBox1.List(intindex, 13)
Kundendatenbearbeiten.TextBox14.Value = ListBox1.List(intindex, 14)
Kundendatenbearbeiten.TextBox15.Value = ListBox1.List(intindex, 15)
Kundendatenbearbeiten.ComboBox1.Value = ListBox1.List(intindex, 3)
Kundendatenbearbeiten.ComboBox2.Value = ListBox1.List(intindex, 16)
End If
Next intindex
End Sub Vielen Dank | |
Re: Problem !!! Datensätz über Listbox editieren excel 2003 | | | Autor: Zardoz | Datum: 06.11.12 14:52 |
| Hallo kingkoma,
probier's mal so:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Load Kundendatenbearbeiten
For intindex = 0 To ListBox1.ListCount - 1
' Daten eintragen
' ...
Next intindex
Kundendatenbearbeiten.Show
End Sub Gruss,
Zardoz | |
Re: Problem !!! Datensätz über Listbox editieren excel 2003 | | | Autor: kingkoma | Datum: 06.11.12 18:37 |
| oh mann,
zu einfach
ich dank dir für die schnelle antwort, funktioniert einwandfrei
gruß king | |
| 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 |
|
|
Neu! sevDTA 3.0 Pro
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 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
|
|