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

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


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

السلام عليكم

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

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

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

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

بارك الله فيك

 

 

 

 

 

UP.rar

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

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

السلام عليكم

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

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

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

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

 

 

 

 

 

 

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

تم تعديل بواسطه ابو ياسين المشولي
  • Like 1
رابط هذا التعليق
شارك

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

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

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

بارك الله فيك

 

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

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

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

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

 

تم تعديل بواسطه محمد قاسم 12
  • Like 1
رابط هذا التعليق
شارك

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

 

تم تعديل بواسطه ابو ياسين المشولي
  • Like 2
رابط هذا التعليق
شارك

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

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

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

 

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

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

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

 

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

On Error Resume Next

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

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

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

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

 

و

و

.

 

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

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

وانت المنقذ 🙂

 

جعفر

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

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

 

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

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

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

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

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

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

 

وانت المنقذ 🙂

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

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

 ابو ياسين

 

تم تعديل بواسطه ابو ياسين المشولي
  • Like 1
رابط هذا التعليق
شارك

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

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

 

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

 

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

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

 

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

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

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

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

 

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

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

UP (3).rar

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

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

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

 

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

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

بارك الله فيك

 

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

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

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

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

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