سلام دوست عزیز
ممنون از فایل خوبت
خیلی کاربردی بود
فقط میشه در مورد دکمه ورود و اینکه بعد از اینکه نام کاربری درست وارد کرده شد و فرم اصلی برنامه باز بشه چطوریه
هر کاری کردم نشد
تو کدها هم هرچی گشتم نتونساتم کاری کنم
ممنون میشم
سلام دوست عزیز
ممنون از فایل خوبت
خیلی کاربردی بود
فقط میشه در مورد دکمه ورود و اینکه بعد از اینکه نام کاربری درست وارد کرده شد و فرم اصلی برنامه باز بشه چطوریه
هر کاری کردم نشد
تو کدها هم هرچی گشتم نتونساتم کاری کنم
ممنون میشم
سلامنوشته شده توسط rohamsport2
در صورت معتبر بودن هویت کاربر در نام کاربری و رمز عبور، دستور باز شدن فرم اصلی و بستن فرم جاری رو بدین
برای باز کردن فرم اصلی
docmd.openform "frmMain"
و برای بستن هم
docmd.close
ممنون دوست عزیز
کجای این کد باید بذارمش.؟
Private Sub cmdLogin_Click()
Dim USNM As String
Dim ADN As Integer
If IsNull(Me.cmbUserName) Then
USNM = ""
Else
USNM = Me.cmbUserName
End If
If Me.Admin = True Then
ADN = 1
Else
ADN = 0
End If
TempVars.Add "ADN", ADN
TempVars.Add "KRBR", USNM
If Me.txtPassword = Me.Password Then
MsgBox "Èå ÓíÓÊã ÎæÔ ÂãÏíÏ", vbInformation + vbMsgBoxRtlReading, "åÔÏÇÑ ÓíÓÊã!"
Else
MsgBox "ÑãÒ æÑæÏ ÇÔÊÈÇå ÇÓÊ", vbMsgBoxRtlReading + vbCritical, "íÇã ÓíÓÊã !"
End If
End Sub
سلام دوست عزيز ببخسيد مزاحم ميشم لطفا در صورت امكان راهنمايي كنيد من چطور اين دو دستور را اعمال كنيد . ممنون از راهنماييتون
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول