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

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

قام بنشر

السلام عليكم

عندي ثلاث  نماذج  ترحل بياناتها  الى جدول  واحد  وهو  جدول  karz

النماذج هي   التعزيز لتمويل  صندوق القروض  taazez

 kabz  يختص بتسديدات الموظفين  من القرض الذي بذمتهم

sarf  وهو لصرف  مبلغ القرض  للموظف

برجاء ملاحظة كودات الترحيل   علما  جربت  في  فورمي  kabz   و  sarf  ترحل الى الجدول

فقط  فورم  taazez   وهو في حال غلقه  تخرج  رسالة  اذا امكن  معالجتها

 

قروض 3.rar

قام بنشر

استاذ @العبيدي رعد المرفق يعمل تمام ومافي رسائل ......... تابع الفيديو . :fff:

                                                                                                                               image.gif.c43c01172dbaf235a1b6d20dd5ff2fa0.gif

قروض 3-1.rar

  • Like 1
قام بنشر
3 دقائق مضت, kkhalifa1960 said:

استاذ @العبيدي رعد المرفق يعمل تمام ومافي رسائل ......... تابع الفيديو . :fff:

                                                                                                                               image.gif.c43c01172dbaf235a1b6d20dd5ff2fa0.gif

قروض 3-1.rar 78.03 kB · 0 downloads

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

فهو  لايرحل  ؟  ممكن  ارشادنا  للسبب

قام بنشر

ايضاً شغال تمام ...............تابع الفيديو .:fff:

                                                                                               image.gif.ebae496057ded0765b30c8124313deaf.gif

قام بنشر
4 دقائق مضت, kkhalifa1960 said:

ايضاً شغال تمام ...............تابع الفيديو .:fff:

                                                                                               image.gif.ebae496057ded0765b30c8124313deaf.gif

استاذي  نفرغه  حتى  من  جدول  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

  • Like 1
قام بنشر
7 دقائق مضت, العبيدي رعد said:

استاذي  نفرغه  حتى  من  جدول  person

كيف تفرغه وهو مرتبط ؟؟؟

  • Like 2
قام بنشر
9 دقائق مضت, العبيدي رعد said:

استاذي  نفرغه  حتى  من  جدول  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

يبدو ان الأخ الكريم لم يأخذ بالمعنى الذي بين السطور في هذه المشاركة 😁 

قام بنشر
12 دقائق مضت, Foksh said:

يبدو ان الأخ الكريم لم يأخذ بالمعنى الذي بين السطور في هذه المشاركة 😁 

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

قام بنشر (معدل)
8 دقائق مضت, العبيدي رعد said:

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

اخي الفاضل في نموذج تعزيز يوجد حقل مطلوب كمفتاح أساسي وهو الحقل الذي به "مالية عليا" ، وبما ان الجدول التابع له معلومات هذا الحقل فارغ فلا يمكن اجراء 

استعلام التحديث اذا لم تكن القيمة "مالية عليا* موجودة في الجدول المصدر لها .

 

وضحت الفكرة أخونا الغالي 🤗

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

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

لاحظ في هذا الكود انك ستقوم بإضافة القيمة الجديدة "مالية عليا" الى الجدول person في الحقل nam .

تم تعديل بواسطه Foksh
قام بنشر
16 دقائق مضت, kkhalifa1960 said:

كيف تفرغه وهو مرتبط ؟؟؟

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

 

قروض 4.rar

قام بنشر

ملاحظة قد تفيدك وتفيدني..

في القيم الثابتة يجب ان يكون هناك نماذج لإضافة القيم الثابتة داخل جداولها ، وهو من متطلبات تأسيس بيانات المشروع ، كمثال :-

اسماء الأصناف في برنامج محاسبي

أسماء الصفوف في برنامج متابعة مدرسة

الخ من ثوابت. وفي مشروعك مالية عليا يبدو انها من الثوابت .

قام بنشر
49 دقائق مضت, Foksh said:

ملاحظة قد تفيدك وتفيدني..

في القيم الثابتة يجب ان يكون هناك نماذج لإضافة القيم الثابتة داخل جداولها ، وهو من متطلبات تأسيس بيانات المشروع ، كمثال :-

اسماء الأصناف في برنامج محاسبي

أسماء الصفوف في برنامج متابعة مدرسة

الخ من ثوابت. وفي مشروعك مالية عليا يبدو انها من الثوابت .

 

انا عملت  جدول  تعزيز  لقاعدة البيانات  وربطته  مع جدول  karz  هل تقصد  هكذا  كما  في  البرنامج المرفق
وعندي  مشكلة  اخرى  عملت  استعلام  اسمه  q-ras  للترصيد لحركة الصندوق

عملت  حدث  في  فورم  sarf   في حقل  tmaden  بعد  التحديث  تظهر  الرسالة رصيدك لايكفي
لكنه  يرحل   ويظهر  عندي  الرصيد بالسالب 
 

قروض 4.rar

  • أفضل إجابة
قام بنشر (معدل)
7 دقائق مضت, العبيدي رعد said:

تمت  الاجابة

أخي الفاضل أنت عضو مميز وأتمنى لك الترقيات الأعلى :fff:، لكن كلمة تمت الإجابة تعني اختيار أفضل إجابة في أي رد من الردود حتى يتم إغلاق الموضوع إشعاراً بأن المشكلة قد تم حلها . وليس بالرد على المشاركة بتمت الإجابة فقط .

 

راجع مواضيعك السابقة لإغلاقها بهذه الطريقة :clapping:

تم تعديل بواسطه Foksh
قام بنشر
21 ساعات مضت, Foksh said:

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information