عبدالرزاق الحريبي

اسال الله ان يجعله في ميزان حسناتك مشكور اخي الكريم على التجاوب

هذي النسخه قبل تحويلها الى 2007 وشغاله اول ما تقوم بتحويلها تظهر الاخطاء عند فتح الفرمين الموضحه اعلاه ACCOUNT102.rar

الاخطاء عند فتح نموذج AddAccounts+EditAccounts عند فتحها يعطي هذا الخطاء Set rst = dbs.OpenRecordset("Accounts", dbOpenDynaset)

السلام عليكم اخواني الكرام قمت بترقية احد قواعد البيانات التي تم تنزيلها من موقعكم ولاكن توجد اخطا لا اعرف حلها ارجو مساعدتي بها تم ارفاق القاعدة ACCOUNT103.rar

السلام عليكم ورحمة الله وبركاته استاذي الكريم محمد عصامے‏ اولا شكرا على الاجابه الجميله ثانيا ما اعتقد ان لي مشاركات سابقه اجبت عليها من نفسي ولاكن ليس لاظهار العضلات وانما كمعلومه واذا كان وقتك قالي فلماذا اخذت من وقتك الغالي للاجابه عليا بهذا الرد نعم انا مبتدى بالاكسس واترك مشاركات واقوم بالبحث اذا وجدت الاجابه ولما الاحظ انه تم الاجابه عليا اترك الاجابه ليستفيد منها المبتدئين امثالي رمهان انا عندي كود قبل هذا لتشغبل استعلام الحاقي وانا كان المطلوب الشرط للاستعلام الالحاقي حتى لا يتكرر الالحاق في كل مره اضغط زر الترحيل وكان الكود الاول يقوم بترحيل جميع البانات التي فيها قيمة الصواب والخطا False فاذا عندي 10 فواتير غير مرحله واريد ترحيل واحدة فقط يقوم بترحيل جميعها وانا كنت اريد ان يقوم بترحيل الفاتوره التي اريدها والمستعرضه بالنموذج

تم حل المشكله بهذا الكود DoCmd.RunSQL "UPDATE invo SET invo.MZ = TRUE WHERE ref = Text66" حيث invo اسم الجدول mz حقل الصواب والخطاء ref رقم الفاتورة بالجدول invo Text66 مربع غير منضم بالنموذج تم وضع هذي الاجابه ليستفيد من يبحث عن حل هذي المشكله واشكر كل من تجاوب مع هذا الموضوع

اشكرك اخي الكريم على التجاوب السريع واسال الله ان يجعلها في ميزان حسناتك

اخواني الكرام ارجوا مساعدتي على تعديل كود CurrentDb.Execute ("UPDATE invo SET MZ = True WHERE MZ = False") هذا كود لشرط لتنفيذ استعلام الحاقي اريد اضافة شرط اخر عندما يكون الرقم الموجود في مربع النص في هذا النموذج يطابق مربع النص في الجدول المراد الحاق البيانات منه انا لا اريد الحاق جميع البيانات التي بالجدول وانما عندما يطابق رقم الفاتورة الموجوده على النموذج بنفس الرقم الموجود بالجدول

اخواني الكرام ارجو مساعدتي في انا يظهر اسم المستخدم في النماذج حسب الدخول لنظام المستخدمين في الاكسس وتدوين اسم مدخل الحركة وتقبلو مني فائق الشكر والتقدير

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

اخي الكريم جربت هذه الطريقه بالسابق ولم تنجح اريد اظهار جميع الخركات اذا كان رقم المورد تظهر جميع حركات المورد اذا لم يكن موجود رقم المورد تظهر جميع الحركات للموردين جميعا حسب التاريخ

تم ارفاق مثال يجود عند ادخل رقم المورد 1 محمد يظهر الحركات الخاصه به او 2 علي اريد بالحقلين من تاريخ الى تاريخ ان يقوم باظهر جميع الحركات لمحمد وعلي حسب التاريخ دون التقيد برقم المورد على ان تكون جميع الحركات للموردين فقط db.rar

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

اشكرك اخي الكريم على التجاوب السريع

السلام عليكم ورحمة الله وبركاته اخواني الكرام اريد كود يقوم بمسح جميع السجلات بالنموذج الفرعي قبل حفظها لدي هذا الكود يقوم بمسح سجل واحد عند تحديده On Error Resume Next If MsgBox("هل تريد بالتأكيد حذف البيانات ؟", vbInformation + vbYesNo, "حذف") = vbYes Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings True MsgBox "تم حذف السجل " Else MsgBox "تم الإلغاء " End IfEnd Sub

اشكركاخي الكريم على التجاوب السريع واسال الله ان يجعلها في ميزان حسناتك

السلام عليكم ورحمة الله وبركاته اخواني الكرام اريد كود يقوم بالاتي لدي مربع تحرير وسرد + مربع نص اريد عند وجود القيمة "اجل" بالمربع تحرير وسرد تكون قيمة مربع نص 01 وفي حالة القيمة"نقدا" يكون مربع النص 02

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

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

لسلام عليكم ورحمة الله وبركاته اخواني الكرام لدي نموذج يحتوي على نموذج فرعي ونموذج رئيسي عند القيام بامر حذف يقوم بالحذف سجل من النموذج الفرعي اذا كان النموذج الفرعي يحتوي على سجلين يقوم فقط بحذف واحد فقط اريد طريقه لعمل حذف لجميع السجلات بالنموذج الرئيسي والفرعي الظاهره بالنموذجين

السلام عليكم ورحمة الله وبركاته اخواني الكرام بحثت طويلا ولم اجد حل للمشكله وهي اريد عمل نموذج لطباعة الباركود ارجو مساعدتي بذلك

اشكرك اخي الكريم تم حل المشكله بوضع هذا الكود بالبدايه rs.MoveFirst

السلام عليكم ورحمة الله وبركاته اخواني الكرام وجدت في احد المشاركات طريقه للبحث وجهتني مشكله اريد التعديل عليها بحيث عند الضغط على زر البحث يظهر البيانات في حالة عدم وجودها يظهر رساله بعدم الوجود ويمكنني البحث اكثر من مره عن سجلات بدون العوده للسجلات الاولى او الاخيره Private Sub cmdSearch_Click() Dim strSearch As String Dim rs As Object Set rs = Me.RecordsetClone If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then MsgBox "رجاء ادخل رقم الصنف للبحث عنه", vbOKOnly, "خطأ في البحث" Me![txtSearch].SetFocus Exit Sub End If strSearch = Me![txtSearch] With rs .FindNext "[Number] = '" & strSearch & "'" If .Number <> strSearch Then MsgBox "هذا الصنف غير موجود: " & strSearch, , "غير موجود" Me.txtSearch = "" Me![txtSearch].SetFocus ElseIf .NoMatch Then MsgBox "آخر سجل في البحث عن : " & strSearch, , "آخر سجل" Me.cmdSearch.Caption = "بحث" Me.txtSearch = "" Me![txtSearch].SetFocus Me.cmdSearch.ForeColor = RGB(0, 0, 255) DoCmd.GoToRecord , , acFirst Else Me.Bookmark = .Bookmark MsgBox "تم ايجاد الصنف : " & strSearch, , "مبروك" Me.cmdSearch.Caption = "اكمال البحث" Me.cmdSearch.ForeColor = RGB(255, 0, 0) End If End With rs.Close Set rs = Nothing End Sub

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

ارجو مساعدتي بشرح عمل استعلام تحديث بحيث ياخذ القيمة من حقل بالنموذج وتغييرها بالقيمة الموجوده بجدول اخر غير مرتبط بالنموذج