Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Datenbanken
Datenbanken
Fragevon Gertrude vom 25.06.2022, 17:01 Options
Code am Access 2000 Funktuoniert nicht auf Access 2007
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
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
Antwort 1 von Marie vom 25.06.2022, 23:18 Options
nö, müsste alles funktionieren, lass doch mal im Einzelschritt laufen und schau in welcher Zeile welche Fehlermeldung kommt.
Gruß Marie
Gruß Marie
Antwort 2 von RaHi vom 26.06.2022, 18:58 OptionsLösung
Hallo Gertrude,
warum benutzt du Long statt date?
Damit könntest du auch 31.31.2010 eingeben und das macht erst bein schreiben in die Tabelle "bumm". Ich kann mir vorstellen, dass Access 2007 das nicht mag.Also ersetze
und
in deinem Code.
Ansonsten, wie Marie schon schrieb, wäre die Zeile, wo der Fehler auftritt nicht schlecht. Welchen Datentyp hat dein Feld "Kontrolle_4"?
Gruß
Ralf
warum benutzt du Long statt date?
Zitat:
Dim LngAktDatum As Long
Dim LngAktDatum As Long
Damit könntest du auch 31.31.2010 eingeben und das macht erst bein schreiben in die Tabelle "bumm". Ich kann mir vorstellen, dass Access 2007 das nicht mag.Also ersetze
Dim LngAktDatum As Dateund
IsDate(StrAntwort)in deinem Code.
Ansonsten, wie Marie schon schrieb, wäre die Zeile, wo der Fehler auftritt nicht schlecht. Welchen Datentyp hat dein Feld "Kontrolle_4"?
Gruß
Ralf
Antwort 3 von Gertrude-5 vom 28.06.2022, 07:12 Options
Vielen Dank Ralf
Das war das Problem...
und es hat geklappt.
Liebe Grüße Gertrude
Das war das Problem...
und es hat geklappt.
Liebe Grüße Gertrude
Ähnliche Themen
Benutzerverwaltung in Access 2007
Jack270 23.01.2009 - 1548 Hits - 2 Antworten
raster ausrichten access 2007
herrziegler 25.02.2009 - 127 Hits - 1 Antwort
Access 2007 Syntaxproblem
Konrad2 28.02.2009 - 138 Hits - 2 Antworten
Access 2007, Formular aufrufen ohne Access 2007 aufzurufen?
Mufti 18.09.2009 - 733 Hits - 3 Antworten
Microsoft Office 2007 Access - ODBC Datenbankverbindung mit MySQL
Constan 20.06.2010 - 350 Hits -
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
