عبدالرزاق الحريبي
-
Posts
32 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه عبدالرزاق الحريبي
-
-
هذي النسخه قبل تحويلها الى 2007 وشغاله اول ما تقوم بتحويلها تظهر الاخطاء عند فتح الفرمين الموضحه اعلاه
-
الاخطاء عند فتح نموذج AddAccounts+EditAccounts
عند فتحها يعطي هذا الخطاء
Set rst = dbs.OpenRecordset("Accounts", dbOpenDynaset) -
السلام عليكم
اخواني الكرام قمت بترقية احد قواعد البيانات التي تم تنزيلها من موقعكم ولاكن توجد اخطا لا اعرف حلها ارجو مساعدتي بها
تم ارفاق القاعدة
-
السلام عليكم ورحمة الله وبركاته
استاذي الكريم
محمد عصامےاولا شكرا على الاجابه الجميله ثانيا ما اعتقد ان لي مشاركات سابقه اجبت عليها من نفسي ولاكن ليس لاظهار العضلات وانما كمعلومه واذا كان وقتك قالي فلماذا اخذت من وقتك الغالي للاجابه عليا بهذا الرد نعم انا مبتدى بالاكسس واترك مشاركات واقوم بالبحث اذا وجدت الاجابه ولما الاحظ انه تم الاجابه عليا اترك الاجابه ليستفيد منها المبتدئين امثالي
رمهان انا عندي كود قبل هذا لتشغبل استعلام الحاقي وانا كان المطلوب الشرط للاستعلام الالحاقي حتى لا يتكرر الالحاق في كل مره اضغط زر الترحيل وكان الكود الاول يقوم بترحيل جميع البانات التي فيها قيمة الصواب والخطا 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 علي اريد بالحقلين من تاريخ الى تاريخ ان يقوم باظهر جميع الحركات لمحمد وعلي حسب التاريخ دون التقيد برقم المورد
على ان تكون جميع الحركات للموردين فقط
-
اخواني الكرام
ارجوا مساعدتي عندي نموذج تقرير مبني على استعلام المعايير عند رقم المورد عند ادخال رقم المورد والضغط على امر تظهر البيانات
اريد عمل من تاريخ الى تاريخ في نفس النموذج ويظهر لي جميع البيانات بدون التقيد برقم المورد
او هل بالامكان ان اجعل النموذج يبناء على استعلامين استعلام عبر رقم المورد والاخر من تاريخ الى تاريخ
-
اشكرك اخي الكريم على التجاوب السريع
-
السلام عليكم ورحمة الله وبركاته
اخواني الكرام
اريد كود يقوم بمسح جميع السجلات بالنموذج الفرعي قبل حفظها لدي هذا الكود يقوم بمسح سجل واحد عند تحديده
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
-
اشكرك ابو خليل على التفاعل السريع
اريد الان عند الضغط على الزر بعد وضع الكود هذا ان لا تاتيني رساله بتحديث
-
ارجو مساعدتي بشرح عمل استعلام تحديث بحيث ياخذ القيمة من حقل بالنموذج وتغييرها بالقيمة الموجوده بجدول اخر غير مرتبط بالنموذج
تصحيح أخطاء حسابات الشجرة بعد الترقية الى 2007 (معدل)
في قسم الأكسيس Access
قام بنشر · تم تعديل بواسطه عبدالرزاق الحريبي
اسال الله ان يجعله في ميزان حسناتك مشكور اخي الكريم على التجاوب