Fejl ved ny record opretted fra en comboboks
Jeg skal fra en comboboks oprette en ny recordJeg fåre en fejl: Du skal angive en værdi i feltet Firma.Firma
Kan i hjælpe?
Nb Firma2 indeholder et firmanavn
Forms![Firmaer].FilterOn = False
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Firma] = " & "'" & Firma2 & "'"
If Not rs.NoMatch Then
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Else
rs.AddNew
'Assign fields here.
Forms![Firmaer]![Firma] = Firma2
rs.Update
rs.Bookmark = rs.LastModified
' Work with the new record here.
End If
End If
Set rs = Nothing