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

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

  • الردود 57
  • Created
  • اخر رد

Top Posters In This Topic

قام بنشر
في ١٣‏/١١‏/٢٠١٧ at 09:43, ابوخليل said:

والشكر لكم على المتابعة

أخي أبو خليل معذرة علي غيابي ولكن بسب ظروف صعبة

المطلوب الآن

نموذج بحث يقوم بالبحث عن الفواتير والعملاء والبحث بين تاريخين لعميل ما أو لفواتير معينة

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

السلام عليكم ورحمة الله وبركاته

ما شاء الله عليك اخي الغالي ابوخليل

بعد اذنك اخي العالي

في فاتورة البيع وضعت كود في حقل الكمية

Private Sub quant_AfterUpdate()
        Me.ejmale = CLng(Nz([quant] * [Price]) * Nz(1 - [kasm]) * 100) / 100
     
     If Me.quant > DLookup("[Rsnf]", "[Qryasnaf]", "[ID_Sanf]=[ID_Sanf1]") Then
        MsgBox "رصيد غير كافي"
     Else
    
     End If
End Sub

مثال للمشكلة التي ظهرت معي

صنف "خلوي ايفون" رصيد الكمية الموجودة مثلاً = 10

اذا قمت بعملية بيع = 7 قطع فسيتم قبول الكمية بدون مشاكل

اما اذا اردنا ان نقوم بتعديل الكمية الى 6 فسوف تظهر الرسالة لان الرصيد حالياً = ( 10 - 7 = 3 )

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

فكيف يمكننا تصحيح الكود او تصحيح العملية

دمتم بكل خير

تحياتي

testPro14.rar

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

عليكم السلام

اهلا بك ابا عبدالله .. 

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

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

فالحل المحكم الذي اراه احد اثنين :

الاول : ان نجعل النموذج غير منضم  ويتم الحاق البيانات بالكود

الثاني : التحايل وذلك بجعل الحقل غير منضم وعمل حقل وسيط مخفي ياخذ قيمته  من الحقل المذكور  

ما رأيك ؟ .. وهل تعتقد وجود حل  آخر اسهل ؟

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

بعد اذن الاخ ابو خليل

قمت باضافة تطويرات على البرنامج

يا ريت تشاهدوها واسمع رأيكم فيها 

مشتريات ومبيعات 2020.rar

تم تعديل بواسطه عبد اللطيف سلوم
  • Like 1
قام بنشر
في ٢٣‏/١١‏/٢٠١٧ at 09:51, عبد اللطيف سلوم said:

صدقني اخي ابو خليل لا اعلم كيف اغير الصيغة 

 

في ٢٣‏/١١‏/٢٠١٧ at 01:29, عبد اللطيف سلوم said:

بعد اذن الاخ ابو خليل

قمت باضافة تطويرات على البرنامج

يا ريت تشاهدوها واسمع رأيكم فيها 

مشتريات ومبيعات 2020.rar

عند فتح البرنامج تظهر رسالة خطأ وأيضاً عند الضغط علي أي نموذج لفتحة

err.png.5ecfeee308e7a83fb73b38e98163e3d9.png

 

في ٢٣‏/١١‏/٢٠١٧ at 08:17, ابوخليل said:

الافضل على الصيغة نفسها  mdb حتى يتمكن الجميع من الاستفادة

مع الشكر والتقدير

تم تغيير صيغة الملف إلي ACCDE.

مشتريات ومبيعات ACCDE.rar

  • Like 1
قام بنشر
4 ساعات مضت, حربي العنزي said:

السلام عليكم اساتذتي الافاضل ورحة الله وبركاته

اذا امكن تحويل المشاركة الاخير للاستاذ محمود ابو سيف الى صيفى 2003 mdb

مع جزيل الشكر والاحترام

تفضل 

مشتريات ومبيعات 2003.rar

  • Like 1
قام بنشر
في ٢٦‏/١١‏/٢٠١٧ at 23:11, محمود أبوسيف said:

معذرة ممكن تشرح لي طريقة حساب نماذج الدفع بطريقة بسيطة

:fff::fff::fff:

نموذج الدفع هو نموذج بسيط مرتبط لاسلكيا _ ان جاز التعبير_ بجدول الدفع اي انه غير منضم

ويمكن جعل النموذج منضم مباشرة الى الجدول ولكني رأيت ان المسائل المالية بحاجة الى زيادة ضبط بحيث لن يتم ادراج اي بيانات الا بعد ضغط الزر والمسؤول عن الحاق البيانات في جدول المدفوعات هو هذا الكود الموجود في وحدة نمطية في المديول العام :

Public Function cmdsavedAll()
On Error GoTo ErrHandler
Dim db1 As Database
Dim rs As Recordset
Set db1 = CurrentDb
Set rs = db1.OpenRecordset("tblPay")
rs.AddNew
rs!pay_ID = Forms!FrmPay!pay_ID
rs!FatoraType = Forms!FrmPay!FatoraType
rs!ID_fGnt = Forms!FrmPay!ID_fGnt
rs!pay = Forms!FrmPay!pay
rs!Paydate = Forms!FrmPay!Paydate
rs.Update
ErrHandler:
    If Err.Number = 3022 Then
MsgBox "مكرر"
    Exit Function
End If
rs.Close: Set rs = Nothing
End Function

ويتم استدعاؤه  في حدث الزر  بـــ  cmdsavedAll

فيقوم بالحاق البيانات في جدول المدفوعات

  • Like 1
قام بنشر
23 دقائق مضت, ابوخليل said:

نموذج الدفع هو نموذج بسيط مرتبط لاسلكيا _ ان جاز التعبير_ بجدول الدفع اي انه غير منضم

ويمكن جعل النموذج منضم مباشرة الى الجدول ولكني رأيت ان المسائل المالية بحاجة الى زيادة ضبط بحيث لن يتم ادراج اي بيانات الا بعد ضغط الزر والمسؤول عن الحاق البيانات في جدول المدفوعات هو هذا الكود الموجود في وحدة نمطية في المديول العام :

ويتم استدعاؤه  في حدث الزر  بـــ  cmdsavedAll

فيقوم بالحاق البيانات في جدول المدفوعات

لماذا عندما أقوم بالشراء من مورد بإجمالي مبلغ ما وليكن 4450 جنيه مثلاً وأذهب  إلي شاشة الدفع أجد في الرصيد مبلغاً مع العلم أنه في شاشة تسجيل الفاتورة الرصيد صفر . 

أرجو الإفادة   الرصيد.rar

 

5a1f9c161c957_.thumb.png.20f95c2275584579e6e89b96c3f8f57b.png

قام بنشر

لا اعلم  ما ذا حصل عندك

وعلى الظاهر في الصورة : المفروض ان يكون  الرصيد  في شاشة المشتريات بالموجب

حاولت اني اعيد العمليات وكانت النتيجة ان كل شي بالسليم

ملحوظة :

يمكنك فصل سند الدفع بحيث يكون منفصل تماما  ، وبالطبع عند التعامل معه  سيتطلب اختيار  المورد او الزبون ‘ وايضا يتم ادراج المبلغ يدويا .

  • Like 1
قام بنشر (معدل)
16 ساعات مضت, ابوخليل said:

ملحوظة :

يمكنك فصل سند الدفع بحيث يكون منفصل تماما  ، وبالطبع عند التعامل معه  سيتطلب اختيار  المورد او الزبون ‘ وايضا يتم ادراج المبلغ يدويا .

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

تم تعديل بواسطه محمود أبوسيف
  • 2 weeks later...
قام بنشر
في ٢٩‏/١١‏/٢٠١٧ at 22:49, ابوخليل said:

لا اعلم  ما ذا حصل عندك

وعلى الظاهر في الصورة : المفروض ان يكون  الرصيد  في شاشة المشتريات بالموجب

حاولت اني اعيد العمليات وكانت النتيجة ان كل شي بالسليم

ملحوظة :

يمكنك فصل سند الدفع بحيث يكون منفصل تماما  ، وبالطبع عند التعامل معه  سيتطلب اختيار  المورد او الزبون ‘ وايضا يتم ادراج المبلغ يدويا .

أخي أبو خليل لقد تعبت من كثرة البحث والتعديل ومازالت نفس المشكلة قائمة رجاءً جد  لي حلاً لهذه المشكلة

  • Like 1
قام بنشر

كما ذكرت لك  مثالي لا يوجد به مشكلة

اخي محمود : ارفق جزء من مثالك و ووضح المشكلة والمطلوب  وسأقوم بالتعديل عليه

  • Like 1
قام بنشر
1 ساعه مضت, ابوخليل said:

كما ذكرت لك  مثالي لا يوجد به مشكلة

اخي محمود : ارفق جزء من مثالك و ووضح المشكلة والمطلوب  وسأقوم بالتعديل عليه

أخي الفاضل المشكلة كما أوضحتها من قبل في هذه المشاركة

 

قام بنشر
في ٣٠‏/١١‏/٢٠١٧ at 09:49, ابوخليل said:

لا اعلم  ما ذا حصل عندك

وعلى الظاهر في الصورة : المفروض ان يكون  الرصيد  في شاشة المشتريات بالموجب

حاولت اني اعيد العمليات وكانت النتيجة ان كل شي بالسليم

 

وهذا كان جوابي  حين تصفحت المثال

الرصيد يظهر .. يعني لم اجد مشكلة

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.

×
×
  • اضف...

Important Information