عدم تسجيل قرض للعضوا اذا كان مسجلا له قرض من قبل

[محمد قاسم 12]

السلام عليكم

ارغب فى التالى 

عدم تسجيل قرض للعضوا اذا كان مسجلا له قرض من قبل

مثلا العضو رقم 7 مسجل له قرض من قبل فى جدول القروض 

وعند تسجيل قرض جديد تم اختيارة هنا يجد مدخل البيانات رساله بأن هذا العضو مسجلا له قرض من قبل 

بارك الله فيك

 

 

 

 

 

UP.rar

[samrati1]

اعتقد ان مشروعك على اوفيس 2016 هل ممكن تحويله الي 2003 او 2007 ومن ثم ساحاول مساعدتك 

تم تعديل فبراير 12, 2019 بواسطه samrati1
نص

[ابو ياسين المشولي]

منذ ساعه, محمد قاسم 12 said:

السلام عليكم

ارغب فى التالى 

عدم تسجيل قرض للعضوا اذا كان مسجلا له قرض من قبل

مثلا العضو رقم 7 مسجل له قرض من قبل فى جدول القروض 

وعند تسجيل قرض جديد تم اختيارة هنا يجد مدخل البيانات رساله بأن هذا العضو مسجلا له قرض من قبل 

 

 

 

 

 

 

واذا كان لديه قرض ولكنه صفر اي مسدد القرض

تم تعديل فبراير 12, 2019 بواسطه ابو ياسين المشولي

[samrati1]

سؤل ذكي من شخص اذكي 

[ابو ياسين المشولي]

31 دقائق مضت, samrati1 said:

سؤل ذكي من شخص اذكي 

تسلم اخي بارك الله فيك فهم السوال نصف الاجابه

[jjafferr]

تفضل ، هذا الرابط به الطريقة الصحيحة 🙂

 

.

جعفر

[محمد قاسم 12]

معلمنا الفاضل 

بارك الله فيك

نقلت الكود ولم يعمل معى 

 

UP.rar

[محمد قاسم 12]

16 ساعات مضت, samrati1 said:

اعتقد ان مشروعك على اوفيس 2016 هل ممكن تحويله الي 2003 او 2007 ومن ثم ساحاول مساعدتك 

بالفعل استاذى الاوفيس لدى3013

بارك الله فيك

 

14 ساعات مضت, ابو ياسين المشولي said:

واذا كان لديه قرض ولكنه صفر اي مسدد القرض

القروض المسددة تنقل الى جدول القروض المنتهيه 

بفضل الكود الذى تفضلت على به

 

تم تعديل فبراير 13, 2019 بواسطه محمد قاسم 12

[ابو ياسين المشولي]

2 ساعات مضت, محمد قاسم 12 said:

بالفعل استاذى الاوفيس لدى3013

بارك الله فيك

 

القروض المسددة تنقل الى جدول القروض المنتهيه 

بفضل الكود الذى تفضلت على به

 

اتفضل هذا تعديل على كود الاخ جعفر

On Error Resume Next
    Dim id As Integer
    Dim Msg, Style, Title, Response
    id = Nz(DLookup("[site_ID]", "qard", "[site_ID]=" & Me.site_ID & ""), 0)
    If id <> 0 Then
        Me.Undo
        Cancel = True
        Total.Locked = True
        dat_1.Locked = True
        not_n.Locked = True
        Me.أمر76.Enabled = False
        Msg = "هذا الاسم موجود بالفعل" & vbCrLf & _
               "المعرف رقم " & id & vbCrLf & vbCrLf & _
               "Yes : نعم اذهب الى ذلك السجل" & vbCrLf & _
               "No  : فقط الغي هذا السجل"
        Style = vbYesNo + vbCritical + vbDefaultButton2
        Title = "التكرار ممنوع"
        Response = MsgBox(Msg, Style, Title)
         Else
        Total.Locked = False
        dat_1.Locked = False
        not_n.Locked = False
        Me.أمر76.Enabled = True

        If Response = vbYes Then
                   DoCmd.FindRecord id, , , , , acAll, True
           
        End If
     End If

 

تم تعديل فبراير 13, 2019 بواسطه ابو ياسين المشولي

[jjafferr]

2 ساعات مضت, محمد قاسم 12 said:

نقلت الكود ولم يعمل معى

الظاهر انك ما نسخت الكود كاملا ، نسيت شيء منه 🙂

 

2 ساعات مضت, محمد قاسم 12 said:

بالفعل استاذى الاوفيس لدى3013

الف مبروك على هذه النسخة، ونطلب منك السر في كيفية الحصول عليها، فلم اسمع من احد انه حصل عليها الى الآن 🙂

 

21 دقائق مضت, ابو ياسين المشولي said:

On Error Resume Next

اخوي ابو ياسين 🙂

للوصول الى مرحلة الاحتراف، فيجب ان لا تستعمل هذه الجملة إلا نادرا ، ويجب اصطياد الخطأ ، والتعامل معاه فقط ،

فهذه الجملة ما بتخلي البرنامج يعطيك ايش الاخطاء اللي فيه 😞

هذه الروابط بتفيدك :

 

و

و

.

 

36 دقائق مضت, ابو ياسين المشولي said:

اتفضل هذا تعديل على كود الاخ جعفر

وانت المنقذ 🙂

 

جعفر

[ابو ياسين المشولي]

56 دقائق مضت, jjafferr said:

 

اخوي ابو ياسين 🙂

للوصول الى مرحلة الاحتراف، فيجب ان لا تستعمل هذه الجملة إلا نادرا ، ويجب اصطياد الخطأ ، والتعامل معاه فقط ،

فهذه الجملة ما بتخلي البرنامج يعطيك ايش الاخطاء اللي فيه 😞

نعم اخي جعفر صدقت

ولكن استعملها عندما يكون الكود شغال ولكن في اشياء لازم تتعداها 

هههههههههههه

 

وانت المنقذ 🙂

انفذ لاخي ومعلمي الاستاذ جعفر

ونجن دائما نتعلم منكم كل يوم شي جديد

 ابو ياسين

 

تم تعديل فبراير 13, 2019 بواسطه ابو ياسين المشولي

[محمد قاسم 12]

للاسف لم ينجح معى 

[محمد قاسم 12]

2 ساعات مضت, jjafferr said:

الف مبروك على هذه النسخة، ونطلب منك السر في كيفية الحصول عليها، فلم اسمع من احد انه حصل عليها الى الآن 🙂

 

بارك الله فيك استاذى غلطة مطبعية  

 

2 ساعات مضت, jjafferr said:

الظاهر انك ما نسخت الكود كاملا ، نسيت شيء منه 🙂

 

جربت اكثر من مره ولم افلح

[ابو ياسين المشولي]

27 دقائق مضت, محمد قاسم 12 said:

بارك الله فيك استاذى غلطة مطبعية  

 

جربت اكثر من مره ولم افلح

شوف المرفق كيف لم ينجح معك

UP (3).rar

[jjafferr]

49 دقائق مضت, محمد قاسم 12 said:

للاسف لم ينجح معى

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

[محمد قاسم 12]

37 دقائق مضت, ابو ياسين المشولي said:

شوف المرفق كيف لم ينجح معك

 

كان هناك خطاء منى فى نقل الكود

والملف المرفقك من حضرتك يعمل جيدااا

بارك الله فيك

 

30 دقائق مضت, jjafferr said:

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

بارك الله فيك استاذي معلمي