I want to create a logon form in Access with code of VB

[balouch]

I am trying to write this code by do not work?

dim name1 as string
dim pass1 as string

if(me.name="") then
msgbox "Please enter your Name",,"Warning"
else
name1=me.name

else if(name.pass="") then
msgbox"Please enter your Pass",,"Warning"
else
pass1=me.pass
else if(name="abc" and pass="123") then
docmd.openform "employ"
else
msgbox "name and Password does not match"
end if

[James Bowyer]

Try this

dim name1 as string
dim pass1 as string
 
if(me.name="") then
msgbox "Please enter your Name",,"Warning"
me.name.setfocus
exit sub
else
name1=me.name
End If
 
if(me.pass="") then
msgbox"Please enter your Pass",,"Warning"
me.pass.setfocus
exit sub
else
pass1=me.pass
end if
 
if(name="abc" and pass="123") then
docmd.openform "employ"
else
msgbox "name and Password does not match"
end if