jjafferr

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

وعليكم السلام 🙂 مو جميع انواع خطوط الباركود Code39 يعملون بطريقة صحيحة ، في الرابط التالي ، ابحثي عن "ب. عمل الباركود:" ، فقد كتبت عن تجربتي : . جعفر

وعليكم السلام 🙂 هل جميع الاجهزة فيها نفس تحديثاث الوندوز والاكسس ؟ تحديثات الوندوز والاكسس ، مع ان بعضها يعمل مشكلة للبرامج ، ولكن معظمها مهم لعمل الاكسس 🙂 جعفر

وعليكم السلام 🙂 تفضل : . . جعفر

فيه Combobox ما موجود في النموذج

انزلت مرفقك وما اشتغل !! جعفر

وعليكم السلام 🙂 سؤالك غير واضح !! اعطنا بيانات نقدر نستعملها (مو صورة) ، واخبرنا النتيجة النهائية اللي تريدها (وممكن تكون صورة 🙂) جعفر

اخي بلال 🙂 عملت لك المطلوب حسب مرفقك وشرحك ، ولكن بعد تغييرك المعادلة ، رجاء ارفق المرفق الجديد والذي به المعادلات الاخيرة ، ثم اخبرنا الحقول التي تريد جمعها ، واخبرنا النتيجة النهائية 🙂 فالمعادلات اعلاه غير كاملة !! جعفر

وعليكم السلام 🙂 في الاستعلام ، المعادلة التالية ، انت حصلت على نتيجة TotalTime و TotalTime2 بعد ان ارسلت قيمها الى الدالة SubTotalTime ، فما تقدر تنادي الدالة مرة اخرى للنتائج : TotalTime222: SubTotalTime((DateDiff("n",0,[TotalTime]+[TotalTime2]))) والصحيح انها تُكتب هكذا : T2: SubTotalTime(((DateDiff("n",[TimeIn1],[TimeOut1])-0)+(DateDiff("n",[TimeIn2],[TimeOut2])-0)+(DateDiff("n",[TimeIn3],[TimeOut3])-0)+(DateDiff("n",[TimeIn4],[TimeOut4])-0)+(DateDiff("n",[TimeIn5],[TimeOut5])-0))+((DateDiff("n",[TimeIn11],[TimeOut11])-0)+(DateDiff("n",[TimeIn12],[TimeOut12])-0)+(DateDiff("n",[TimeIn13],[TimeOut13])-0)+(DateDiff("n",[TimeIn14],[TimeOut14])-0)+(DateDiff("n",[TimeIn15],[TimeOut15])-0))) جعفر

وعليكم السلام 🙂 مشكلتك في مكان آخر في الكود 🙂 اعمل Compile ، وصحح جميع الاخطاء ، وبيشتغل البرنامج كما يجب ان شاء الله 🙂 . وبما انك مصرح بنوعي يجب عليك في الكود تحديد اي نوع من انواع Recordset تريد ان تستعمل ، لأنك مصرح بالنوعين ، لذا يجب كتابة DAO ، واعمل Dim مستقل للـ Recordset وإلا فلن يُظهر لك اي مساعدة في الكود : Dim db As DAO.Database dim RS As DAO.Recordset جعفر

نفس طريقة اخواني محمد و خالد ، ولكن بدون الرجوع الى الجدول مصدر بيانات النموذج الفرعي ، وانما كل شيء من النموذج مباشرة : Dim rst As DAO.Recordset Set rst = Me.USER_PRIVILLAGE.Form.RecordsetClone rst.MoveFirst Do Until rst.EOF rst.Edit rst!DELETE = -1 rst.Update rst.MoveNext Loop جعفر

وعليكم السلام 🙂 الصق هذا الكود في حدث التقرير : Private Sub Report_NoData(Cancel As Integer) MsgBox "لا توجد سجلات للطباعة" Cancel = True End Sub جعفر

وعليكم السلام 🙂 انا دائما انصح بعمل حقلين في كل جدول: 1. حقل ترقيم تلقائي ، 2. حقل تاريخ ، والقيمة الافتراضية فيه = Now ويقوم الجدول تلقائيا بإدخال القيم لهذه الحقول ، وبالتالي تعرف تسلسل ادخال السجلات عن طريق اي من الحقلين 🙂 يمكنك الآن عمل حقل ترقيم تلقائي ، وسيعطي الاكسس جميع السجلات ترقيمها حسب تسلسل ادخال البيانات ، ومنها تعرف التسلسل 🙂 جعفر

وعليكم السلام اخي محمد 🙂 اهلا وسهلا بك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة يمكنك تصدير ملفات pdf و rtf (يشبه ملف الوورد في تنسيقه) و txt ، وهذه جميع الصيغ acFormatASP Microsoft acFormatHTML HTML acFormatIIS Microsoft acFormatPDF PDF acFormatRTF Rich text acFormatSNP Snapshot image acFormatTXT MS-DOS txt acFormatXLS Microsoft Excel acFormatXPS XPS image ويجب عليك مسبقا ان تختار التالي: 1. مصدر البيانات ، استعلام او جدول ، 2. صيغة الملف المراد تصديره (انظر اعلاه) ، 3. مسار حفظ ملف التصدير ، واذا لم تكتبه ، فسيفتح الاكسس نافذة لكي تختار اسم ومجلد الحفظ ، بينما يمكنك معاية وطباعة التقرير 🙂 يمكنك البحث في المنتدى لأي من هذه الاوامر 🙂 جعفر

لكل قسم في التقرير "احداثه" الخاصة به : جعفر

وعليكم السلام 🙂 جرب هذا الرابط جعفر

اخوي rockjone33 المشاركة اللي عرضها اخونا العود ابوخليل جدا بسيطه ، وهي من واقع قوانين المنتدى ، وقالها بكل احترام ، ومافي عند احدنا ضغينه على احد ، هي قوانين يحترمها الجميع ، والحمدلله المنتدى يعمل بسلاسه بها 🙂

السلام عليكم 🙂 اي شيء يُكتب بعد الامر DoCmd.Quit مثل (acQuitPrompt او acQuitSaveAll او acQuitSaveNone) هو لحفظ التغيير في تصميم النموذج/قاعدة البيانات ، وليس لحفظ السجل 🙂 فالامر DoCmd.Quit يكون كافيا 🙂 ولكن هناك ملاحظة في مساعد الاكسس: فإذن الامر الاصح للخروج من البرنامج هو : Application.Quit جعفر

اخوي rockjone33 كتبت لك رسالة على الخاص من يومين ، بس الظاهر انك ما لاحظتها !! ياريت تدخل عليها من الرابط : https://www.officena.net/ib/messenger/21011/?tab=comments#comment-54229 انا وانت فقط نقدر ندخل الرابط 🙂 جعفر

وعليكم السلام 🙂 1. خلينا نشوف اللي يشوفه الكمبيوتر ، استعمل هذا الكود ، خليه يشتغل ، وشوف النتائج في النافذة اسفل شاشة الكود (ثم الصقها في المنتدى علشان نشوف اذا في شيء منها غلط) : Private Sub Command_Click() Dim FileName As String Dim FilePath As String Dim FilePath1 As String FileName = Me.[bankcode] & Right(Year(Date), 2) & "0" & Month(Date) & Day(Date) & "100000" FilePath = Me.[FPath] & FileName & ".txt" FilePath1 = Me.[FPath] & FileName & ".PDF" debug.print Me.[bankcode] debug.print Right(Year(Date), 2) debug.print Month(Date) debug.print Day(Date) debug.print Me.[FPath] debug.print FilePath debug.print FilePath1 DoCmd.OutputTo acOutputReport, "word", acFormatPDF, FilePath1 DoCmd.OutputTo acOutputReport, "empdataa", acFormatTXT, FilePath MsgBox "Done" & " " & Me.FPath, vbInformation, "alert massege" End Sub . كذلك مو على العادة تسمية الزر باسم command ، عادة يكون command1 او command2 او ... ، فالظاهر اسم الزر خطأ في الكود ، لذا فالافضل عمل زر جديد ، ولصق الكود فيه ، ثم التجربة 🙂 جعفر

تفضل احد نتائج البحث: . . جعفر

هذه تجربتي مع الاستعلام الجدولي: جعفر

وعليكم السلام 🙂 اجعل البحث صديقك ، فالمنتدى مليئ بمثل اسألتك 🙂 جعفر

وعليكم السلام 🙂 هذا مثال: وهذا محاولة للتطبيق على مثالك (يجب مراعاة نوع الحقل: نص ، رقم ، او تاريخ) : dim myCriteria as string 'امثلة ' myCriteria = "[detach]='Male'" 'نص ' myCriteria = myCriteria & " [ID]=12" 'رقم ' myCriteria = myCriteria & " [iDate]=#29-05-2015#" 'تاريخ myCriteria = "sanduk.yat= " & FORMS!edaa1![ser] myCriteria = myCriteria & " AND" myCriteria = myCriteria & " sanduk.daf= " & forms!edaa1![daf] myCriteria = myCriteria & " AND" myCriteria = myCriteria & " sanduk.dat= #" & forms!edaa1![dat] & "#" DoCmd.RunSQL "DELETE sanduk.yat , sanduk.DAT , sanduk.SAH FROM sanduk WHERE " & myCriteria . جعفر