السلام عليكم ورحمه الله وبركاته
اولاً انا اصمم برنامج حسابات لدى والحمد الله قد انتهيت منه ولكن اريد ان اضيف بعض الخصائص بحيث عندما يتم التعديل فى بيانات فى بعض الخانات يقوم البرنامج أليا بجلب البيانات القديمه مع البيانات الجديده وتسجيلها فى تابل جديد ولكن تظهر لى مشكله غربيه فى ارجو المساعده
رقم الخطأ
هذه الامر يتم تنفيذه بعد تعديل البيانات , وفى بدايه التحميل تقوم هذه الداله St.Madfo تقوم بحمل البيانات الموجوده فى تلك الخانه Text23
وأثناء التعديل إذا لم تكن البيانات متساوية يقوم البرنامج بإتشاء سجل جديده وحفظها وحفظ البيانات التى تم تغيرإذا كانت البيانات موجوده يقوم بالتعديل عليها حتى يتم معرفه متى تم التغير وما هى القيم قبل التغير وبعد التغير
ولكن ظهرت هذه المشكله ارجو المساعده شكراً DB.Execute (RSQL)
اولاً انا اصمم برنامج حسابات لدى والحمد الله قد انتهيت منه ولكن اريد ان اضيف بعض الخصائص بحيث عندما يتم التعديل فى بيانات فى بعض الخانات يقوم البرنامج أليا بجلب البيانات القديمه مع البيانات الجديده وتسجيلها فى تابل جديد ولكن تظهر لى مشكله غربيه فى ارجو المساعده
رقم الخطأ
كود :
run-time error '3134':
Syntax error in Insert Into Statement
هذه الامر يتم تنفيذه بعد تعديل البيانات , وفى بدايه التحميل تقوم هذه الداله St.Madfo تقوم بحمل البيانات الموجوده فى تلك الخانه Text23
وأثناء التعديل إذا لم تكن البيانات متساوية يقوم البرنامج بإتشاء سجل جديده وحفظها وحفظ البيانات التى تم تغيرإذا كانت البيانات موجوده يقوم بالتعديل عليها حتى يتم معرفه متى تم التغير وما هى القيم قبل التغير وبعد التغير
ولكن ظهرت هذه المشكله ارجو المساعده شكراً DB.Execute (RSQL)
كود :
Dim RRS As Recordset
Dim RSQL As String
Dim prevcard As String
Dim currcard As String
Dim EfadaNOo As String
Dim CurEfada As String
Dim log As String
If St.Madfo <> Text23.Text Then
RSQL = "Select * from [Report] where id=" + Trim$(Text240.Text)
Set RRS = DB.OpenRecordset(RSQL)
If RRS.RecordCount = 0 Then
RSQL = "INSERT INTO [Report][id] VALUES (Text240.Text)"
[color=#FFD700] DB.Execute (RSQL)[/color]
RSQL = "Select * from [Report] where id=" + Trim$(Text240.Text)
Set RRS = DB.OpenRecordset(RSQL)
RRS.Edit
RRS![case] = Trim$(St.Maden)
RRS![Level] = Trim$(St.Madfo)
Else
RRS![case] = Trim$(St.Maden)
RRS![Level] = Trim$(St.Madfo)
RRS.Update
End If
End If
End If