Ich hab eine User-form in einem Excel-Sheet.
Auf der User-Form befindet sich eine Dropdowm Combo.
Im Code öffne ich ein Recordset, das mir auf eine A00 Tabelle
zugriff gewährt.
wieso funktioniert es nicht, wenn ich sage:
recordsetname.MoveFirst
strresultat=recordsetname.findnext _("gesuchtesfeld, idfeld'" & (i + 1) & "'") ??
es sollte in einer Loop drin sein und jedes mal wenn ein eintrag
vorhanden ist, sollte er per additem zur combo hinzugefügt werden.
wenn nicht wird eins hochgezählt und wieder eine entsprechung
gesucht und so weiter...
hier ein codefragment:
i = 0
i = i + 1
Rec_Reseller.MoveFirst
ResellerName = Rec_Reseller.FindNext("CName, Reseller_ID = '" & i & "'")
If Rec_Reseller.NoMatch Then
Else
Cmb_Reseller.AddItem ResellerName
End If
Do Until Rec_Reseller.LastModified
i = i + 1
ResellerName = Rec_Reseller.FindNext("CName, Reseller_ID = '" & i & "'")
If Rec_Reseller.NoMatch Then
Rec_Reseller.FindNext ("CName, Reseller_ID = '" & (i + 1) & "'")
Else
Cmb_Reseller.AddItem ResellerName
End If
Loop
kann man das so in der art machen?
ich habe nun das problem, dass er auf einmal die funktion
FindNext nicht mehr als funktion anerkennt:
Fehler beim Kompilieren:
Function oder Variable erwartet
(was soll das???)
bitte um hilfe
Danke!
mfg Chris