it shows just one Input box for "FIRST" field, its need an another for " SECOND " i still donīt know how to continue
Just like you wrote the code for the 'FIRST' [with strA1 . . .], you will have to put in code to show a second Input Box.
Also - are you sure that this works ???:
Code:
If Not IsNull(DLookup("First", "tblA1", "First='" & strA1 & "'")) = True Then
MsgBox "Already Exist"
Exit Sub
End If
I tried it and it does not do what I was expecting.
It works if I take out the '= True':
Code:
If Not IsNull(DLookup("First", "tblA1", "First='" & strA1 & "'")) Then
MsgBox "Already Exist"
Exit Sub
End If
Let's pick one problem at a time and work through your code.
So . . . pick one problem that you want to fix next & I will try & help with it.