Refer.(DAO 3.6)

Tabell med idnr som är räknare & namn som är txt.
Jag vill lägga till en ny???
Denna kåd funkar när det är fler poster???? Hjälp?
sTr= "("
If Len(Trim(Combo1(0))) = 0 Then Combo1(0) = " "
sTr= "namn= '" & Trim(Combo1(0).Text) & "'"
sTr= sTr & ")"

minDB.Execute ("Insert Into Tabell(namn) values " & sTr)

Tacksam för hjälp!

Dim sTemp As String
Dim sSQL As String
sTemp = Trim(Combo1(0).Text)
If Len(sTemp) Then
sSQL = "INSERT INTO Tabell(namn) VALUES ('" & sTemp & "')"
minDB.Execute sSQL
Else
MsgBox "Full i Combobox(0)"
End If

'Alterantivt:

Dim sTemp As String
Dim sSQL As String
sTemp = Trim(Combo1(0).Text)
If Len(sTemp) Then
sSQL = "INSERT INTO Tabell(namn) VALUES ('" & sTemp & "')"
Else
sSQL = "INSERT INTO Tabell(namn) VALUES (Null)"
End If

minDB.Execute sSQL

Skall testa, Tack!