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
