Insert into

Hej

Hvis GrpType = 1 får jeg fejlmeddelelsen:
Antallet af forespørgselsværdier og destinationsfelter er ikke det samme.

Hvis GrpType = 2 virker det


Private Sub gem_Click()
If GrpType = 1 Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Requery
DoCmd.RunSQL "INSERT INTO Tab_Ordre ([Kundenavn],[Løn],[Stilling],[Antal],[Periode],[Konsulent],[Forv_fakturering],[Type],[Ordredato]) VALUES('" & Me.Kundenavn & "'," & Me.Løn & ",'" & Me.Stilling & "'," & Me.Antal & "," & Me.Periode & ",'" & Me.Konsulentnavn & "'," & Me.Forv_fakturering & ",'Try And Hyre',#" & Me.Ordredato & "#)"
End If
If GrpType = 2 Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Requery
DoCmd.RunSQL "INSERT INTO Tab_Ordre ([Kundenavn],[Løn],[Stilling],[Antal],[Konsulent],[Forv_fakturering],[Type],[Ordredato]) VALUES('" & Me.Kundenavn & "'," & Me.Løn & ",'" & Me.Stilling & "'," & Me.Antal & ",'" & Me.Konsulentnavn & "'," & Me.Forv_fakturering & ",'Rekrutering',#" & Me.Ordredato & "#)"
End If