Supportnet / Forum / Datenbanken
Füllen List mit Einträgen aus Tabelle
Frage
ich habe folgendes Problem.
ich muss für meinen beleg ein recherche programm beruhend auf nur einer tabelle programmieren.
das formular besteht aus 1 listenfeld(Liste36) und 1 textfeld(text56).
das listenfeld soll sich bei aufruf des formulares automatisch mit daten aus den zeilen einer Spalte[bulu] füllen und zwar das keine Dopplungen auftreten.
ich habe das mit datensatzherkunft etc probiert mit select distinct dennoch werden doppelte einträge ausgegeben.
das 1. mein erstes problem.
das 2. ist die gezielte ausgabe im textfeld nach klick auf einem listeneintrag.
wäre dies wie folgt möglich:
Private Sub Liste36_Click()
If VarType(tabelle) = vbEmpty Then
Set tabelle = New ADODB.Recordset
tabelle.Open "Personal", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
End If
tabelle.MoveFirst
tabelle.Find "[BULU] Like ´*" & Me!Liste36 & "*´"
If tabelle.EOF Then
MsgBox "Kein Suchergebnis!", vbOKOnly
Else
x = ""
Do While Not tabelle.EOF
x = x & tabelle!NN & "_" & tabelle!VN & "_" & tabelle!GEBD
tabelle.MoveNext
tabelle.Find "[BULU] Like ´*" & BULASU!Liste36 & "*´"
Loop
Me!Text51 = x
End If
End Sub
ich hänge nun schon unstunden über diesen beleg. das ist echt frustierend. bitte helft mir
Antwort 1 von frust
die Listeneinträge sind bundesländer aus der tabelle "Personal" , die spaltenbezeichnung ist "BULU" unter der sie für jeden mitarbeiter gelistet werden.
sozusagen
personal!bulu
sozusagen
personal!bulu
Antwort 2 von frust
hab mein 1. problem gelöst es hängt ur noch am 2., so wie es dort jetzt da steht funktioniert es nicht
Ich möchte kostenlos eine Frage an die Mitglieder stellen:
Ähnliche Themen:
- Tabelle Mischen:
- Auswertung mit SQL und ACCESS-Datenbank! Aber wie??
- mehrere Combobox gleichzeitig mit dem selben füllen
- Wie kann ich eine Primary slave in eine Primary master ändern???
- Kann man eine Zelle über die Wenn-Funktion mit einer Farbe füllen?? Bedingte Formatierung geht leider nicht, weil der Bezug in einer anderen Tabelle l

