06-11-22, 05:16 PM
(آخر تعديل لهذه المشاركة : 06-11-22, 05:26 PM {2} بواسطة ali_ahmed12.)
(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداًاخ طه فهمت عليك هدا كود الان
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
كود :
If UserType = "مدير" Then
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
Me.Button4.Enabled = True
Me.Button5.Enabled = True
Me.Button8.Enabled = True
Me.Button7.Enabled = True
Else
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
'تعطيل زر المستخدمين
Me.Button4.Enabled = False
'تعطيل زر نسخ احتياطي
Me.Button5.Enabled = False
Me.Button8.Enabled = True
Me.Button7.Enabled = True
End If(06-11-22, 05:16 PM)ali_ahmed12 كتب :(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداًاخ طه فهمت عليك هدا كود الان
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
كود :
If UserType = "مدير" Then
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
Me.Button4.Enabled = True
Me.Button5.Enabled = True
Me.Button8.Enabled = True
Me.Button7.Enabled = True
Else
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
'تعطيل زر المستخدمين
Me.Button4.Enabled = False
'تعطيل زر نسخ احتياطي
Me.Button5.Enabled = False
Me.Button8.Enabled = True
Me.Button7.Enabled = True
End If
(06-11-22, 05:16 PM)ali_ahmed12 كتب :لو دخلت ب نادر وهو مدير تظهر مشكله(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداًاخ طه فهمت عليك هدا كود الان
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
كود :
If UserType = "مدير" Then
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
Me.Button4.Enabled = True
Me.Button5.Enabled = True
Me.Button8.Enabled = True
Me.Button7.Enabled = True
Else
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
'تعطيل زر المستخدمين
Me.Button4.Enabled = False
'تعطيل زر نسخ احتياطي
Me.Button5.Enabled = False
Me.Button8.Enabled = True
Me.Button7.Enabled = True
End If
(06-11-22, 05:16 PM)ali_ahmed12 كتب :(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداًاخ طه فهمت عليك هدا كود الان
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
كود :
If UserType = "مدير" Then
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
Me.Button4.Enabled = True
Me.Button5.Enabled = True
Me.Button8.Enabled = True
Me.Button7.Enabled = True
Else
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
'تعطيل زر المستخدمين
Me.Button4.Enabled = False
'تعطيل زر نسخ احتياطي
Me.Button5.Enabled = False
Me.Button8.Enabled = True
Me.Button7.Enabled = True
End If
(06-11-22, 05:16 PM)ali_ahmed12 كتب :(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداًاخ طه فهمت عليك هدا كود الان
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
كود :
If UserType = "مدير" Then
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
Me.Button4.Enabled = True
Me.Button5.Enabled = True
Me.Button8.Enabled = True
Me.Button7.Enabled = True
Else
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
'تعطيل زر المستخدمين
Me.Button4.Enabled = False
'تعطيل زر نسخ احتياطي
Me.Button5.Enabled = False
Me.Button8.Enabled = True
Me.Button7.Enabled = True
End If
(06-11-22, 05:16 PM)ali_ahmed12 كتب :(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداًاخ طه فهمت عليك هدا كود الان
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
كود :
If UserType = "مدير" Then
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
Me.Button4.Enabled = True
Me.Button5.Enabled = True
Me.Button8.Enabled = True
Me.Button7.Enabled = True
Else
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
'تعطيل زر المستخدمين
Me.Button4.Enabled = False
'تعطيل زر نسخ احتياطي
Me.Button5.Enabled = False
Me.Button8.Enabled = True
Me.Button7.Enabled = True
End If
(06-11-22, 05:16 PM)ali_ahmed12 كتب :لو دخلت ب نادر وهو مدير تظهر مشكله(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداًاخ طه فهمت عليك هدا كود الان
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
كود :
If UserType = "مدير" Then
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
Me.Button4.Enabled = True
Me.Button5.Enabled = True
Me.Button8.Enabled = True
Me.Button7.Enabled = True
Else
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
'تعطيل زر المستخدمين
Me.Button4.Enabled = False
'تعطيل زر نسخ احتياطي
Me.Button5.Enabled = False
Me.Button8.Enabled = True
Me.Button7.Enabled = True
End If
(06-11-22, 05:16 PM)ali_ahmed12 كتب :(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداًاخ طه فهمت عليك هدا كود الان
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
كود :
If UserType = "مدير" Then
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
Me.Button4.Enabled = True
Me.Button5.Enabled = True
Me.Button8.Enabled = True
Me.Button7.Enabled = True
Else
Me.Button1.Enabled = True
Me.Button2.Enabled = True
Me.Button3.Enabled = True
'تعطيل زر المستخدمين
Me.Button4.Enabled = False
'تعطيل زر نسخ احتياطي
Me.Button5.Enabled = False
Me.Button8.Enabled = True
Me.Button7.Enabled = True
End If
يوجد مشكله عندما ادخل بشخص اخر رغم انه مدير مثل علي لكن لايظهر زرين له ما السبب ياخ طه