Uppdatera tabell med combobox?

[mitec]

Hejsan alla!

 

Nästa problem...

 

Jag har en tabell, Material med bl.a. en kolumn Serienummer.

Ett formulär med en combo: Snr_Cmb, Radkälla: SELECT Material.Serienummer FROM Material ORDER BY Material.Serienummer;

Då jag öppnat formuläret vill jag kunna välj/skriva i ett Serienummer i Snr_Cmb, och om det inte finns i Material.Serienummer, får jag en dialogruta som frågar om jag vill lägga till ny enhet. Väljer jag JA så körs en liten kodsnutt som lägger till nya serienummret i tabellen. Detta funkar bra, MEN hur ska jag bära mej åt för att uppdatera Snr_Cmb så att jag slipper skriva in nummret en gång till?

 

 

 

Som det är nu får jag upp en dialog där det står "Den angivna texten är ej en listpost". Trycker jag OK och F5, skriver i samma nummer så finns det i combon...

 

Förslag?

 

Private Sub Snr_Cmb_NotInList(NewData As String, Response As Integer)

Dim iRet As Integer

Dim strPrompt As String

Dim strTitle As String

Dim serial As String

serial = Me.Snr_Cmb.Text

strPrompt = "Enhet finns ej, lägga till i databas?"

strTitle = "Enhet ej funnen"

iRet = MsgBox(strPrompt, vbYesNo, strTitle)

If iRet = vbYes Then

DoCmd.RunSQL "INSERT INTO Material (Serienummer) VALUES ('" & serial & "');"

Else

Form_Frm_Lagerhantering.Snr_Cmb.Value = ""

End If

End Sub

 

 

 

MVH

 

Mikael

[Ech]

Kanske något i stil med detta

 

Private Sub Snr_Cmb_NotInList(NewData As String, Response As Integer)

Dim iRet As Integer

Dim strPrompt As String

Dim strTitle As String

Dim serial As String

serial = Me.Snr_Cmb.Text

strPrompt = "Enhet finns ej, lägga till i databas?"

strTitle = "Enhet ej funnen"

iRet = MsgBox(strPrompt, vbYesNo, strTitle)

If iRet = vbYes Then

DoCmd.RunSQL "INSERT INTO Material (Serienummer) VALUES ('" & serial & "');"

Else

Form_Frm_Lagerhantering.Snr_Cmb.Value = ""

End If

End Sub

 

 

 

 

 

With Me.Snr_Cmb

.RowSource = _

"SELECT DISTINCT Serienummer FROM Material " & _

"WHERE Serienummer is not null"

.Requery

End With