البحث في الموقع

السلام عليكم و رحمة الله و بركاته أحبتي في الله السادة محترفي أكسس و السادة الأعضاء الكرام بارك الله بكم جميعاً و جزاكم كل خير على ما تقدموه من معلومات و علم عملت جاهداً و أنا مبتدأ على أن أستقي من هذا الموقع الكريم و أعضاءه المحترفين لأقوم بتصميم برنامجي الخاص الذي يخدمني في حساباتي إلا أنني لست بمستوى يخولني أن أختم برنامجي دون اللجوء إلى كرمكم في بعض المعلومات الهامة بنيت البرنامج حسب ما تعلمت منكم إلا أنني أخشى أن تكون الأكواد التي أستخدمتها تحتوي على أخطاء لتقصير مني ما أتمناه منكم أن تنظرو إلى الأكواد التي في الأسفل و تعلموني إن أرتكبت خطأ و الأهم أن هذه الأكواد يجب أن لا تتعطل إن نقلته إلى كمبيوتر آخر سأرفق أكواد واحد من النماذج لأبدأ به و جزاكم الله خيراً مقدماً النموذج الرئيسي .. دائماً بعد أن أضيف كود الذهاب إلى سجل جديد عند الفتح و بعد أستخدامه لعدة أيام فجئة أجد أني أفتح البرنامج فتظهر رسالة خطأ لا تختفي حتى ألغي الكود و أعيد كتابته و هذا يحدث في النموذج الرئيسي الذي يفتح عند الإقلاع Option Compare Database Private Sub Command149_Click() DoCmd.GoToRecord , "", acNewRec DoCmd.SetWarnings False DoCmd.OpenQuery "appendBillsIn", acNormal, acEdit CurrentDb.Execute ("UPDATE SALE set Ent = true where Ent =false") DoCmd.OpenQuery "appendamountIn", acNormal, acEdit CurrentDb.Execute ("UPDATE reciptIN SET Ent = True WHERE Ent = False ") End Sub Private Sub Customer_Name_AfterUpdate() Discount = DLookup("Discount", "cname", "[Customer_Name]") End Sub Private Sub Form_Open(Cancel As Integer) DoCmd.GoToRecord , , acNewRec End Sub Private Sub Text23_BeforeUpdate(Cancel As Integer) Text25 = Text14 - Text23 total = totalsale dis = totaldiscount safi = Text14 End Sub النموذج الفرعي ضمن النموذج الرئيسي .. Option Compare Database Private Sub ProductNoS_AfterUpdate() ProductNameS = DLookup("ProductName", "ProductiD", "productno=" & "[ProductNoS]") WholesalePriceS = DLookup("WholesalePrice", "ProductiD", "productno=" & "[ProductNoS]") UNIT = DLookup("UNIT", "ProductiD", "productno=" & "[ProductNoS]") DiscountS = DLookup("Discount", "SALE", "ID_sale=" & "[Id_saleS]") chickbalanceitems = DLookup("[balId]", "balanceItemchik", "[ProductNoS]=" & [ProductNoS]) If IsNull(DLookup("productno", "productid", "productno=" & "[ProductNoS]")) Then If MsgBox("هذ المنتج غير متوفر في قائمة المنتجات .. هل تريد إضافته الآن ", vbYesNo + vbExclamation, "منتج مفقود") = VbNo Then Me.Undo Exit Sub Else DoCmd.OpenForm ("productadd") DoCmd.GoToRecord , "", acNewRec End If End If End Sub Private Sub ProductNoS_DblClick(Cancel As Integer) DoCmd.OpenForm ("serch2") End Sub Private Sub QTY_Out_AfterUpdate() Discount_Cut = WholesalePriceS / 100 * DiscountS Price_Unit = WholesalePriceS - Discount_Cut total_Price = QTY_Out * Price_Unit End Sub