Schreibe meine Prozetur von Access 2000 auf 2007 um. Ausgerechnet
dieser Sub(), um Datumswerte in alle Felder mit den Namen: "Kontrolle_4" einzuschreiben Funktioniert bei Access 2000 1a aber nich bei Access 2007
Bitte sieht hier jemand einen 2007er Hund versteckt?
Dim Datum As New ADODB.Recordset
Dim StrAntwort As String
Dim LngAktDatum As Long
If Kontrolle_4 > 1 Then
MsgBox "Kontrolleintrag am 4.Abschnitt bereits vorhanden. Das Kontrolldatum wird bei Eintrag überschrieben", vbInformation, "Achtung"
End If
DoCmd.GoToRecord , , acFirst
Do
StrAntwort = InputBox("Bitte geben Sie das Kontroll Datum ein Eingabe: (00.00.0000) ", "Eingabe des Kontroll-Datum Abschnitt 4")
' Wurde Abbrechen gedrückt oder keine Eingabe gemacht, den Vorgang abbrechen
If StrAntwort = "" Then
Exit Sub
End If
If Not IsNumeric(StrAntwort) Then
MsgBox "Bitte geben Sie nur Zahlenwerte als Startnummer an.", vbExclamation
End If
Loop Until IsNumeric(StrAntwort)
Datum.Open "SELECT * FROM Z_Baumdaten", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
LngAktDatum = CLng(StrAntwort)
Do Until Datum.EOF
Datum!Kontrolle_4 = LngAktDatum
Datum!K_Text_4 = A
Datum.Update
LngAktDatum = LngAktDatum
Datum.MoveNext
Loop
verlassen:
End Sub
Vielen Dank für einen Hinweis
Grüße Gertrude
