Also gut; jetzt gehen wir das systematisch an. Entferne das >On Error GoTo Err_btn_Menuepunkt_speichern_Click (Auskommentieren)
Nun siehst du, auf welcher Zeile der Fehler Passiert. Gruss Christian Thuer > -----Original Message----- > From: Arkor Randor [mailto:[EMAIL PROTECTED]] > Sent: Mittwoch, 24. April 2002 17:05 > To: AspGerman Kaffeehaus > Subject: [aspdecoffeehouse] RE: OT: "Kleines" Access-Problem - Besteht > immer noch. :( > > > Niemand 'ne Idee? Ich find den Fehler nicht... :( > > ----- Original Message ----- > From: "Arkor Randor" <[EMAIL PROTECTED]> > To: "AspGerman Kaffeehaus" <[EMAIL PROTECTED]> > Sent: Wednesday, April 24, 2002 2:44 PM > Subject: [aspdecoffeehouse] RE: OT: "Kleines" Access-Problem > - Besteht immer > noch. :( > > > > Hi Leute, > > > > hab mal nach Christians Tips ADO, etc. eingef�gt und dann > in dem VBScript > > Editor folgendes eingetippelt: > > > > Private Sub btn_Menuepunkt_speichern_Click() > > On Error GoTo Err_btn_Menuepunkt_speichern_Click > > > > Dim strSQL, Sichtbar, M_ID > > > > ' Datensatz einf�gen > > Set rsNew = CreateObject("ADODB.Recordset") > > rsNew.CursorLocation = adUseClient > > If Me.Standardeinstellung_Sichtbar = True Then > > Sichtbar = "Sichtbar" > > Else > > Sichtbar = "Unsichtbar" > > End If > > strSQL = "INSERT INTO tblMenue (Menue_Titel, Menue_Beschreibung, > > Menue_Link, Standardeinstellung_Sichtbarkeit) VALUES ('" & > Me.Menue_Titel > & > > "','" & Me.Menue_Beschreibung & "','" & Me.Menue_Link & > "','" & Sichtbar & > > "')" > > rsNew.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, > > adLockOptimistic > > Set rsNew = Nothing > > > > ' ID des neuen Datensatzes auslesen > > Set rsSelect = CreateObject("ADODB.Recordset") > > rsSelect.CursorLocation = adUseClient > > strSQL = "SELECT Menue_ID from tblMenue WHERE Menue_Titel = '" & > > Me.Menue_Titel & "'" > > rsSelect.Open strSQL, CurrentProject.Connection, > adOpenForwardOnly, > > adLockOptimistic > > M_ID = rsSelect.Fields("Menue_ID").Value > > Set rsSelect = Nothing > > > > ' Tabelle vermieteter_Webspace �ffnen > > Set rsSelect2 = CreateObject("ADODB.Recordset") > > rsSelect2.CursorLocation = adUseClient > > strSQL = "SELECT Kundennummer,Webnummer from > vermieteter_Webspace" > > rsSelect2.Open strSQL, CurrentProject.Connection, > adOpenForwardOnly, > > adLockOptimistic > > ' Tabelle tblKundenmenue aktualisieren > > While Not rsSelect.EOF > > Set rsInsert = CreateObject("ADODB.Recordset") > > rsInsert.CursorLocation = adUseClient > > strSQL = "INSERT INTO tblKundenmenue > > (Webnummer,Menue_ID,Menue_sichtbar) VALUES ('" & > > rsSelect2.Fields("Webnummer").Value & "'," & M_ID & "','" & > Sichtbar & > "')" > > rsInsert.Open strSQL, CurrentProject.Connection, > adOpenForwardOnly, > > adLockOptimistic > > Set rsInsert = Nothing > > rsSelect.MoveNext > > Wend > > rsSelect2.Close > > Set rsSelect2 = Nothing > > > > DoCmd.Close > > > > Exit_btn_Menuepunkt_speichern_Click: > > Exit Sub > > > > Err_btn_Menuepunkt_speichern_Click: > > MsgBox Err.Description > > Resume Exit_btn_Menuepunkt_speichern_Click > > > > End Sub > > > > Jetzt bekomme ich eine Fehlermeldung "Objektvariable oder > With-Blockvariable > > nicht festgelegt" wenn ich auf den Button klicke. Sind aber > alle Felder > > ausgef�llt! Und von Access krieg ich auch nicht gesagt, wo > sich der Fehler > > genau befindet bzw. welche Variable nicht festgelegt ist. :( > > > > Was ist an meinem Code falsch?! *verwirrt sei* Seh ich den > Wald vor lauter > > B�umen nicht?? > > > > Gru�, > > > > Arkor, http://www.drhirn.com/20 > > > > > > | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed > > | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv > > | Sie k�nnen sich unter folgender URL an- und abmelden: > > | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp > | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp | [aspdecoffeehouse] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
