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
