Supportnet Computer
Planet of Tech

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

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