Office: (Office 2007) Kein aktueller Datensatz

NeoKortex · 11. Februar 2015

Hey,

ich habe bei einem Formular einen extra Button gecoded bei dem man etwas Ausführen kann.

Es funktioniert auch immer, es sei denn, es wird ein neuer Datensatz angelegt.
Im Formular steht dann auch ein neuer Datensatz als ID, aber wenn ich auf meinen Button klick kommt: kein aktueller Datensatz.

Wenn ich auf meinem Datenblatt in einen vorher angelegten Datensatz klicke und dann wieder zurück in den neuen Datensatz, dann funktioniert der Button.

Hab schon rs.AddNew und so probiert, oder schließen und wiederöffnen des Formulars bei letzter ID, aber der Fehler bleibt der Gleiche.

Kann ich iwie den ersten Datensatz markieren ( in der Hoffnung, dass der Letzte dann automatisch abgespeichert wird und dann zum Letzten springen?

Forms!LogBuch.Recordset.MoveFirst
Forms!LogBuch.Recordset.MoveLast

funktioniert auch nicht

:)

CptChaos · 13. Februar 2015

von NeoKortex

extra Button gecoded
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn Du uns jetzt hier noch den Code zeigen würdest der dabei entstanden ist, könnte man evtl. konkret helfen...
MoveFirst, MoveLast, AddNew ist hier m.E. alles nicht notwendig sondern es sollte ausreichen einen möglichen neuen Datensatz zu identifizieren (.NewRecord) und ggf. zu speichern (.Dirty)

ebs17 · 13. Februar 2015

ich habe ... einen extra Button gecoded bei dem man etwas Ausführen kann
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ungeheuer aufschlussreich. Man mag gar nicht von der Formulierung auf Inhalte schließen.

NeoKortex · 13. Februar 2015

haha xD

Ok sorry, ausführlicher:

Sie können aus einer abgebildeten Liste Elemente auswählen ( Tabelle Programm ), die dann in ein Memofeld der Haupttabelle eingeschrieben werden ( Tabelle LogBuch ). Ja, ich verletze hier die Datenbankregeln, kein 1:n Relation zwischen den Tabellen.

Die Liste befindet sich auf einem Unterformular, welches als Popup aufrufbar ist.

In der Liste befinden sich folgende Elemente von Tabelle Programm:

ALLE
Programm 1
Programm 2
Programm 3
Programm 4
Programm 5
...

Klickt man auf diesem Unterformular auf "ADD" wird folgender Code ausgeführt:

Code:

Private Sub Befehl2_Click()
If IsNull(Forms!LogBuch.ID) Then
MsgBox "Datensatz muss erst erstellt werden: ID darf nicht (NULL) sein. Dazu User ausfüllen."
Exit Sub
End If
Dim Counta As Integer
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim lng As Long
Counta = 1 + Me.Liste0.Value
Set db = CurrentDb
Set rs = db.OpenRecordset("Select ID, Programm from LogBuch where LogBuch.ID = " & Forms!LogBuch.ID & "")

If Me.Liste0.ListIndex = -1 Then
Exit Sub
End If
If IsNull(rs!Programm) Then
Set rs2 = db.OpenRecordset("SELECT Programm.[Programm] FROM Programm where Programm.[ID] = " & Counta & "")
DoCmd.SetWarnings False
DoCmd.RunSQL "Update LogBuch Set Programm = '" & rs2!Programm & "' Where LogBuch.ID = " & rs!ID & ""
DoCmd.SetWarnings True

Me.Painting = False

Forms!LogBuch.Requery

Forms!LogBuch.Recordset.FindFirst "ID=" & rs!ID

Me.Painting = True

Else

Forms!LogBuch.Recordset.MoveFirst
Forms!LogBuch.Recordset.MoveLast
Set rs2 = db.OpenRecordset("SELECT Programm.[Programm] FROM Programm where Programm.[ID] = " & Counta & "")
DoCmd.SetWarnings False
DoCmd.RunSQL "Update LogBuch Set Programm = '" & rs!Programm & "" & " " & "" & rs2!Programm & "' where LogBuch.ID = " & rs!ID & ""DoCmd.SetWarnings True
Me.Painting = False

Forms!LogBuch.Requery

Forms!LogBuch.Recordset.FindFirst "ID=" & rs!ID

Me.Painting = True
End If
'db.Execute ss, 128 'dbFailOnError
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

NeoKortex · 13. Februar 2015

Code:

lng = Forms!LogBuch.ID
DoCmd.Close acForm, "LogBuch"
DoCmd.OpenForm "LogBuch"
Forms!LogBuch.Recordset.FindFirst "ID=" & lng
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

so funktionierts, wenn ich das vorne an mein Formular setz...

maikek · 13. Februar 2015

Der Code scheint mir unnötig kompliziert, aber sei's drum.
Wenn du hier speicherst - wie Benny schon vorschlug -, sollte das Öffnen und Schließen unnötig sein:
Code:

If IsNull(Forms!LogBuch.ID) Then
MsgBox "Datensatz muss erst erstellt werden: ID darf nicht (NULL) sein. Dazu User ausfüllen."
Exit Sub
Else
Forms!LogBuch.Dirty = False
End If
'...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

Office: (Office 2007) Kein aktueller Datensatz

Kein aktueller Datensatz

Kein aktueller Datensatz

Kein aktueller Datensatz

Kein aktueller Datensatz - Similar Threads - aktueller Datensatz

Aktuellen Datensatz als E-Mail-Text verschicken

Endlosformular: Buttons nur für aktuellen Datensatz sichtbar

Aktuellen Datensatz kopieren und ans Ende Einfügen

Mehrere Datensätze markieren, kopieren und mit aktuellem Datum einfügen

Bericht nur mit aktuellem Datensatz aus Formular anzeigen und drucken

Kein aktueller Datensatz im Recordset

Neues Formular mit aktuellem Datensatz öffnen