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

[marwa41]

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

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

مشروع الشيكات.rarFetching info...

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

[عفرنس]

  في 21‏/7‏/2020 at 15:14, marwa41 said:

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

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

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

Expand  

تفضل 

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

[marwa41]

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

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

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

السلام عليكم

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

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

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

مشروع الشيكات.rarFetching info...

تحياتي

[marwa41]

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

 

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

  في 22‏/7‏/2020 at 10:01, marwa41 said:

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

Expand  

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

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

 

  في 22‏/7‏/2020 at 08:42, marwa41 said:

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

Expand  

تحياتي

[marwa41]

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

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

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

مشروع الشيكات.rarFetching info...

تم تعديل يوليو 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

مشروع الشيكات.rarFetching info...

تحياتي

[marwa41]

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

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

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

 

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

  في 22‏/7‏/2020 at 13:25, marwa41 said:

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

Expand  

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

تحياتي

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

تحياتي

[marwa41]

اشتغلت لكن

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

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

 

 

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

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

جرب المرفق

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

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

مشروع الشيكات.rarFetching info...

تحياتي

[marwa41]

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

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

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

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

  في 22‏/7‏/2020 at 14:32, marwa41 said:

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

Expand  

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

مشروع الشيكات.rarFetching info...

تحياتي

[marwa41]

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

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

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

[عفرنس]

  في 22‏/7‏/2020 at 20:51, marwa41 said:

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

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

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

Expand  

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

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

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

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

مشروع الشيكات.rarFetching info...

تحياتي

[marwa41]

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

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

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

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

 

مشروع الشيكات.rarFetching info...

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

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

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

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

تحياتي

[marwa41]

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

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

  في 22‏/7‏/2020 at 22:00, marwa41 said:

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

Expand  

تفضل

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

تحياتي