Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Element in dieser Auflistung nicht gefunden ? Ohne FehlerCode ??
Autor: myVB
Datum: 10.02.16 23:09
Der Folgende Code funktioniert Prima... Public Sub DB_SENDUNG_Inizieren() sPath = App.Path & "\PaketInfo.mdb" Set daoDB36 = DBEngine.OpenDatabase(sPath) Set rs = daoDB36.OpenRecordset("1PaketInfo") Set Data1.Recordset = rs txtPaketNr.DataField = "txtPaketNr" 'Field-Name txtPaketDate.DataField = "txtPaketDate" txtRealName.DataField = "txtRealName" 'Field-Name txtinhalt.DataField = "txtinhalt" 'Field-Name txtID2.DataField = "txtID2" 'Field-Name txtID.DataField = "txtID" 'Field-Name txtEbayNick.DataField = "txtEbayNick" txtSendeNum.DataField = "txtF_AN" txtNotizNum.DataField = "Notiz" chkSS(0).DataField = "S0" '"AufDemRückWeg" chkSS(1).DataField = "S1" '"Defekt" chkSS(2).DataField = "S2" '"FalschLieferung" chkSS(3).DataField = "S3" '"UnzufriedenerKunde" chkSS(4).DataField = "S4" '"FalscheFarbeArt" chkSS(5).DataField = "S5" '"WillGeldZurück" chkSS(6).DataField = "S6" '"HatGeldZurück" chkSS(7).DataField = "S7" '"WillErsatz" chkSS(8).DataField = "S8" '"HatErsatz" chkSS(9).DataField = "S9" '"Sonstiges1" chkSS(10).DataField = "S10" '"PaketVerloren" chkSS(11).DataField = "S11" '"FERTIG" txtF_AN.DataField = "txtSendeNum" 'Image2.DataField = "ArtikelBild" ' ###############>>> Diese Zeile verusat den Fehler wenn ich es mit drin habe End Sub '--------------------------------------------- Public Sub SCHICKEN_AKTUELL() On Error GoTo ErrorHandling 'On Error Resume Next LOADING = True Data1.Refresh For I = 0 To 5 lst_DB(5).Clear Next I Data1.Recordset.MoveLast ListPKT_Clear Data1.Recordset.MoveLast Do While Not Data1.Recordset.BOF '+ 1 Select Case txtID2 Case "" txtID2 = txtID End Select lst_DB(0).AddItem txtPaketNr lst_DB(1).AddItem txtPaketDate lst_DB(2).AddItem txtEbayNick lst_DB(3).AddItem txtRealName lst_DB(4).AddItem txtSendeNum lst_DB(5).AddItem txtID Data1.Recordset.MovePrevious Loop LOADING = False Label1(0).Caption = "Paket-Nummer " & lst_DB(0).ListCount '- 1 End Sub Die Zeile Image2.DataField = "ArtikelBild" lääst den Fehler " Element in dieser Auflistung nicht gefunden erscheinen. In meiner DB gibt es auch diese Spalte mit dem namen ArtikelBild als OleObjekt. BEim Programmstart läuft es ohne Fehlermeldung, aber wenn ich die Routine SCHICKEN_AKTUELL erneut aufrufe erscheint der Fehler ? Hatt jemand eie Idee Tip, bin am verzweifeln. Dankeeeee Man kann nicht immer gewinnen... Manschmal verliert man... Manschmal gewinnen halt die anderen !

Element in dieser Auflistung nicht gefunden ? Ohne FehlerCod...

2.620

myVB

10.02.16 23:09

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übersicht

Suchen