Office: Button: Datensatz duplizieren mit Anweisungen

Hey Ihr Lieben,
im Anhang eine Beispiel Access Datei.

Es gibt die Tabelle "DDIA_DIAGNOSE" mit den Spalten "DDIA_ICD10" in welche die ICD-10-Codes eingetragen werden, sowie die Spalten "DDIA_BEGINND" indem das Beginndatum des Datensatz steht (Standardwert ist hier auf heute gesetzt) sowie"DDIA_ENDD" indem das Enddatum des Datensatzes stehen soll.

In dem dazugehörigem Formular "DDIA_DIAGNOSE" habe ich nun einen Button "Datensatz duplizieren" hinzugefügt. Ich möchte, dass beim Drücken des Buttons, Access das Enddatum des vorherigen Datensatzes auf gestern schreibt.

Wie muss ich hier vorgehen? Ich kenne mich noch überhaupt nicht mit Markos, Codes oder dem Ausdrucks-Generator aus... Was muss ich wo hinschreiben?

Hoffe Ihr könnt mir helfen !

 

Hallo Greta,
quick & dirty, bin gerade auf dem Sprung:

Code:

Private Sub DeinButton_Click()
 Dim strSQL as String
    strSQL= "INSERT INTO DDIA_DIAGNOSE (DDIA_ICD10, DDIA_BEGINND) VALUES ('" & _
                  Me!TextfeldmitderDiagnose & "', " & Date & ")"
    CurrentDb.Execute strSQL
    strSQL= "UPDATE DDIA_DIAGNOSE SET DDIA_ENDD = " & Date & " WHERE DDIAG_ID = " & Primärschlüssel_des_vorherigen_Datensatzes
    CurrentDb.Execute strSQL
End Sub

 

Merci! Ich habe mal etwas mit kleinen Änderungen umgesetzt und erhalte dann die Fehlermeldung "Laufzeitfehlermeldung 3061" - Der Fehler soll irgendwo im "CurrentDb.Execute strSQL" liegen... Jemand eine Idee?

 

Hallo,
für sowas ist es immer gut, sich den String im Direktfenster ausgeben zu lassen und dahinter eine Haltemarke zu setzen. Dann kann man sich anzeigen lassen, was man ausführen will.

Code:

   strSQL= "...."
   Debug.print strSQL
   CurrentDb.Execute strSQL '<------ Haltemarke

Mit Strg-G das Direktfenster öffnen und dann gucken, wie der zusammengebastelte String aussieht. Ob Die Hochkommata sitzen, wo sie hingehören und wo nicht, ob die Kommata vorhanden sind usw.
Ich vermute mal, dass das Datum nicht richtig formatiert ist, dafür nutze ich immer eine Funktion.
Dazu diesen Code in ein Modul:

Code:

Public Function fcDatSQL(vardatum As Variant) As String
On Error GoTo Fehler
    If VarType(vardatum) = vbDate Or VarType(vardatum) = vbDouble Or _
       VarType(vardatum) = vbInteger Or VarType(vardatum) = vbLong Or _
       VarType(vardatum) = vbString Then
        If Not IsNull(vardatum) Then
            fcDatSQL = Format(CDate(vardatum), "\#mm\/dd\/yyyy\#")
'            fcDatSQL = strCompare & Format(CDate(vardatum), "\#mm\/dd\/yyyy\#")
          Else
            fcDatSQL = "IS NULL"
        End If
      Else
        fcDatSQL = "IS NULL"
    End If
Ende:
    Exit Function
Fehler:
    MsgBox Err.Description
    Resume Ende
End Function

Danach müsste der erste String heißen
strSQL= "INSERT INTO DDIA_DIAGNOSE (DDIA_ICD10, DDIA_BEGINND) VALUES ('" & _
Me!TextfeldmitderDiagnose & "', " & fcDatSQL(Date) & ")"
Gruß
Doming

 

Ich habe gerade Deine TestDB angeguckt. Wie vermutet, ist die Datumsfunktion das Problem. Access stellt das Datumsformat auf das in Windows vorgegebene Format um, also wenn deutsch als Sprache eingestellt ist eben dd.mm.jjjj. Die Datenbank möchte aber explizit das amerikanische Format. Deswegen muss man sich mit solchen Funktionen wie in meinem Vorbeitrag behelfen.

 

Merci! Schaue ich mir dir nächsten Tage an :)