كود مستخدم لانهاء برنامج

[سامر محمود]

الاخوة الافاضل 

تحية طيبة وبعد

من فضلكم عايز اعمل اعمل كود في البرمج يكون اسم مستخدم وكلمة مرور اول ما افتح بيه البرنامج يفعل انتهاء البرنامج بتاريخ معين مع التفضل ان اسم المستخدم وكلمة المرور في برمجة شاشة login يعني مش في جدول المستخدمين 

حاولت فيه بس مش جاي معايا هل ينفع ولا صعب 

خالص تحياتي 

[kkhalifa1960]

تفضل أخي  بس من فضلك اقرأ البرنامج جيداً حتى تعرف كيف يعمل .

1- عند ادخال اليوزر (Admin) والباسوود (T123)  موجودين بالبرمجة ويمكن تعديلهم كما تريد . جرب مافي ادخال - جرب أي من اليوزر أو الباسوورد  مختلف - جرب الادخال الصحيح .

2- عند غلق فورم الدخول بيدخل تاريخ الصلاحية بالجدول واذا حصل تعديل بزمن الصلاحية يعطيك ماسج .

3- عند انتهاء الصلاحية +3 أيام يعطيق ماسج .جرب الادخل 

4- تاريخ الصلاحية من يوم فتح البرنامج +90يوم يمكن تعديلها بالبرمجة كما تشاء .

اذا كان هذا طلبك اضغط على أفضل اجابة .

واليك المرفق .

Login and Validity.accdb

[سامر محمود]

الاخ الكريم  الاستاذ الكبير ( خليفة)

خالص تحياتي وشكري لحضرتك مش عارف اشكرك ازاي نعم الاخ والله فعلا موقع به استاذة عظام

جزاك الله خيراً

[abouelhassan]

السلام عليكم اخى فى الله استاذى kkhalifa1960

احتاج سؤال اخى عند انتهاء تاريخ الصلاحية ماذا يحدث اخى

اعزك الله

[سامر محمود]

الاخ الفاضل kkhalifa1960

دي صورة الود بعد التعديل بس مش بيفتح حاولت اعدل فيه لكن مش مظبوط

On Error Resume Next
If Me.t1 = Me.username And Me.t2 = Me.password And em_25 = -1 Then
DoCmd.OpenForm "pop", acNormal
Me.Visible = Falsed
Else
MsgBox "يرجي ادخال اسم المستخدم وكلمة المرور بصورة صحيحية او ان هذا المستخدم موقوف حاليا", vbCritical, "تحذير"
DoCmd.CancelEvent
End If
'If Len(Me.t1 & "") = 0 Then
'  MsgBox "أدخل اسم المستخدم"
'Undo
'Me.t1.SetFocus
'Exit Sub
'End If
''''''''''
'If Len(Me.t2 & "") = 0 Then
'  MsgBox "أدخل رمز المرور"
' Undo
' Me.t2.SetFocus
'  Exit Sub
'End If
'''''''''
' If Me.[t2] = "rlmhguhgl" And Me.[t1] = "Admin" Then
'  DoCmd.OpenForm "pop"
'  DoCmd.Close acForm, "FrmEnter"
'Else
'  MsgBox "دخول غير صحيح"
'Undo
'Me.t2.SetFocus
'Exit Sub
'End If

في سؤال اخر مهم بعد الفترة الموجودة والبرنامج قفل

طريقة فتحه مرة اخري هل تكون بتعديل تاريخ الجدول 

شاكر فضلك جدا