jjafferr

اخي الفاضل ، في الاكسس ، تقدر تستعمل الطريقتين ، وخصوصا اذا اردت حفظ هذه القيمة في الجدول 🙂

وعليكم السلام 🙂 الظاهر فيه خطأ في معادلتك ، فلما الصقتها في الاكسل اعطاني خطأ !! على العموم ، الظاهر معادلتك تكون هكذا في الاكسس: بطريقة iif والتي لا انصحك بها ، لأنك ما بتعرف كوعك من بوعك ، ولا بتقدر تعمل تعديل عليها : dim myDate as date myDate = IIf(D2 >= DateSerial(Year(D2), 1, 1) And D2 <= DateSerial(Year(D2), 6, 30), DateSerial(Year(D2), 6, 30), IIf(D2 >= DateSerial(Year(D2), 7, 1) And D2 <= DateSerial(Year(D2), 9, 30)), D2, DateSerial(Year(D2) + 1, 6, 30)) وبطريقة if السهلة الفهم والتعديل : Dim myDate As Date If D2 >= DateSerial(Year(D2), 1, 1) And D2 <= DateSerial(Year(D2), 6, 30) Then myDate = DateSerial(Year(D2), 6, 30) ElseIf D2 >= DateSerial(Year(D2), 7, 1) And D2 <= DateSerial(Year(D2), 9, 30) Then myDate = D2 Else myDate = DateSerial(Year(D2) + 1, 6, 30) End If جعفر

صبحك الله بالخير اخوي خالد 🙂 انا ضعت ، فرجاء التوضيح: انت قلت الطريقة صحيحة: ثم قلت الخبراء لا ينصحون: جعفر

الرابط يعطيك طريقة الحل 🙂 وبما ان سؤال الموضوع "رسالة خطا فى ويندوز ١٠ نطام ٦٤" قد تمت الاجابة عليه ، فرجاء اتباع قوانين المنتدى بعدم وضع سؤال آخر فيه 🙂 جعفر

اذن فنحن مجتاجين الى مرفق 🙂 جعفر

وعليكم السلام 🙂 اذا اردت ان تجعل هذه القيمة الافتراضية في النموذج ، فيجب ان يكون النموذج في وضع التصميم ، ويمكن عمل كود يغلق النموذج ثم يفتحه بصورة مخفية ويضع الكود فيه ويحفظه ويغلق النموذج ، ولكنها طريقة غير محبذه ولا يمكن استعمالها في قواعد البيانات بصيغة accde و mde ، فالافضل ان يكون عندك جدول خاص لهذه الاعدادات ، تقدر تحفظ فيه اي قيمة ، ولما تفتح النموذج ، تطلب هذه القيمة من الجدول 🙂 جعفر

من بحثي عن هذه المشكلة ، اليك ما قرأته ، ويمكن احدهم/كلهم يصلح المشكلة : 1. جرب البرنامج في الرابط : عندما يعطي برنامج الاكسس اخطاء - النسخة رقم 4 + عمل نسخ احتياطية - قسم الأكسيس Access - أوفيسنا (officena.net) فقد يكون عندك بقايا كود لم يحذفه الاكسس ، او مشكلة في جدول الاعدادات ، 2. عند عمل اي ربط مع قاعدة بيانات خارجية ، سواء عن طريق Recordset او غيرها ، يجب عليك في نهاية الكود ان تعمل له close ثم تجعله يساوي Nothing ، لأنك واقعا تكون فتحت قاعدة بيانات اخرى ، او سطر مثل DAO.DBEngine.SetOption dbMaxLocksPerFile, 100000 3. عند عمل Mail merge مع الوورد ، يجب التأكد بأنك اغلقت الربط في الكود ، 4. واسهل طريقة انك تعرف وين المشكلة في برنامجك ، افتح برنامجك حصريا لك : من اي قاعدة بيانات مفتوحه : او من برنامج الاكسس : . ثم . بهذه الطريقة ، اي جزء من الكود يحاول ان يفتح اتصال جديد ، سيعطيك الاكسس خطأ ، وهنا يجب ان تتبع الكود حتى تصل الى الجزئية/السطر الذي به المشكلة 🙂 جعفر

انا راح اعطيك التورته بكل اشكالها ، وانت اختار اللي تحبها ، بس بشرط انك تأخذ قطعة واحدة من كل نوع 🙂 Dim myWhere As String myWhere = "fat_num = " & Forms!Fatora_be!Fat_num 'اذا رقم myWhere = "fat_num = '" & Forms!Fatora_be!Fat_num & "'" 'اذا نص myWhere = "fat_num = #" & Forms!Fatora_be!Fat_num & "#" 'اذا تاريخ myWhere = myWhere & " And " myWhere = myWhere & "kind_haraka = " & Forms!Fatora_be!Kind_haraka 'اذا رقم myWhere = myWhere & "kind_haraka = '" & Forms!Fatora_be!Kind_haraka & "'" 'اذا نص myWhere = myWhere & "kind_haraka = #" & Forms!Fatora_be!Kind_haraka & "#" 'اذا تاريخ Me.total_fatora = Nz(DSum("total", "Haraka", myWhere), 0) جعفر

شكرا اخوي خالد 🙂 يعني يجب التأكد من وجود قيمة في الحقل قبل تنفيذ الامر !! جعفر

الحمدلله 🙂 هذا الرابط سيفيدك : اجعل برنامجك يعمل على النواتين 32بت و 64بت - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

🙂 1. عملت استعلام علشان احصل على مجاميع اسماء المدارس ، بدون تكرار: . 2. ثم استعلام آخر ، حتى يعطينا جميع سجلات المدرسة ، حسب قيمة الحقل cbo_schoole في النموذج tsform ، والذي سنغيره برمجيا : . 3. ثم فتحت النموذج fform ، وحفظت نسخة منه الى تقرير : . 4. تم حفظ التقرير باسم rpt ، ومصدر بياناته كان الاستعلام 2 اعلاه ، وعدلت على ارتفاعه ليكون نصف صفحة تقريبا ، حتى نضع تقريرين في كل صفحة pdf : . 5. وعملت هذه الدالة على زر "بيان درجات الطالب" ، لكي يتم تصدير التقارير لمفات pdf ، لكل مدرسة ملفها الخاص: Private Sub أمر26_Click() 'On Error Resume Next 'DoCmd.OpenReport "استيكر لغات", acViewPreview 'Me.Visible = False On Error GoTo err_Handle Dim rstG As DAO.Recordset Dim File_Name As String 'get the Group school names Set rstG = CurrentDb.OpenRecordset("Select * From qry_1_School_Name_Group") rstG.MoveFirst 'always start from the begining 'loop through the Group school names Do Until rstG.EOF 'assign the school name to the field, and apply its event, for visual looks Me.cbo_schoole = rstG!School_name Call cbo_schoole_AfterUpdate 'output pdf file name File_Name = Application.CurrentProject.Path & "\" & Me.cbo_schoole & ".pdf" Kill File_Name 'Delete old file, if any 'output the Reports as pdf file DoCmd.OutputTo acOutputReport, "rpt", acFormatPDF, File_Name, False, , , acExportQualityPrint 'next school rstG.MoveNext Loop Exit_err_Handle: 'cleaning up rstG.Close: Set rstG = Nothing Exit Sub err_Handle: If Err.Number = 53 Then 'no file to delete Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_err_Handle End Sub جعفر 1394.تصدير بي دي اف لكل مدرسة على حدى.mdb.zip

كان المفروض تستخدمه هكذا : Me.txtFullNameAR = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]='" & Me.txtEmpNumber & "'") جعفر

اذا كان نوع الحقل txtEmpNumber نص ، فيجب كتابة الكود هكذا: ='" & me.txtEmpNumber & "'") وبدل ان تطلب البيانات من الجدول/الاستعلام 3 مرات عن طريق الامر Dlookup ، يمكنك جلبهم مرة واحدة ، هكذا: جعفر

وفي انتظار الاستاذ هاني ان يعطينا ملف بدون كلمة سر في الكود 🙂 جعفر

السلام عليكم 🙂 حاول تصدر ملف pdf الى مجلد بارتيشن آخر غير \:C ، لأنه بعض الكمبيوترات ما تسمح لك الحفظ هناك !! جعفر

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

وعليكم السلام اخي بلال 🙂 نصيحة ، اذا لم تجد رد على سؤالك خلال يومين وكان عدد الذين قرأوا موضوعك كبير : . فتأكد ان معظم الذين قرأوا الموضوع لم يفهمون المطلوب !! لذا ، عليك إعادة كتابة سؤالك ، وبمثال من مرفقك يوضح المطلوب 🙂 جعفر

السلام عليكم 🙂 اذا قصدك انك تريد تغيير النموذج الفرعي حسب اختيارك من الكومبوبوكس ، فهذا ممكن كذلك ، ولكن سنحتاج الى مرفق لوسمحت 🙂 جعفر

اخي محمد ، الاوفيس لا علاقة له بالموضوع ، هي فقط اعدادات الوندوز ، الصورة رقم 4 من الرابط اعلاه ، واختيار دولة عربية في اختيارات Unicode ، والتأكد من عدم اختيار المربع Beta. ثم يجب اعادة تشغيل الكمبيوتر 🙂 جعفر

وعليكم السلام 🙂 تفضل : Private Sub yars_AfterUpdate() '1 Dim ys as Date ys = DateAdd("yyyy", Me.WARRNTY, Me.BDATE) + DateAdd("yyyy", 0, Me.BDATE) - BDATE Me.EDATE = DateAdd("D", -1, ys) 'Or '2 Dim ys As Date ys = Me.BDATE - 1 Me.EDATE = DateAdd("yyyy", Me.WARRNTY, ys) + DateAdd("yyyy", 0, ys) - ys End Sub جعفر

وعليكم السلام 🙂 اي رسالة من رسائل الاكسس تحتوي على كلمة خادم و OLE ، فمعناها ان اعدادات الوندوز (وليس الاكسس) يحتاج تغييرها لتدعم اللغة العربية ، هكذا: . جعفر

هذه الرسالة بسبب اعدادات الوندوز ، لغة Unicode ، عادة تكون اللغة العربية ، بس معاك ممكن تكون اللغة الفرنسية !! جرب هذه اللغة ، ثم تلك : . جعفر

تفضل 🙂 اضف المعيار الجديد الى استعلامك : . اعمل زر تحديث على النموذج الرئيسي ، وضع هذا الكود فيه: Dim rst As DAO.Recordset DoCmd.Hourglass True Set rst = Me.invdetails_Subform.Form.Recordset rst.MoveFirst Do Until rst.EOF DoCmd.SetWarnings False DoCmd.OpenQuery "updateStoretransaction" DoCmd.SetWarnings True rst.MoveNext Loop DoCmd.Hourglass False rst.MoveFirst . جعفر 1393.Update_From_SubForm.accdb.zip

وعليكم السلام 🙂 استعلامك صحيح ، وعندك حاليا شرط رقم الفاتورة ، واذا اردت ان تضيف الشروط / المعايير ، فتقدر تحت كل حقل ان تكتبه 🙂 اما اذا اردت تشغيل الاستعلام من النموذج ، فضع الكود التالي على اي حدث يناسبك: if me.dirty then me.dirty = false docmd.setwarnings false docmd.openquery "updateStoretransaction" docmd.setwarnings true ملاحظة: من الخطورة ان تضع On error Resume Next في كل حدث في الكود ، فاذا حدث خطأ معين ، فلن تعرف اين الخطأ وما هو الخطأ ، لذا يجب عليك اصطياد الخطأ ، ثم عمل كود لمراعاة هذا الخطأ فقط !! جعفر

وعليكم السلام 🙂 طريقتي: الدالة: Public Function getMSG(ID As Integer, ind As Integer) As String ' Dim A As String ' Dim x() As String ' ' A = DLookup("[txtMessageTitle] & '|' & [txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) ' x = Split(A, "|") ' getMSG = x(ind) ' 'OR combine in one line getMSG = Split(DLookup("[txtMessageTitle] & '|' & [txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID), "|")(ind) End Function . الاستعلام . والنتيجة: . جعفر 1392.Split.mdb.zip