Barna

وعليكم السلام ورحمة الله وبركاته .... طيب في اعلا الصفحة ضع هذا ..... Option Compare Database #If VBA7 Then Private Declare PtrSafe Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long #Else Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long #End If ثم في حدث عند التركيز على مربع النص العربي ضع هذا ..... On Error Resume Next Dim kbd As Long kbd = GetKeyboardLayout(0) kbd = Hex(kbd) If Right(kbd, 1) <> 1 Then SendKeys "%+" End If

هل هذه الصورة المطلوبة ...... اذا كان نعم .... فلا انصح به ... لانك تحتاج تغيير بعذ الاستعلامات المرتبطة بتلك النماذج .... لكن على كل حال انا اجريت تعديل واحد فقط على نموذج البلديات ... اذا انت مصر على المطلوب تتبع التعديل وعدل في كل الاكواد بنفس الطريقة ..... Handicap Bar Menu .rar

اخي خير اخترها افضل اجابة حتى نعرف انه تم الاجابة على السؤال .....

طيب اجعل الموشر في خانة البحث ثم اسحب الباركود بالماسح وانظر ....... Database1.accdb

هل هذا هو المطلوب .................. __شئون الطلبة_Barna (1).rar

وعليكم السلام الباركود يجب ان يعتمد على رقم فريد للموظف مثلا ( رقم هوية أو رقم وظيفي أو ...... ) لم اجد في الجدول لديك رقم فريد ؟؟؟؟؟

اين النموج ؟؟؟؟؟

طيب جرب المرفق التالي بعد التعديل ....... test print.mdb

جرب خاصية البحث في المنتدى تجد ما يسرك ...

جرب المرفق ........ واكتب التاريخ في مربع النص كاملا .... مثلا ( 2014/03/22 ) والبرنامج يقوم بالمطلوب . test print.mdb

يا اخي الكريم ابحث عن تاريخ موجود .... لكن جرب المرفق تم تعديل الرسالة .... test print.rar

غير هذا ..... بهذا .... Vl = Forms!test1!dateprint

انظر هذا الموضوع ... ولاتنسى التشغيل كمسؤول

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

هههه ........ بل انت بارك الله فيك اخي @ابوخليل سوف تفتح لنا باب كنا نظن اننا من فئة الشباب ..... 😉

الف . الف . مبروك ابا احمد ...... تستاهل .... اعانك الله وسدد خطاك .

بارك الله فيك أخي الكريم : اولا : مبارك لك الترقية وأسأل الله تعالى لك وللجميع التوفيق والسداد والاعانة .. تستاهل . الف . الف . مبروك ثانيا : فكرة المنتدى في اساسه التعلم والتعليم ..... كلنا نتعلم وانا اولكم ..... فأكثر من اجابة ومشاركة في الأراء تثري الموضوع .... تفضل أخي الكريم التعديل ..... DB5 (1).mdb

طيب .... جرب المرفق .... DB5 (1).mdb

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

وعليكم السلام ورحمة الله وبركاته ... بالنسبة للمطلوب الاول : الأفضل يبقى كما هو ... لأنك قد تظطر الى الغاء الفاتورة مثلا ..... لكن حسب رغبتك تفضل ...... انقل هذا الكود من زر الحفظ الى حدث النموذج عند الفتح Forms!Form1.ID = Nz(DMax("[ID]", "InvoiceSavetbl") + 1) Forms!Form1.InvoiceID1 = Year(Date) & "- " & Forms!Form1.ID.Value بالنسبة للمطلوب الثاني : للاسف غير مفهوم لي !!!!!!

الحمد الله رب العالمين واياك اخي محمد

تفضل جرب ............... On Error Resume Next If IsNull(Me.tslsul) Then Me.Undo Me.U1.SetFocus Else If MsgBox("هل تريد الحذف فعلاً ؟", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then Me.U1.SetFocus Exit Sub Else Dim i As Integer, k As Integer 'k = tag1![COU] 'و مهمته هي حساب عدد السجلات لتكرار الكود' ' المربع موجود في النموذج لفرعي Tag1 Me.tag1.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To [Forms]![Tag]![tag1].Form![COU] DoCmd.SetWarnings False DoCmd.RunSQL " UPDATE hmola SET hmola.tag = false WHERE (((hmola.byan)=[Forms]![tag]![tag1].Form![byan]));" DoCmd.SetWarnings True DoCmd.GoToRecord , , acNext Next i [Forms]![Tag]![esm].SetFocus DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True Me.Refresh MsgBox "تمت عملية الحذف بنجاح", , "تم" Me.U1.SetFocus End If End If

لم افهم ما المقصود ببقية الكود

طيب جرب كودك الان .................... On Error Resume Next If IsNull(Me.tslsul) Then Me.Undo Me.U1.SetFocus Else If MsgBox("هل تريد الحذف فعلاً ؟", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then Me.U1.SetFocus Exit Sub Else Dim i As Integer, k As Integer 'k = tag1![COU] 'و مهمته هي حساب عدد السجلات لتكرار الكود' ' المربع موجود في النموذج لفرعي Tag1 Me.tag1.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To [Forms]![Tag]![tag1].Form![COU] DoCmd.SetWarnings False DoCmd.RunSQL " UPDATE hmola SET hmola.tag = false WHERE (((hmola.byan)=[Forms]![tag]![tag1].Form![byan]));" DoCmd.SetWarnings True DoCmd.GoToRecord , , acNext Next i DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True Me.Refresh MsgBox "تمت عملية الحذف بنجاح", , "تم" Me.U1.SetFocus End If End If

طيب .. انا على الموبايل ... ارجع ووافيك