ترحيل بالكةد

[رعد داود]

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

ترحيل بالكود.accdb

[محمد أبوعبدالله]

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

يوجد كود واحد فقط

DoCmd.SetWarnings False
DoCmd.RunSQL "insert into table1 (nem,nnumber,tele,amount) values (nem,nnumber,tele,amount)"
DoCmd.SetWarnings True

اين الكود الثاني ليتم مراجعته

تحياتي

[محمد أبوعبدالله]

وتفضل هذه طريقة اخرى لاضافة البيانات من النموذج

    mySQL = "Select * From table1"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    
        rst.AddNew
        
        rst!nem = nem
        rst!nnumber = nnumber
        rst!Tele = Tele
        rst!Amount = Amount
        
        rst.Update
        
        MsgBox "Done"

تحياتي

[رعد داود]

26 minutes ago, محمد ابوعبد الله said:

وتفضل هذه طريقة اخرى لاضافة البيانات من النموذج

    mySQL = "Select * From table1"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    
        rst.AddNew
        
        rst!nem = nem
        rst!nnumber = nnumber
        rst!Tele = Tele
        rst!Amount = Amount
        
        rst.Update
        
        MsgBox "Done"

تحياتي

تسلم  اخي  وحياك  الله"

هذا  الكود  موجود في  زر  كود1

Private Sub Command12_Click()
DoCmd.RunSQL ("Insert Into karz (id,nam,datee,maden,gehat,ratib)Values" _
     & "('" & Me.tid & "'," & "'" & Me.Tname & "'," & "#" & Me.tdate & "'," & "#" & Me.Tmaden & "'," & "'" & Me.comg & "'," & "'" & Me.Comr & "#)")
End Sub

اريد  اعرف  مالخطأ  فيه  وايهم  افضل من  حيث  الدقة وسهولة  الترحيل

 

[محمد أبوعبدالله]

اكيد الكود الاول افضل

DoCmd.RunSQL "insert into table1 (nem,nnumber,tele,amount) values (nem,nnumber,tele,amount)"

وشخصيا استخدم الكود الذي وضعته لك

لاني اعتقد ان تقسيم الكود افضل لمعرفة مكان الخطأ بسهولة

تحياتي