عند عدم وجود اسم المستفيد

[marwa41]

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

عند كاتبة اسم المستفيد فى نموذج ادخال الشيك ولم يتم وجوده فى جدول المستفيدين يتم فتح نموذج المستفيدين وكتابة بياناته

مشروع الشيكات.rar

تم تعديل يوليو 21, 2020 بواسطه marwa41

[عفرنس]

9 دقائق مضت, marwa41 said:

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

عند كاتبة اسم المستفيد فى نموذج ادخال الشيك ولم يتم وجوده فى جدول المستفيدين يتم فتح نموذج المستفيدين وكتابة بياناته

مشروع الشيكات.rar 69.92 kB · 0 تنزيلات

تفضل 

مشروع_الشيكات.accdb

[marwa41]

حضرتك مش ده المطلوب دى سهله لكن انا عايز 

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

[محمد أبوعبدالله]

السلام عليكم

تفضل اخي الكريم

عند الضغط المزدوج على حقل كود المستفيد

Private Sub كود_المستفيد_DblClick(Cancel As Integer)
If IsNull([كود المستفيد]) Then DoCmd.OpenForm "المستفيد"
End Sub

مشروع الشيكات.rar

تحياتي

[marwa41]

والله ياخى ما شتغل معايا 

 

[محمد أبوعبدالله]

11 دقائق مضت, marwa41 said:

والله ياخى ما شتغل معايا 

يتم اضافة الكود في حدث عند النقر المزدوج لحقل كود المستفيد ليتم فتح نموذج المستفيد

If IsNull([كود المستفيد]) Then DoCmd.OpenForm "المستفيد"

 

1 ساعه مضت, marwa41 said:

ولم يتم وجوده فى جدول المستفيدين يتم فتح نموذج المستفيدين لاضافة مستفيد جديد بياناته

تحياتي

[marwa41]

ممكن تتعب شوية لوجه الله تعالى 

1-عند فتح نموذج ادخال الشيكات بتظهر مربع فى الاول مش عايزه يظهر

2 - اعملى انت عند ادخال مستفيد فى نموذج ادخال  الشيكات ولم يجد الاسم يتم اضافته فى جدول المستفيدين 

مشروع الشيكات.rar

تم تعديل يوليو 22, 2020 بواسطه marwa41

[محمد أبوعبدالله]

تفضل اخي الكريم

هذا الكود يضيف الاسم مباشرة الى جدول المستفيدين

Private Sub كود_المستفيد_NotInList(NewData As String, Response As Integer)

    If MsgBox("  الاسم غير موجود سابقاً ... هل ترغب في إضافته؟ ", vbYesNo, " تأكيد الحفظ") = vbYes Then
        mySQL = "Select * From المستفيد"
        Debug.Print mySQL

    Set rst = CurrentDb.OpenRecordset(mySQL)

        rst.AddNew
        rst![الكود] = Nz(DMax("[الكود]", "المستفيد"), 0) + 1
        rst![اسم المستفيد] = Me.كود_المستفيد.Text
        rst.Update
        rst.Close: Set rst = Nothing
        Response = acDataErrAdded

    End If

End Sub

بالاضافى الى الكود الاول الذي يفتح جدول المستفيدين

Private Sub كود_المستفيد_DblClick(Cancel As Integer)
    If IsNull([كود المستفيد]) Then DoCmd.OpenForm "المستفيد"
End Sub

مشروع الشيكات.rar

تحياتي

[marwa41]

حضرتك انا اضع الاكواد دى فى مكنها 

ولا حضرتك عملتها جاهزة خلاص

نزلت المرفق يوجد الكود لكن غير مفعل مشتغلش معاى

 

[محمد أبوعبدالله]

19 دقائق مضت, marwa41 said:

ولا حضرتك عملتها جاهزة خلاص

لا تضع شىء الكود موجود بالمرفق

تحياتي

وهذه صورة للاكواد

تحياتي

[marwa41]

اشتغلت لكن

عند كتابة حرف يفتح المستفيدين على مستفيد قديم ويتم تعديل عليه عايز نموذج المستفيدين يحصله تعديل ترقيم تلقائى ثم يفح على فارغ

ويكت جزء فى نموذج وجزء الباقى فى نموذج

 

 

تم تعديل يوليو 22, 2020 بواسطه marwa41

[محمد أبوعبدالله]

جرب المرفق

نموذج المستفيد سيفتح على سجل جديد

وكود المستفيد سيحصل على رقم تليقائي

مشروع الشيكات.rar

تحياتي

[marwa41]

جزاك الله خيرا 

فاضل على الحلو تكه من حضرتك

اخفاء هذه الرسالة

[محمد أبوعبدالله]

2 دقائق مضت, marwa41 said:

فاضل على الحلو تكه من حضرتك

التكة الاخيرة

مشروع الشيكات.rar

تحياتي

[marwa41]

جزاك الله خيرا على مجهودك العظيم

ممكن بدون تكليف وليس امر 

عندما اكتب قيمة المبلغ بالارقام يتم تحويلها الى حروف 

[عفرنس]

26 دقائق مضت, marwa41 said:

جزاك الله خيرا على مجهودك العظيم

ممكن بدون تكليف وليس امر 

عندما اكتب قيمة المبلغ بالارقام يتم تحويلها الى حروف 

تفضل هذا الرابط حيفيدك 

https://infotechaccountants.com/topic/444-كود-تحويل-الأرقام-إلى-حروف-في-الأكسس/?do=findComment&comment=712

[محمد أبوعبدالله]

تفضل اخي الكريم

مشروع الشيكات.rar

تحياتي

[marwa41]

استاذ محمد عبد الله 

صلى الله علي نبينا محمد

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

لسه بتعلم والله

 

مشروع الشيكات.rar

تم تعديل يوليو 22, 2020 بواسطه marwa41

[محمد أبوعبدالله]

تفضل اخي الكريم

1مشروع الشيكات.rar

تحياتي

[marwa41]

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

[محمد أبوعبدالله]

19 دقائق مضت, marwa41 said:

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

تفضل

1مشروع الشيكات.rar

تحياتي