[closed]

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

اولاً انا اصمم برنامج حسابات لدى والحمد الله قد انتهيت منه ولكن اريد ان اضيف بعض الخصائص بحيث عندما يتم التعديل فى بيانات فى بعض الخانات يقوم البرنامج أليا بجلب البيانات القديمه مع البيانات الجديده وتسجيلها فى تابل جديد ولكن تظهر لى مشكله غربيه فى ارجو المساعده

رقم الخطأ

كود :

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

[closed]

لا احد يريد المساعده

[hago]

الخطأ فى عبارة الإدخال صراحة لا استخدم الـــ dao ولكن ارفع المشروع للتعديل عليه

[closed]

اشكرك لأهتماك ولكنى قد وجت المشكله كانت فى قاعده البيانات وتم حلها أشكرك اخى