سلام دوستان ببخشید اگه ممکنه کد های زیر رو نگاهی بندازین دوتا مشکل دارم یکی اینکه وقتی نام کاربری ورمز و میدم وارد فرم نامبرده تو کد میشم ائن فرم باز میشه ولی پنجره لوگین همچنان هستش.سوال دومم اینه چطور میتونم هرکاربری که وارد میشه خوش امد به اسم همون شخص تو مسج نشون داده بشه

Option Compare Database

Private Sub Command1_Click()
If IsNull(Me.txtNameKarbari) Then
MsgBox "áØÝÇ äÇã ˜ÇÑÈÑí ÑÇ æÇÑÏ ˜äíÏ", vbInformation, "NameKarbari Required"
Me.txtNameKarbari.SetFocus
ElseIf IsNull(Me.txtPassword) Then
MsgBox "áØÝÇ ÓæÑÏ ÑÇ æÇÑÏ ˜äíÏ", vbInformation, "Password Required"
Me.txtPassword.SetFocus
Else
    'ادامه
    If (IsNull(DLookup("NameKarbari", "useridlogin", "NameKarbari ='" & Me.txtNameKarbari.Value & "'"))) Or _
    (IsNull(DLookup("Password", "useridlogin", "Password ='" & Me.txtPassword.Value & "'"))) Then
        MsgBox "!!äÇã ˜ÇÑÈÑí íÇ ÓæÑÏ ÇÔÊÈÇå ãíÈÇÔÏ"
       
    Else
        MsgBox "˜ÜÜÇÑÈÑ ÜÜÜÑÇãÜÜí ÎÜÜæÔ ÂãÏíÏ Èå ÈÇä˜ ÇØÜÜáÇÚÇÊí"
       
    DoCmd.OpenForm "daneshjo"
    End If
    End If
End Sub

همه قسمت ها به خوبی کار میکنه مشکلی تو این کدها نیست فقط بعد از وارد شدن پنجره لوگین نمیره و رو صفحه نمایان هس

در این کدها برای اینکه نام وارد شونده رو بهش خوش امد بگم چه چیزی رو باید اضافه کنم