اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

السلام عليكم

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

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

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

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

بارك الله فيك

 

 

 

 

 

UP.rar

قام بنشر (معدل)

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

تم تعديل بواسطه samrati1
نص
  • Like 1
قام بنشر (معدل)
  في 12‏/2‏/2019 at 20:25, محمد قاسم 12 said:

السلام عليكم

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

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

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

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

 

 

 

 

 

 

Expand  

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

تم تعديل بواسطه ابو ياسين المشولي
  • Like 1
قام بنشر (معدل)
  في 12‏/2‏/2019 at 20:31, samrati1 said:

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

Expand  

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

بارك الله فيك

 

  في 12‏/2‏/2019 at 21:50, ابو ياسين المشولي said:

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

Expand  

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

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

 

تم تعديل بواسطه محمد قاسم 12
  • Like 1
قام بنشر (معدل)
  في 13‏/2‏/2019 at 12:40, محمد قاسم 12 said:

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

بارك الله فيك

 

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

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

 

Expand  

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

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
قام بنشر
  في 13‏/2‏/2019 at 12:21, محمد قاسم 12 said:

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

Expand  

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

 

  في 13‏/2‏/2019 at 12:40, محمد قاسم 12 said:

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

Expand  

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

 

  في 13‏/2‏/2019 at 14:59, ابو ياسين المشولي said:

On Error Resume Next

Expand  

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

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

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

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

 

و

و

.

 

  في 13‏/2‏/2019 at 14:59, ابو ياسين المشولي said:

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

Expand  

وانت المنقذ 🙂

 

جعفر

  • Like 2
قام بنشر (معدل)
  في 13‏/2‏/2019 at 15:35, jjafferr said:

 

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

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

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

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

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

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

 

وانت المنقذ 🙂

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

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

 ابو ياسين

Expand  

 

تم تعديل بواسطه ابو ياسين المشولي
  • Like 1
قام بنشر
  في 13‏/2‏/2019 at 15:35, jjafferr said:

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

 

Expand  

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

 

  في 13‏/2‏/2019 at 15:35, jjafferr said:

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

 

Expand  

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

  • Like 1
قام بنشر
  في 13‏/2‏/2019 at 18:34, محمد قاسم 12 said:

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

 

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

Expand  

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

UP (3).rar

  • Like 2
قام بنشر
  في 13‏/2‏/2019 at 19:04, ابو ياسين المشولي said:

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

 

Expand  

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

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

بارك الله فيك

 

  في 13‏/2‏/2019 at 19:11, jjafferr said:

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

Expand  

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

  • 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