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

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

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

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

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

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]

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

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

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

Expand  

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

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

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

 

 

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

السلام عليكم

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

نماذج.rarFetching info...

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

للرفع

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

للرفع

[عمر ضاحى]

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

السلام عليكم

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

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

Expand  

اعذرنى 

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

 

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

  في 2‏/12‏/2023 at 07:19, عمر ضاحى said:

اعذرنى 

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

 

Expand  

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

[عمر ضاحى]

  في 2‏/12‏/2023 at 08:11, العبيدي رعد said:

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

Expand  

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

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 بواسطه عمر ضاحى

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

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

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

نماذج.rarFetching info...

[عمر ضاحى]

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

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

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

هذا التوضيح

[عمر ضاحى]

  في 2‏/12‏/2023 at 11:21, العبيدي رعد said:

هذا التوضيح

Expand  

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

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

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

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

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

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

 

[Eng.Qassim]

  في 2‏/12‏/2023 at 11:21, العبيدي رعد said:

هذا التوضيح

Expand  

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

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

 

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

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

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

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

[عمر ضاحى]

  في 3‏/12‏/2023 at 07:19, العبيدي رعد said:

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

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

Expand  

الحمد لله

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

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