عمر ضاحى

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

اولا بشكر حضرتك للرد على طلبى ثانيا انا هنا لانى عاوز افهم كيف ده حصل لان مش عاوز اعمل نسخ ولصق للكود وخلاص ثالثا طلب اخر انا عاوز احدث الكود ببعض الاضافات زي انا عاوز اخلى رسالة تنبيه ان هناك حقول فارغه قبل اتمام الحفظ هل اضع قبل هذا السطر 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 فهل لهم فائدة فى استفسارى ؟ وايضا كان نفسي حضرتك تعمل فيديو شرح لالية العمل هذا الكود وكيف جعلت الشرط يتحقق فى الثلاث حالات حتى يستفاد غيرى من هذه الاعمال الرائعه جزاك الله عنا كل خير حضرتك واستاذى احمد

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

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

استاذ عبدالرحمن اولا اشكر حضرتك على مجهودك ولى استفسار اخر انا دلوقتى حضرتك حطيت الكود ده If QQ = ("وارد") Then Q4 = ("وارد") Else Q4 = ("") End If علشان تنفذ الشرط وهو شغال تمام لكن لما باختار من القائمة الكل (ال هو الوارد والمنصرف) بيجبلى فقط المنصرف يعنى فى حالة اني عاوز الاثنين محتاج اعمل ايه ؟

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