Where is the problem.....
It´s in swedish.....
-------------------------------
Private Sub cmdCopyPost_Click()
DoCmd.RunSQL ("INSERT INTO Leverantörer-Entreprenörer ([Kategori]" _
& ", [Företag], [Adress], [Postnr/Postort], [Kontaktperson], [Telefon], [Mobil], [Fax], [E-post], [Ansvarig], [Datum], [Info]) " _
& "VALUES " _
& "('" & Me![Kategori] & "', " _
& "'" & Me![Företag] & "', " _
& "'" & Me![Adress] & "', " _
& "'" & Me![Postnr/Postort] & "', " _
& "'', " _
& "'" & Me![Telefon] & "', " _
& "'', " _
& "'" & Me![Fax] & "', " _
& "'', " _
& "'" & Me![Ansvarig] & "', " _
& "#" & Me![Datum] & "#, " _
& "'" & Me![Info] & "');"
Requery
DoCmd.GoToRecord , , acLast
JZII
It´s in swedish.....
-------------------------------
Private Sub cmdCopyPost_Click()
DoCmd.RunSQL ("INSERT INTO Leverantörer-Entreprenörer ([Kategori]" _
& ", [Företag], [Adress], [Postnr/Postort], [Kontaktperson], [Telefon], [Mobil], [Fax], [E-post], [Ansvarig], [Datum], [Info]) " _
& "VALUES " _
& "('" & Me![Kategori] & "', " _
& "'" & Me![Företag] & "', " _
& "'" & Me![Adress] & "', " _
& "'" & Me![Postnr/Postort] & "', " _
& "'', " _
& "'" & Me![Telefon] & "', " _
& "'', " _
& "'" & Me![Fax] & "', " _
& "'', " _
& "'" & Me![Ansvarig] & "', " _
& "#" & Me![Datum] & "#, " _
& "'" & Me![Info] & "');"
Requery
DoCmd.GoToRecord , , acLast
JZII