comboboks - HASTER

fik den selv løst med lidt VBA

Private Sub Branche_Exit(Cancel As Integer)
Dim db As Database
    Dim rs As Recordset

  Set db = CurrentDb
  Set rs = db.OpenRecordset("Logistikbranche", dbOpenDynaset)
       
        rs.Edit
        rs.AddNew
        rs![Branche].Value = Me.Branche.Value
        rs.Update
rs.Close
Set rs = Nothing
End Sub

lille justering

Private Sub Branche_Exit(Cancel As Integer)
Dim db As Database
    Dim rs As Recordset

  Set db = CurrentDb
  Set rs = db.OpenRecordset("Logistikbranche", dbOpenDynaset)
       
        DoCmd.SetWarnings False
       
        If IsNull(Me.Branche.Value) Then
        GoTo 1
       
        Else
        rs.Edit
        rs.AddNew
        rs![Branche].Value = Me.Branche.Value
        rs.Update
        rs.Close
        Set rs = Nothing
       
1:
DoCmd.SetWarnings True
End If
End Sub