تصحيح أكواد تصحيح أكواد لبرنامج حسابات

[ابو حمزة سكر]

السلام عليكم و رحمة الله و بركاته
أحبتي في الله السادة محترفي أكسس و السادة الأعضاء الكرام
بارك الله بكم جميعاً و جزاكم كل خير على ما تقدموه من معلومات و علم
عملت جاهداً و أنا مبتدأ على أن أستقي من هذا الموقع الكريم و أعضاءه المحترفين لأقوم بتصميم برنامجي الخاص الذي يخدمني في حساباتي
إلا أنني لست بمستوى يخولني أن أختم برنامجي دون اللجوء إلى كرمكم في بعض المعلومات الهامة
بنيت البرنامج حسب ما تعلمت منكم إلا أنني أخشى أن تكون الأكواد التي أستخدمتها تحتوي على أخطاء لتقصير مني
ما أتمناه منكم أن تنظرو إلى الأكواد التي في الأسفل و تعلموني إن أرتكبت خطأ و الأهم أن هذه الأكواد يجب أن لا تتعطل إن نقلته إلى كمبيوتر آخر
سأرفق أكواد واحد من النماذج لأبدأ به و جزاكم الله خيراً مقدماً
النموذج الرئيسي ..
دائماً بعد أن أضيف كود الذهاب إلى سجل جديد عند الفتح و بعد أستخدامه لعدة أيام فجئة أجد أني أفتح البرنامج فتظهر رسالة خطأ لا تختفي حتى ألغي الكود و أعيد كتابته و هذا يحدث في النموذج الرئيسي الذي يفتح عند الإقلاع
 

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
 

تم تعديل يونيو 17, 2017 بواسطه ابو حمزة سكر

[ابو حمزة سكر]

للرفع

[ابو حمزة سكر]

للرفع

[ابو حمزة سكر]

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

[أبو إبراهيم الغامدي]

وعليكم السلام ورحمة الله وبركاته

لم أر في الشفرة التي أرفقتها ما يريب سوى سطرين فقط

DoCmd.GoToRecord , "", acNewRec

استبدل هذه الصيغة بالصيغة التالية أين ماوجدت

DoCmd.GoToRecord , , acNewRec

 

[ابو حمزة سكر]

في 6/18/2017 at 23:21, أبو إبراهيم الغامدي said:

وعليكم السلام ورحمة الله وبركاته

لم أر في الشفرة التي أرفقتها ما يريب سوى سطرين فقط

DoCmd.GoToRecord , "", acNewRec

استبدل هذه الصيغة بالصيغة التالية أين ماوجدت

DoCmd.GoToRecord , , acNewRec

 

أشكرك أستاذي الكريم أبو أبراهيم جزاك الله كل خير على ردك
في اليومين الماضيين بحثت كثيراً بين الأكواد المطروحة و كنت آرى أسطر تهتم بالخطأ و لكني لم أعلم إن كانت أساسية و يجب كتابتها أو أنها ثانوية و تكتب في حالات معينة كمثل هذا السطر ..
 

On Error GoTo Err_Command28_Click

    DoCmd.GoToRecord , , acNewRec

Exit_Command28_Click:
    Exit Sub

Err_Command28_Click:
    MsgBox Err.Description
    Resume Exit_Command28_Click