اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

نماذج المدخلات  اربع 
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

 


 

نموذج.PNG

رابط هذا التعليق
شارك

السلام عليكم

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

نماذج.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

 

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

 

تم تعديل بواسطه عمر ضاحى
  • Like 1
رابط هذا التعليق
شارك

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

هذا التوضيح

خطأ.PNG

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

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

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

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

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

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

 

  • Like 2
رابط هذا التعليق
شارك

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

هذا التوضيح

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

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

image.png.c46f46b0e35b7cd7cdc4663c3d7fb29c.png 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

الحمد لله

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information