Hallo,
Also ich arbeite mit Access 2000 English
Ich denke, dass Problem liegt hier:
Genau das ist es.
Ändere im Ereignis \"Form_Current\" folgenden Code:
Diesen Löschen:
If FT_Exist = 0 Then
DoCmd.SetWarnings False
DoCmd.OpenQuery \"qry_FT_Aktu_Jahr\", acViewNormal, acEdit
DoCmd.OpenQuery \"qry_Fix_FT\", acViewNormal, acEdit
DoCmd.SetWarnings True
End If
Und diesen dafür einfügen:
If FT_Exist = 0 Then
CurrentDb.Execute (\"INSERT INTO tbl_FT_Jahr ( FT_Jahr, FT_Lang, FT_Kurz, Fix, FT_Land ) \" & _
\"SELECT \" & Me.txt_tbl_Jahr & \" AS Ausdr1, tbl_FeiertageStamm.Feiertagsname, \" & _
\"tbl_FeiertageStamm.FT_Kurz, tbl_FeiertageStamm.Fix, tbl_Laender.Land_Kurz \" & _
\"FROM tbl_Laender INNER JOIN tbl_FeiertageStamm ON tbl_Laender.Land_Nr = tbl_FeiertageStamm.Land_Nr \" & _
\"WHERE (((tbl_Laender.Land_Kurz)='\" & Me.txt_LK & \"'));\"«»)
CurrentDb.Execute (\"UPDATE tbl_FT_Jahr SET tbl_FT_Jahr.FT_Wert = -1 \" & _
\"WHERE (((tbl_FT_Jahr.FT_Jahr)=\" & Me.txt_tbl_Jahr & \"«») AND ((tbl_FT_Jahr.Fix)=-1));\"«»)
End If
