علي محمد الكعبي

استاذ صالح بارك الله فيك انا اريد اضهار قسم المستخدم وليس اسم المستخدم في باقي النماذج في مربع نص على تلك النماذج

هل من اجابة

هل من مجيب

في باق في باقي النماذج كيف اظهر قسم المستخدم الحالي

لو وجدت اجابة مطرحت سوالي لكم وسوالي الاخير في صلب الموضوع وهو اظهار قسم المستخدم الحالي في باقي التماذج

طيب كمان كيف يظهر اسم قسم المستخدم الحالي في باقي النماذج

شكراً لك استاذي وبارك الله فيك هل ممكن الشق الثاني من السؤال وهو اضافة لقائمة الوظائف الاضاقية مفتاح ضغط واصلاح لقاعدة البيانات تعمل على شبكة محلية

هذه صورة شاشة الدخول والمطلوب هو عند اختيار اسم المستخدم يظهر في مربع القسم القسم التابع له المستخدم وكذلك من قائمة الوظائف الاضافية اريد تفعيل مفتاح ضغط واصلاح قاعدة البيانات ProSa.rar

الف مبروك استاذنا العزيز

جربت ولكن لم يفلح الامر

انا اريد عندم اختار المستخدم محمد من خلال شاشة دخول المستخدم يعطيني القسم التابع له

عندي برنامج صلاحيات لاستاذنا مهند اريد من خلال شاشة تسجيل الدخول اضيف حقل يكون قسم المستخدم عند اختيار المستخدم يعطيني القسم التابع له في نفس النموذج علماً بان قسم المستخدم يتم اضافته عند اضافة مستخدم جديد

اريد ان اشغل الامر من شريط الادوات الخاص بالبرنامج الذي اعمل على تصميمة كما رايت الكثير من البرامج وكل ماريد هو كيف اكتب الكود الذي يقوم بقطع الاتصال بقاعدة البيانات عن جميع المستخدمين ويقوم بعمل الاصلاح والظغط

مافية حل لابد ان نصل الا نقطة النهاية

الحمدلله تم الحل وذلك ليصبح الكود كالاتي If Not IsNull(Me.date1) Or IsNull(Me.date2) Then varFilter = (varFilter + " AND ") & "[Dat_w] Between date1 And date2" End If

مافية حل

ارفغ مثالك ورح اعدل علية وش الحل بين تاريخين

اخي وضعت الكود كما وضعته انت ولكن يطلب مني ادخال القيمة كما في الصورة المرفقة وانا لاريد ذلك

معييار البحث وضعتها في زر البحث وليست في الاستعلام وكلها شغاله مائة مائة بس لم يتبقى سوى البحث بين تاريخين وانا قد كتبته في الكود اعلاه بس لايتم التنفيذ If Not IsNull(Me.date1) Or IsNull(Me.date2) Then "(#"& varFilter = (varFilter + " AND ") & "([Dat_w]>=#" & Me.date1 & "# And [Dat_w]<=#" & Me.date2 End If

حليت المطلوب بس باقي لي البحث بين تاريخين وهذ هو الكود Private Sub cmdSearch_Click() Dim varFilter As Variant varFilter = Null If Not IsNull(Me.kid) Then varFilter = "[NUmNUm] LIKE '*" & Me.kid & "*'" End If If Not IsNull(Me.date1) Or IsNull(Me.date2) Then varFilter = (varFilter + " AND ") & "([Dat_w]>=#" & Me.date1 & "# And [Dat_w]<=#" & Me.date2 & "#)" End If If Not IsNull(Me.bar) Then varFilter = (varFilter + " AND ") & "[parcode] LIKE '*" & Me.bar & "*'" End If If Not IsNull(Me.geha) Then varFilter = (varFilter + " AND ") & "[geht] LIKE '*" & Me.geha & "*'" End If If Not IsNull(Me.KIND) Then varFilter = (varFilter + " AND ") & "[kind] LIKE '*" & Me.KIND & "*'" End If If Not IsNull(Me.id_m) Then varFilter = (varFilter + " AND ") & "[id_m] LIKE '*" & Me.id_m & "*'" End If If Not IsNull(Me.kesm) Then varFilter = (varFilter + " AND ") & "[kesm] LIKE '*" & Me.kesm & "*'" End If If Not IsNull(Me.motaba) Then varFilter = (varFilter + " AND ") & "[motaba] LIKE '*" & Me.motaba & "*'" End If If Not IsNull(Me.mawdoo) Then varFilter = (varFilter + " AND ") & "[modo] LIKE '*" & Me.mawdoo & "*'" End If If Not IsNull(Me.d_kh) Then varFilter = (varFilter + " AND ") & "[d_kh] LIKE '*" & Me.d_kh & "*'" End If If Not IsNull(Me.ahmia) Then varFilter = (varFilter + " AND ") & "[ahmia] LIKE '*" & Me.ahmia & "*'" End If With Me.sub_searsh_w.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With End Sub

هل من حل

لاادري لماذا لايتم حل بعض الاسئلة ارجو التكرم من الاستذه التكرم بعدم تجهل بعض الموضيع بدون حل حتى لايستفيد الكثير من الاعضاء في هذا المنتدى بلقليل من العلم الذي لديهم رغم معرفتنا بنشغالهم

هل من حل

لايوجد لدي اي مشكلة اهم شي اجد حل

هلوووووو