عمر ضاحى

مش عارف ايه السبب انا وضعت كل كود فى مكانه بعد ما عدلت عليهم وانا فاهم ان ده للحقل فى النموذج TextBox2 وان ده للحلق فى الجدول rs.Fields(2) لكن بيظهر معايا خطأ مش عارف السبب ايه جربت الميكرو اشتغل تمام لكن بالكود مش شغال

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

اولا بشكركم جميع لما حاولت ان احول الميكرو الى VBA عن طريق محول الميكرو فى الاكسيس بجيلي خطأ هل لها حل ؟ لانى دورت على النت ولم اصل لشئ وانا اريد ان احول الكمبو بوكس الى VBA

السلام عليكم ورحمة الله وبركاته وكل عام وحضراتكم بخير اولا احب ان ابدأ باعتذار عن موضوع السابق لعدم توضيح الطلبات بشكل اوضح واوجز (اتمني قبول اعتذارى) انا هنا معايا فورم هذا الفورم اريد ان استدعي البيانات من اكثر من جدول ولتسهيل الامر أنشأت استعلام بالجداول الثلاث انا انا اريد الاتى :- 01- فى رأس النموذج يوجد 2 كامبو بوكس واحد لرقم الموظف والاخر لاسم الموظف ( اريد تفعيلهم بحيث اذا فتحة القائمة يظهر لى اسم الموظفين او قائمة ارقامهم واستطيع البحث بداخلهم) 02-ان استدعى المعلومات للفورم من الاستعلام حسب الشرط وهو فى رأس النموذج اما اسم او رقم الموظف 03- افعل عمل مفاتيح التحكم فى النموذج في زيل النموذج (طلب اكواد لهم حتى يتم التحكم فى البيانات) فقط هذه الطلبات وأريد ان افهم لو شرح بسيط لكل كود فانا معايا خلفيه وان شاء الله ما اغلَبكم فى الشرح والفهم واظن ان هذا سيكون مرجع لكثير من طلبت العلم هنا والله الملف فى المرفقات Request.accdb

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

اولا بشكر حضرتك للرد على طلبى ثانيا انا هنا لانى عاوز افهم كيف ده حصل لان مش عاوز اعمل نسخ ولصق للكود وخلاص ثالثا طلب اخر انا عاوز احدث الكود ببعض الاضافات زي انا عاوز اخلى رسالة تنبيه ان هناك حقول فارغه قبل اتمام الحفظ هل اضع قبل هذا السطر If Not rs.BOF And Not rs.EOF Then دالة اف If [txtenjob] <> "" Or [txtarjob] <> "" Then وقبل السطر ده rs.MoveNext اضع الرساله بتعتى ؟

up

انا مشكلتى فى الفورم ال عامله مش ظابطين كل فورم فيها اكود مش راضيه تطلعلى بالنتيجه ال انا عاوزها يعنى مثلا فى فورم المكافات او الخصومات الاثنين زي بعض (frmaddJOB + frmWorker + frmMokafah) لكن الفرق فى جدول ال بتعبى فيه البيانات او تستخرج منه البيانات الكود مش شغال معايا زي ما انا عاوز ومش فاهم الغلط فين وانا عاوز الفورم او اى فورم يستدعى البيانات من الكمبو بوكس واعدل عليها وكل ده ويكون الكمبو بوكس والباقى البيانات تكون غير منضمه علشان مأثرش على الجداول لو كتبت فى بعض الخلايا وتوقفت الخلاصه اعاوز لما اكتب رقم الموظف او ابحث عن اسمه فى الكمبو بوكس يظهرلى والمفاتيح تعمل ايضا زي الى الامام او الى الخلف

UP

جرب كده ( شغال تمام) الملف بالمرفقات رسالة.accdb

جرب تستخدم دالة IF اذا كانت النص = دقايق يضرب * 60000 واذا كان = ساعات * 36000000 وهكذا ولا انا لغبطت الدنيا

ايه الابداع ده بجد الله يبارك فيك

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

افضل حاجه ان تكون النماذج عندك تكون غير منضمه ويكون التسجيل بالاكواد كده هتضمن عدم تسجيل اى شئ حتى الضغط على مفتاح حفظ هذا طبعا وجة نظري ال ملهاش اى تلاتين لزمه ( لانى مبتدأ ) 😅 واكيد هنا هتلاقى طريق اكثر لا اعرفها واكثر احترافيه انا فقط لسه مبتدأ

اذا كنت اخطأت الطلب او هناك شئ خاطئ بعد اذنكم توضيح ام انى استعجلت فى طلبي ؟

السلام عليكم اساتذتى الافاضل بعد اذن حضرتكم انا كنت اتابع شرح احد المعلمين الأستاذ المهندس احمد عبد المنعم على قناته على اليوتيوب فى عمل برنامج شئون موظفين وباستخدام طريقة ان النماذج تكون غير منضمه حتى لا تؤثر على الجداول والبيانات التى بها عند التعديل و خلافه من الامور الاخرى وهو شرحه وافكاره ما شاء الله ربنا يبارك فيه وفيكم جميعا لكن يوجد خطأ عندي حيث حصل معايا لغبطه كده فى النماذج وكل شيء تقريبا اصبح لا يعمل كما ينبغي تقريبا انا لغبطت وخربطت الدنيا في الاكواد المطلوب: فهل لو تكرم على احد من الاستذه المحترمين هنا بمساعدتى فى تصحيح الأخطاء التي قمت بها هذا بعد اذن حضرتكم ايضا عاوز لما افتح القائمة الخاصه باسم الموظف او اكتب رقمه يجلبلى كل البيانات ولما اخلص تعديل واضغط على حفظ يحفظ التعديلات ولو فى اضافات تحسن من الشكل لتسهيل الوصول اكون لكم شاكر لانى نفسي فعلا اتعلم هذا البرنامج العظيم ولكم جزيل الشكر برنامج الرواتب وشئون الموظفين.rar

الف الف شكر لحضرتك وجارى التجربة

اسف . بس ما فى اى جديد اخى الكريم

هل يمكن لهذا الكود تطويره بحيث يظهر ايضا فى القائمة الصفحات المخفيه ؟ والصفحات المخفيه تظهر مثلا بشكل مائل بحيث تكون مميزه عن الصفحات الظاهره

اها تقصد ان رقم الفاتورة هتكون ف عمود a واسم المخزن هيكون فى عمود B ? ما فى مشكله توكل على الله وابدأ

مش فاهم حضرتك يعنى ايه هيعاد ترتيب شكل التقرير اعطينى مثال حتى استطيع ان افهم قصد حضرتك

ما فى جديد اخى الكريم فى بقية النقاط ؟

الف الف شكر لحضرتك واسف انى تعبت حضرتك وربنا يوسع عليك ويجزيك عنا كل خير

هو ممكن يقصد انك تعمل تصدير لحركة البصمه وتحفظها فى ملف اكسيل طبعا انا بعمل كده عادي لكن ايضا ال اقدر احاول استنبط من سؤالك انك عاوز الحركه دى تحدث اليا دون تدخل منك وتعرض امامك على الاكسيل مظبوط ؟؟ اعتقد والله اعلم لا يمكن بسبب ان برامج الخاصه بالبصمه بتكون مرتبطه بقواعد بيانات وعند تصديرها للاكسيل بيتم استخراجها من قواعد البيانات ممكن يكون كلامي خطأ كليا او جزءيا وانا اتمني ان تكون هناك طريقه لان بكده التعامل مع البصمه هيكون اسهل من برامجه

الف شكر لك شغال تمام انا شايف هذا الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim R As Long On Error GoTo 1 If Not Intersect(Target.Cells(1, 1), Range("q11").Resize(Me.UsedRange.Rows.Count)) Is Nothing Then If IsNumeric(CStr(Target.Cells(1, 1))) Then R = Target.Cells(1, 1) Cancel = True With Sheets(TEAK - WOOD) ' Worksheets("البحث في المكتبة") .Select .Cells(R, "A").Select End With End If End If 1: End Sub وايضا هذا الكود Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'حدث النقر المزدوج On Error GoTo 1 Application.ScreenUpdating = False 'True ListBox3.Enabled = True ListBox2.SetFocus 'تنشيط الست بوكس 2 ListBox3.SetFocus 'تنشيط الست بوكس 3 For I = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(I) = True Then 'اذا تم تحديد في الست بكس الاولى ListBox2.Selected(I) = True 'فإنه يتم تحديدنفس المكان في الست بكس الثانية ListBox3.Selected(I) = True vas = ListBox2.Value 'وهنا يعطينا قيمة الصف لما تم تحديدة في الست بكس End If Next I If ListBox3.ListIndex > -1 Then Sheets(ListBox3.Value).Activate ' كود تحديد الشيت End If Application.Goto Range(Cells(vas, 2), Cells(vas, 9)), True 'كود تحديد مكان صف البحث 1: ListBox3.Enabled = False Application.ScreenUpdating = True End Sub فهل لهم فائدة فى استفسارى ؟ وايضا كان نفسي حضرتك تعمل فيديو شرح لالية العمل هذا الكود وكيف جعلت الشرط يتحقق فى الثلاث حالات حتى يستفاد غيرى من هذه الاعمال الرائعه جزاك الله عنا كل خير حضرتك واستاذى احمد