العبيدي رعد

شكرا جزيلا استاذنا الكريم عند الترحيل من فورم sarf يتم الترحيل بنجاح لكن عند اغلاف النموذج تظهر رسالة بالمرفق ادناه كما انه لاينقص من استعلام q1 قروض 2.rar

وهذا الملف المرفق قروض التجربة الحالية.rar

تمت الاجابة وشكرا جزيلا لللاستاذ @Foksh والاستاذ @ابو خليل

السلام عليكم لدي برنامج قروض فيه جدول karz ارحل اليه من ثلاث نماج وهي taazez وهو لتعزيز مبلغ الصندوق من الجهة العليا (راس المال) sarf وهو لصرف مبالغ القروض للفرد kabz وهو لاستلام تسديدات قروض الافراد وعملت كود للترحيل لكنه لايدخل معلومات التعزيز التي هي اول عملية الى جدول karz

Private Sub td_AfterUpdate() If Com = "تعزيز الرصيد" Then t5.SetFocus ElseIf Com = "تسديد قرض" Then DoCmd.OpenForm "frm_mok" End If Me.Visible = False End Sub شكرا جزيلا استاذي ابو خليل كنت اقصد حدث بعد التحديث لتكست بوكس والكود مضبوط

السلام عليكم اريد كود بدالة if في حدث بعد التحميل لتكيست بوكس يكون كالتالي اذا كانت قيمة com تساوي تعزيز الرصيد عندها اذهب الى تكست t1 واذا كانت قيمة com تساوي تسديد قرض افتح النموذج mok

الشكر الجزيل لكما اخوتي الكرام .... الاساتذة الافاضل عملت هذا الكود ونجح ايضا معي لكن اريد بيان صحته وهل يكون بالترحيل مع بيانات كثيرة يأخذ مساحة اكبر ويثقل قاعدة البيانات Dim i As Long, x As Long i = Me.Tmaden x = Me.ts If i > x Then MsgBox "لا يمكنك الحفظ !! فرصيد الصندوق غير كاف", vbExclamation Me.Undo Else DoCmd.SetWarnings False DoCmd.RunSQL "insert into karz (no,nam,datee,maden,gehat,harkt,kf1,fon1,wor1,kf2,fon2,wor2,notesm,notesk1,notesk2) values (tid,comn,tdate,tmaden,comg,th,tk1,tf1,comk1,tk2,tf2,comk2,notm,notk1,notk2)" DoCmd.SetWarnings True MsgBox ("تم ترحيل البيانات بنجاح") tid = "" tdate = "" Tname = "" Tmaden = "" comg = "" Comr = "" tid.SetFocus End If ماذا تقصد ممكن التوضيح اكثر dbi ماهو ؟

شكرا جزيلا لكن لايقبل الترحيل لما مؤشر عليه والذي بعده كذلك عندما اعطي مبلغ اقل يقول لايوجد رصيد مع انه الرصيد اعلى من مبلغ القرض

شكرا جزيلا استاذي الفاضل تعبتك معي هذا اولا وثانيا في حال ادخال اي قيمة حتى اذا كانت اقل تظهر رسالة لايمكنك الحفظ كما في الصورة المرفقة انا جربت as long

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

ماهو الحل إذن ؟ ارفق لكم البرنامج المعمول ب اكسس 2010 والمطلوب في فورم sarf قروض التجربة الحالية.rar

شكرا جزيلا استاذ عملت المطلوب وبقي الامر نفسه

السلام عليكم عملت تكست بوكس بإسم ts تظهر اخر رصيد في حركة الصندوق ولدي تكست بوكس مبلغ القرض tmaden ووضعت كود في زر الترحيل اذا كان مبلغ القرض اكبر من الرصيد لايمكن ترحيل ... ولكن يظهر لي خطأ عند x=me.ts

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

هذا التوضيح

استاذنا العزيز شكرا لكم ارفق لكم قاعدة البيانات وطبقت على فورمين لم يعمل نماذج.rar

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

للرفع

للرفع

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

السلام عليكم شكرا استاذ ارفق قاعدة البيانات بعد تغيير الكود ولم يعمل نماذج المدخلات اربع 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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته لدي اربع نماذج للمدخلات واستخدمت الكود التالي في ترحيل البيانات بزر أمر 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 لماذا لايعمل الكود في بقية النماذج ؟

الشكر موصول لكلا الاستاذين الاستاذ خليفة شكرا لك علمتني طريقة جديدة اكتسبت منها فائدة @kkhalifa1960 @kanory الشكر البجزيل لك استاذ

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

السلام عليكم لدي نموذج للبحث بالكود بعدة حقول ... المطلوب عمل تقرير حسب نتيجة التصفية (البحث) DbSearch.rar