Schlingel
Registered User.
- Local time
- Today, 06:20
- Joined
- Oct 26, 2006
- Messages
- 32
Hi, Could u please help me and tell me why the following code doesn't work:
Private Sub bflEntschuldigung_Click()
On Error GoTo Err_bflEntschuldigung_Click
Dim i As Integer
Set db = CurrentDb
'Set rst = db.OpenRecordset("Entschuldigung")
Set rst = Me.Recordset
'rst.MoveLast
'rst!Datum = Forms!Entschuldigung!Date
For i = 1 To 8
rst.Open "Entschuldigung"
rst!Datum = Forms!Entschuldigung!Datum
rst!Stunde = i
rst!Tag = Format(rst!Datum, "dddd")
rst!Modul = "Entschuldigt"
rst![Inhalt, Komentar] = "Entschuldigt"
rst!KW = Format(rst!Datum, "WW")
rst.Update
Next
Exit_bflEntschuldigung_Click:
Exit Sub
Err_bflEntschuldigung_Click:
MsgBox Err.Description
Resume Exit_bflEntschuldigung_Click
End Sub
Thanks in advance
Private Sub bflEntschuldigung_Click()
On Error GoTo Err_bflEntschuldigung_Click
Dim i As Integer
Set db = CurrentDb
'Set rst = db.OpenRecordset("Entschuldigung")
Set rst = Me.Recordset
'rst.MoveLast
'rst!Datum = Forms!Entschuldigung!Date
For i = 1 To 8
rst.Open "Entschuldigung"
rst!Datum = Forms!Entschuldigung!Datum
rst!Stunde = i
rst!Tag = Format(rst!Datum, "dddd")
rst!Modul = "Entschuldigt"
rst![Inhalt, Komentar] = "Entschuldigt"
rst!KW = Format(rst!Datum, "WW")
rst.Update
Next
Exit_bflEntschuldigung_Click:
Exit Sub
Err_bflEntschuldigung_Click:
MsgBox Err.Description
Resume Exit_bflEntschuldigung_Click
End Sub
Thanks in advance