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

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


marwa41
إذهب إلى أفضل إجابة Solved by محمد أبوعبدالله,

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

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

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

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

تم تعديل بواسطه marwa41
رابط هذا التعليق
شارك

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

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

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

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

تفضل 

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

تحياتي

رابط هذا التعليق
شارك

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

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

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

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

 

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

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

تحياتي

رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه 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

تحياتي

رابط هذا التعليق
شارك

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

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

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

001.gif.cf019dce7cc3d07a546cc4fab1324bb2.gif

تحياتي

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

01.jpg.f21c9b4c5b443c7568a6824338795309.jpg

تحياتي

رابط هذا التعليق
شارك

اشتغلت لكن

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

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

 

 

Un1212titled.png

تم تعديل بواسطه marwa41
رابط هذا التعليق
شارك

جرب المرفق

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

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

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

تحياتي

رابط هذا التعليق
شارك

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

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

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

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

Untit5464564led.png

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

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

رابط هذا التعليق
شارك

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

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

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

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

 

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

تم تعديل بواسطه marwa41
رابط هذا التعليق
شارك

  • أفضل إجابة
19 دقائق مضت, marwa41 said:

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

تفضل

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

تحياتي

رابط هذا التعليق
شارك

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