العبيدي رعد

اخي العزيز هذا النموذج يعرض لك مدخلات نوع المنتج فانت حين تختار اطفال يعرض لك كل ماتم ادخاله فهو يستقي معلوماته من استعلام

الشكر الجزيل لكم استاذ @Foksh لكن هناك أمر اسم المقترض يحفظ في جدول المقترضين في حال الغاء اضافة مبلغ القرض عند عدم وجود رصيد ماهي الطريقة لعدم الحفظ في جدول preson ولماذا يتم الحفظ فيه ؟

شكرا جزيلا تمت الاجابة

انا عملت جدول تعزيز لقاعدة البيانات وربطته مع جدول karz هل تقصد هكذا كما في البرنامج المرفق وعندي مشكلة اخرى عملت استعلام اسمه q-ras للترصيد لحركة الصندوق عملت حدث في فورم sarf في حقل tmaden بعد التحديث تظهر الرسالة رصيدك لايكفي لكنه يرحل ويظهر عندي الرصيد بالسالب قروض 4.rar

في بداية العمل وهو الاساس ادخال مبلغ التمويل اولا ولنقل هو رصيد اول المدة فعند ادخال اسم مالية عليا مثلا سوف يدخل الى جدول person والى جدول kabz قروض 4.rar

السلام عليكم اخوتي الافاضل المطلوب في فورم taazez هو ادخال اسم معين واحد فقط وانا اسميته مالية عليا على الفرض فما الاشكال ياترى ممكن التوضيح انا غايتي التعلم

استاذي نفرغه حتى من جدول 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 المشكلة انا مستورد البيانات من ملف اكسل وسوف احاول ترتيب الامر مثل ما تفضلتم به شكرا جزيلا لللاستاذ @عمر ضاحى على هذا الحل

هذا التوضيح