العبيدي رعد

استاذي نفرغه حتى من جدول person اهتديت لحل في بداية الادخال بقاعدة البينات عندما تصفر نهائيا وه و في حال عدم وجود الاسم يتم يحفظه واضافته كما في الكود ادناه Private Sub t2_NotInList(NewData As String, Response As Integer) If (MsgBox("الإسم غير موجود " & vbCrLf & "هل تريد اضافته", vbInformation + vbMsgBoxRight + vbYesNo, "النظام") = vbYes) Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO person( nam ) Values('" & Me.t2.Text & "');" DoCmd.SetWarnings True Response = acDataErrAdded Else Response = acDataErrContinue Me.t2.Undo End If End Sub

شكرا جزيلا استاذ خليفة لاحظ في حال افراغ كل البيانات الان وابدا بفورم taazez فهو اول عملية نبدأ بها وهي تعزيز الصندوق فهو لايرحل ؟ ممكن ارشادنا للسبب

السلام عليكم عندي ثلاث نماذج ترحل بياناتها الى جدول واحد وهو جدول karz النماذج هي التعزيز لتمويل صندوق القروض taazez kabz يختص بتسديدات الموظفين من القرض الذي بذمتهم sarf وهو لصرف مبلغ القرض للموظف برجاء ملاحظة كودات الترحيل علما جربت في فورمي kabz و sarf ترحل الى الجدول فقط فورم taazez وهو في حال غلقه تخرج رسالة اذا امكن معالجتها قروض 3.rar

مشكلة q1 حليتها حيث كان من المفروض ان يكون حقل daen القيمة الافتراضية 0 يبقى تكست ts في النموذج sarf لايتجدد المتبقي الا في حال الخروج من النموذج

شكرا جزيلا استاذنا الكريم عند الترحيل من فورم 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