بوعبد الله محفوظ

مشكووووور أخونا Shivan Rekany على اهتمامك لكن أنا أريد أن يكون الكود في الاستعلام هل من أفكار بارك الله فيك وفي علمك

للرفع

السلام عليكم ورجمة الله تعالى وبركاته أريد في الاستعلام "crosstab" أن يكون الشرط في "LaDate" هو مربع نص في النموذج لكن للأسف الاستعلام لا يقبل هذا رغم أني استعمله في الاستعلام العادي بدون مشاكل قمت بمعالجة هذه المشكلة عن طريق الكود لكن أريدها أن تكون في الاستعلام بارك الله فيكم وفي علمكم CrossTab.zip

مشكووووووور أخونا على اهتمامك أولا التقرير الأول "التقرير اليومي"يشتغل عادي "أرفقته للمعاينة" التقرير الثاني "التقرير اليومي -الكلي"هو سبب همي أرفقت ملف "بي دي اف " https://www.mrkzgulf.com/do.php?id=506796 عن الكيفية التي أريده بها الأن أن أطبع كل ملف وحده ثم أقوم بجمعها مع بعضها البعض باستعمال برنامج "NitroPro"

السلام عليكم ورجمة الله تعالى وبركاته أ{يد طباعة نوعين من التقرير الأول "repProduction" خاص بمشغل الماكينة (واحد فقط)حيث يحتوي على التاريخ ،التوقيت ،الماكينة،مشغل الماكينة الثاني "repProductionDay" نفس ما في الأول لكن بشرط أن يعيد التنسيق من جديد إذا تغير مشغل الماكينة يعني أن يحتوي التقرير الثاني على جميع مشغلي الماكينة لليوم المحدد لكن بشرط أن لا يخالف النسق الأول بارك الله فيكم وفي علمكم Report.zip

للاسف أخي الكريم رسالة خطأ 2522 the action or method requires a file name argument

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

السلام عليكم ورجمة الله تعالى وبركاته أريد عند القيام بعملية بحث معينة في النموذج "frmProduction" وعند لضغط على الزر "حفظ اكسيل" يقوم بحفظ النتائج الظاهرة في النموذج الفرعي إلى ملف أكسيل مع إضهار نافذة الحفظ "أختيار مكان الحفظ و اسم الملف" استطعت القيام بهذه العملية لكن عن طريق الزر "تصدير" و إنشاء استعلام "qryExportExcel" والذي أحوال فعله تصدير النتائج الصادرة عن المتغير "Task" هل من أفكار بارك الله فيكم وفي علمكم ExportExcel.zip

بارك الله فيك أخي الكريم جعفر وزادك الله من علمه ورفع قدرك في الدارين

مشكوووووووور أخونا جعفر أتعبناك معنا إذا أمكن بعض الاستفسارات لماذا حذفت ، والمعيار '*' Like رغم أنها كانت تشتغل بشكل عادي مع بافي مربعات التحرير والنص لاحظت أيضا أنك غير " & "And" & " وقمت باستبدالها ب "&" ثم قمت بتغيير من Me.RealisationSubForm.Form.RecordSource = Task إلى Me.RealisationSubForm.Form.RecordSource = Replace(Task, "where And", "where") آآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآسف على كثرة الاسئلة

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

السلام عليكم ورجمة الله تعالى وبركاته عندي في النموذج "frmProduction" جميع مربعات التحرير والسرد تشتغل بشكل رائع إلا واحد بالطبع- الوحدة "cboUnits" حيث أنه وعند اختيار "Peinture" لا يقوم بإضهارها في النموذج الفرعي رغم أنها موجودة لا أدري ما سبب هذه المشكلة ولا أين أخطأت في الكود ملاحظة :من فضلك قم باختيار التاريخ من 01/01/2017 حتى تظهر جميع النتائج بارك الله فيكم وفي علمكم Search.zip

السلام عليكم ورحمة الله تعالى وبركاته أعتذر في تأخري في الرد لظروف قاهرة عند تجريبي للكود Private Sub Form_Load() If IsNull(Me.txtSave) Then Me.FilterOn = False: Exit Sub Me.Filter = "[Opérateur] =" & [txtSave] Me.FilterOn = True DoCmd.GoToRecord , , acNewRec End Sub دهشت لسهولته ولفعاليته خاصة وأنه لا يعتدي على باقي الأكواد وغمرتني لحظة بكاء أيضا قمت بإضافة نموذج فرعي أسميته "frmFilterAuto" وقمت بعمل التصفية من خلال وكانت النتيجة رائعة ملاحظة: السبب الذي جعلني أضيف الكود في الحدث "Load" حيث أن قيمة "Opérateur" تأتي من نموذج آخر ولا يستطيع المستخدم التعديل عليها بعد ذلك بارك الله في الجميع

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

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

أستاذنا يوسف أحمد بارك الله فيك ورزقك من فضله وشكرا لاهتمامك البالغ وأنا في غاية الخجل لجعلك تكتب من الموبايل أستاذنا رمهان لا أجد من الكلمات ما أعبر به عن امتناني فجزاك الله كل خير وزادك من علمه بارك الله فيكما ورفع قدركما في الدارين الكود شغال 100 %

لقد واجهتني هذه المشكلة الآن ولم أجد لها أي حل حيث إذا كان الجدول لا يحتوي على أي قيمة توافق القيمة txtSave التي في النموذج يقوم بعرض معلومات أخرى لا تطابق الشرط ثم بعد ذلك تظهر الرسالة "أنت الآن في السجل الأول" جربت الكود التالي لكن دائما ما أتلقى الرسالة "لا توجد معلومات لعرضها" سواء وجدت معلومات مطابقة أو لم توجد Dim rs As Recordset Dim criteria As String Set rs = CurrentDb.OpenRecordset("tblRealisation", dbOpenSnapshot, dbReadOnly) criteria = "[Opérateur] =" & Forms!tblRealisation![txtSave] rs.FindPrevious criteria If rs.NoMatch = True Then MsgBox "لا توجد معلومات لعرضها", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تنبيه" Exit Sub End If ملاحظة: واجهتني نفس المشكلة مع كود أستاذنا يوسف أحمد هل من حل لهذه المعضلة بارك الله فيكم

مشكور أستاذنا الغالي رمهان الكود شغال 100 % للأسف أستاذنا الكريم يوسف أحمد الكود لم يشتغل بعد التعديل أصبح Criteria = "[Machine]='" & [cboMachine] & "'" _ & "And [LaDate] = #" & Format(txtDate, "mm/dd/yyyy") & "#" _ & " And [Opérateur] = " & [cboOpérateur] في السطر الثاني تم إضافة & وإشارة التنصيص أصبحت قبل And في السطر الثالث تم إضافة & وإشارة التنصيص قبل And وتم حذف إشارة التنصيص في آخر السطر وهو الآن شغال 100 % بارك الله فيكما ورزقكما من فضله ورفع قدركما في الدارين

السلام عليكم ورحمة الله تعالى وبركاته أريد طباعة تقرير لذا أضفت هذا الشرط قبل الطباعة Criteria = "[Machine]='" & [cboMachine] & "'And [Opérateur] = " & [cboOpérateur] وهو يشتغل 100% لكن عند إضافة التاريخ إلى الشرط Dim rs As Recordset Dim Criteria As String Set rs = CurrentDb.OpenRecordset("tblHeuresPerdus", dbOpenSnapshot, dbReadOnly) Criteria = "[Machine]='" & [cboMachine] & "'" _ And "[LaDate] = #" & Format(txtDate, "\#mm\/dd\/yyyy\#") & "#" _ And [Opérateur] = " & [cboOpérateur]" دائما ما أتلقى Run-time error 13 Type mismatch حيث أن Machine نص LaDate تاريخ Opérateur رقم هل من مساعدة بارك الله فيكم

وهو كذلك مشرفنا الغالي جزاك الله كل خير آآآآآآآآآآآآسف على إتعابك معنا في هذا اليوم المبارك عيدك مبارك

الكود يعمل 100 % بارك الله فيك أستاذنا القدير رمهان

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

السلام عليكم ورحمة الله تعالى وبركاته عندي في النموذج زر الذهاب إلى الأمام زر الذهاب إلى الوراء أريد مثلا عند الضغط على زر الذهاب إلى الأمام أن بذهب إلى الأمام لكن بشرط معين فقمت بإدراج الكود التالي With Me.RecordsetClone .FindNext "[Opérateur] =" & [txtSave] If .NoMatch Then MsgBox "أنت الآن في السجل الأخير" Else Me.Bookmark = .Bookmark End If End With الكود يشتغل تمام إذا كان النموذج يفتح على أول سجل لكن لو جعلت النموذج يفتح على سجل جديد Private Sub Form_Open(Cancel As Integer) DoCmd.GoToRecord , , acNewRec End Sub وقمت بالضغط على زر الرجوع إلى الخلف تأتي الرسالة "أنت الآن في السجل الأول" وإذا قمت بالضغط على زر إلى الأمام يذهب مباشرة إلى السجل الثاني "طبعا حسب الشرط الموضوع" هل من حل بارك الله فيكم Next.zip

إضف فقط اشارة تنصيص لكل من Password و Text Private Sub ShowPassword_AfterUpdate() If Me.ShowPassword.Value = False Then Me.txtPassword.InputMask = "Password" Else Me.txtPassword.InputMask = "Text" End If End Sub

بارك الله فيكم ورزقكم من فضله وزادكم من علمه ورفع قدركم في الدارين أستذنا الغالي السيد جمال الكود يشتغل تمام 100 % سؤال إذا أمكن في الكود لم تسعمل ".Me" [cboDepartment] [txtUserName] هل من سبب لذلك