ترحيل عن طريق الكود

[العبيدي رعد]

بسم الله الرحمن الرحيم

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

لدي  اربع نماذج  للمدخلات   واستخدمت  الكود التالي  في ترحيل البيانات  بزر  أمر

mySQL = "Select * From tabr"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    
        rst.AddNew
        
        rst!ID = T2
        rst!nom = T3
        rst!sand = Ts
        rst!datee = T4
        rst!resever = Com1
       
        rst!rasee = Com2
        rst!faree = Com3
        rst!oytde = T5
        rst!daleel = comd4
        rst!notes = t7
        rst!years = Ty
        
        rst.Update
       
Me.Refresh
       
       MsgBox "تم الترحيل بنجاح"
       
T2 = ""

Com1 = ""
Com2 = ""
Com3 = ""
com4l = ""
T3 = ""
T4 = ""
T5 = ""
t7 = ""
Com4 = ""

T4.SetFocus

اريد أعرف السبب في  عمل الكود مع  نموذج واحد  حيث  غيرت  فقط هذا  الكود  حسب الجدول  rst!oytde = T5

 لماذا  لايعمل الكود  في بقية النماذج ؟     

 

[kanory]

4 ساعات مضت, العبيدي رعد said:

اريد أعرف السبب في  عمل الكود مع  نموذج واحد  حيث  غيرت  فقط هذا  الكود  حسب الجدول  rst!oytde = T5

 لماذا  لايعمل الكود  في بقية النماذج ؟     

هل النماذج فرعية ؟؟؟؟ ام نماذج رئيسية ؟؟؟ وهل كل النماذج مفتوحة ؟؟؟

اذا كانت نماذج رئيسية وكلها مفتوحة غير في الكود بهذا الشكل ... سوف اكتب لك صيغة لعنصر واحد وانت اكمل الباقي """""

rst!ID = Forms![Form1]![T2]
  ال اسم النموذج الذي يوجد به ذلك العنصر( Form1 ) مع ملاحظة تغيير اسم النموذج 

 

[العبيدي رعد]

السلام عليكم

شكرا استاذ    ارفق قاعدة البيانات  بعد تغيير  الكود  ولم يعمل

نماذج المدخلات  اربع 
sarfde  , sarfdo  , waredde ,  wareddo

 

mySQL = "Select * From tabr"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    
        rst.AddNew
        
        rst!ID = Forms![wareddo]![T2]
        rst!nom = Forms![wareddo]![T3]
        rst!sand = Forms![wareddo]![Ts]
        rst!datee = Forms![wareddo]![T4]
        rst!resever = Forms![wareddo]![Com1]
       
        rst!rasee = Forms![wareddo]![Com2]
        rst!faree = Forms![wareddo]![Com3]
        rst!indo = Forms![wareddo]![T5]
        rst!daleel = Forms![wareddo]![Com4]
        rst!notes = Forms![wareddo]![t7]
        rst!years = Forms![wareddo]![Ty]
        
        rst.Update
       
Me.Refresh
       
       MsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ"
       
T2 = ""

Com1 = ""
Com2 = ""
Com3 = ""
com4l = ""
T3 = ""
T4 = ""
T5 = ""
t7 = ""
Com4 = ""

T4.SetFocus

 

 

[العبيدي رعد]

السلام عليكم

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

نماذج.rar

[العبيدي رعد]

للرفع

[العبيدي رعد]

للرفع

[عمر ضاحى]

في 29‏/11‏/2023 at 10:28, العبيدي رعد said:

السلام عليكم

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

نماذج.rar 34.14 kB · 5 downloads

اعذرنى 

انا مش فاهم المطلوب صراحتا 

 

[العبيدي رعد]

49 دقائق مضت, عمر ضاحى said:

اعذرنى 

انا مش فاهم المطلوب صراحتا 

 

عندي  اربعة فورمات  أود ترحيل معلوماتها  الى  جدول  tabr   بواسطة  الكود   بمعنى  لم  ارجع البانات
مباشرة  للجدول  ... هل  ممكن  هذا  ؟  عملت  هذا  الكود  ولكنه  لم  يعمل

[عمر ضاحى]

18 دقائق مضت, العبيدي رعد said:

عندي  اربعة فورمات  أود ترحيل معلوماتها  الى  جدول  tabr   بواسطة  الكود   بمعنى  لم  ارجع البانات
مباشرة  للجدول  ... هل  ممكن  هذا  ؟  عملت  هذا  الكود  ولكنه  لم  يعمل

استخدم هذا الكود مع اى فورم 
هذا للاضافة

Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("tabr", dbOpenDynaset)
With rst
    .AddNew
    ![id] =
    ![nom] =
    ![sand] =
    ![datee] =
    ![resever] =
    ![rasee] =
    ![faree] =
    ![onde] =
    ![oytde] =
    ![indo] =
    ![outdo] =
    ![daleel] =
    ![notes] =
    ![years] =
    .Update
    .Close
End With
Set rst = Nothing
db.Close
Set db = Nothing

عطل ما تريد تعطيله 

وفعل ما تريد ترحيله

 

------------------------------------------

 

هذا للتعديل

Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("tabr", dbOpenDynaset)
With rst
    .FindFirst Criteria:=
    If Not .NoMatch Then
        .Edit
        ![id] =
        ![nom] =
        ![sand] =
        ![datee] =
        ![resever] =
        ![rasee] =
        ![faree] =
        ![onde] =
        ![oytde] =
        ![indo] =
        ![outdo] =
        ![daleel] =
        ![notes] =
        ![years] =
        .Update
    End If
    .Close
End With
Set rst = Nothing
db.Close
Set db = Nothing

 

اتمني هذا ما تريده

 

تم تعديل ديسمبر 2, 2023 بواسطه عمر ضاحى

[العبيدي رعد]

استاذنا العزيز  شكرا  لكم

ارفق لكم  قاعدة البيانات وطبقت على  فورمين  لم  يعمل

نماذج.rar

[عمر ضاحى]

انا شايف ان الكود يعمل عندك عادي

ممكن توضح ايه الخطأ ؟

[العبيدي رعد]

هذا التوضيح

[عمر ضاحى]

منذ ساعه, العبيدي رعد said:

هذا التوضيح

ده ممكن بسبب شئ متعارض 

مثل حقل نوع رقمي وانت مدخل نص

او رقم مفتاح اساسي غير قابل للتكرار وانت بتحاول تضيفه مره اخري 

راجع بيانات (انواع الحقول)  الجدول غندك او المفاتيح 

ربما تحتاج لايقاف مثل اضافة رقم ID فى حالة كان الرقم نوع تلقائى ده قد يكون المشكله 

او قد يكون هناك حقل مطلوب ولم تدخل البيانات الخاصه به

 

[Eng.Qassim]

10 ساعات مضت, العبيدي رعد said:

هذا التوضيح

اخي العبيدي ...لتلافي هذه المشكلة ..اجعل  الرقم المعرف...رقم تسلسلي ..يعني autoNumber

اما نوع عملة قبض السند فاعمل بها جدول ..بالدينار او الدولار مع رقم تسلسلي ...واعمل منها كومبوبوكس في النموذج 

 

حقل ال sand  لا تحتاجه في هذا الجدول 

[العبيدي رعد]

شكرا جزيلا (((( الترحيل يتم))))) لكن هذه الرسالة تظهر  علما الحقول  الرقمية يتم ادخال رقم والنصية نص

بالنسبة للاستاذ @Eng.Qassim  المشكلة  انا مستورد البيانات من ملف  اكسل  وسوف احاول ترتيب الامر مثل ما تفضلتم به
شكرا جزيلا لللاستاذ @عمر ضاحى  على هذا الحل

[عمر ضاحى]

51 دقائق مضت, العبيدي رعد said:

شكرا جزيلا (((( الترحيل يتم))))) لكن هذه الرسالة تظهر  علما الحقول  الرقمية يتم ادخال رقم والنصية نص

بالنسبة للاستاذ @Eng.Qassim  المشكلة  انا مستورد البيانات من ملف  اكسل  وسوف احاول ترتيب الامر مثل ما تفضلتم به
شكرا جزيلا لللاستاذ @عمر ضاحى  على هذا الحل

الحمد لله

اذا يعنى تم حل المشكله ام لا

اذا تم حل المشكله اختر افضل اجابة لغلق الموضوع