تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعده فى هذه الكود
#1
السلام عليكم ورحمه الله وبركاته

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

رقم الخطأ
كود :
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
الرد }}}}
تم الشكر بواسطة:
#2
لا احد يريد المساعده
الرد }}}}
تم الشكر بواسطة:
#3
الخطأ فى عبارة الإدخال صراحة لا استخدم الـــ dao ولكن ارفع المشروع للتعديل عليه
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
الرد }}}}
تم الشكر بواسطة:
#4
اشكرك لأهتماك ولكنى قد وجت المشكله كانت فى قاعده البيانات وتم حلها أشكرك اخى
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطأ فى الكود 2147217865- اسلام الكبابى 2 154 22-04-16, 10:51 PM
آخر رد: اسلام الكبابى
  تصحيح هذا الكود اسلام الكبابى 0 345 17-04-15, 06:05 PM
آخر رد: اسلام الكبابى
  أريد كودآ سهلآ بدلآ من هذا الكود الغبى اسلام الكبابى 2 430 13-04-15, 08:00 PM
آخر رد: اسلام الكبابى
  اضافة سجل باستخدام الكود اسلام الكبابى 1 522 25-03-15, 09:05 PM
آخر رد: اسلام الكبابى
Question [سؤال] امل المساعده في دمج قواعد البيانات allayl 4 731 06-07-14, 05:45 AM
آخر رد: WAEL ABED
Question [سؤال] امل المساعده في ضغط و إصلاح قاعدة البيانات allayl 2 656 18-06-14, 01:53 AM
آخر رد: allayl
Question [مثال] المساعده في مثال إظهار نتيجة البحث في ليست allayl 3 1,106 04-10-13, 01:20 AM
آخر رد: ZOUZOU
  [vb6.0] امل المساعده في تصدير البيانات الى الوورد allayl 4 1,160 16-09-13, 09:32 PM
آخر رد: allayl
  المساعده في مثال إظهار نتيجة البحث على شكل شريط متحرك allayl 0 922 31-08-13, 02:27 AM
آخر رد: allayl
  المساعده في مثال البحث عن قبل إنتهاء التاريخ بأسبوعين allayl 7 973 30-08-13, 03:31 PM
آخر رد: benomar

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم