ruan

وهو كذلك ... ممنون والف شكر

الربح.accdb

هل من الممكن ان نتخلص من مشكلة القيمة السالبة فيما اذا كان سعر البيع اقل من سعر الشراء في نفس المعادلة مع خالص الشكر .

8 دقائق مضت, Eng.Qassim said:

طبعا ممكن ...ولو السؤال غريب 

 

الربح.rar 26.8 kB · 0 downloads

الشكر الجزيل استاذ ... لا غريب الا الشيطان  ... جربت اضع المعادلة في خانة مصدر عنصر التحكم لحقل الربح بدون الحاجة للاستعلام وكل شيء تمام .. شكرا من القلب مرة اخرى ...

السلام عليكم ....

عندي ثلاث حقول .. حقل الشراء وحقل البيع وحقل الارباح ... هل من الممكن ان تكون قيمة الطرح في حقل الارباح صفر في حالة اذا كان حقل الشراء يساوي صفر .

مع تحياتي

الربح.accdb

استاذ احمد ... شكرا جزيلا اولا .. ثانيا .. البرنامج اصلا معمول للبيع بالاقساط (( عملاء )) فقط .. فاحببت ان اضيف فقرة المخزون لغرض الاطلاع على مخزون المادة فقط .. ولا يوجد فاتورة شراءاو بيع

شكرا مرة اخرى

استاذ محمد ... خبراء المنتدى .. في انتظار لمساتكم ..

لازلت انتظر الاجابة من اساتذتنا الكرام

11 دقائق مضت, Mohamed Hicham said:

بعني انت الدي وضعت هدا الكود

Private Sub TextBox1_Change()
If Sheet1.TextBox1.Value <> "" Then
Sheet1.ListBox1.Visible = True
Else
Sheet1.ListBox1.Visible = False
End If


End Sub

 

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

في 30‏/11‏/2022 at 19:51, Mohamed Hicham said:

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

اين هي   listbox

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

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

السلام عليكم ....

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

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

شؤون الموظفين.xlsm

هذا رابط للملف لمن ينوي المساعدة .. مع خالص الشكر

https://drive.google.com/file/d/1DgMQrbVeYl1GEH2RAoe8aQbE2ZW0fQ-e/view?usp=share_link

السلام عليكم .....

نموذج يحتوي على نموذج رئيسي ونموذج فرعي .. عندما اختار نوع المادة في النموذج الفرعي اريد ان تظهر في حقلي المادة ورصيدها في النموذج الرئيسي وعند ادخال قمة الكمية في الفرعي ينقص رصيد المادة في الحقل الرئيسي وترصيدها من جديد في نموذج المخزن .. الموضوع في غاية الاهمية والعجله .. مع خالص الشكر والتقدير ...

لم استطع ارفاق مثال بسبب كبر حجمه .. اعتذر

up

السلام عليكم

عند تتبعي لشرح احد الاخوة في عمل فاتورة الارجاع المواد المشتراة ,,, فان قيمة الحقل في الارجاع لا تخصم من الكمية المشتراة ولا تنقص من حساب المخزن ..مع عدم تفعيل زرع الارجاع .. هل هناك خطأ في الكود الموجود .. ومن لديه طريقة اخرى في ارجاع المادة المشتراة فليتفضل مشكورا  .. 

ملاحظه .. الفاتوره رقم 11 في حقل البحث ...

فاتوره.rar

السلام عليكم

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

مع خالص الود

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

اشكرك جدا لتواصلك .. فكرتي هي ان انشيء استعلام يكون اخر تتاريخ للتسديد ( last ) وتاريخ اليوم ثم احسب المدة بين التاريخين تحت مسمى التاخير .. عملت الطريقه لكن لا تظهر مدة التاخير ... شكرا مرة اخرى لتواصلك

السلام عليكم ...

عندي برنامج ديون اريد ان اضيف نموذج يشمل المتلكئين باكثر من خمسة ايام من موعد اخر تسديد للزبون .

مع خالص الود

برنامج الديون.rar

تفضل 

صادر ووارد.rar

في ٢٣‏/٨‏/٢٠٢١ at 22:26, Eng.Qassim said:

استاذي العزيز @ruan برنامجك جميل لكن يحتاج لكثير من التنسيقات فمثلا تجعل النموذج الرئيسي (الزبائن2) هو لبيع المواد وليس لشراء المواد . ففاتورة الشراء لها شأن اخر فانت تبيع بالاجل.. وتجعل لتلك الفاتورة رقم تلقائي وتجعل اسم الزبون كومبوبوكس  لان نفس الزبون ربما سيشتري منك لاحقا..

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

والله من وراء القصد..تحياتي

اطراء افتخر به لكوني مبتدأ نوعا ما في الاكسيس .. فهل من الممكن بعد اضافات على البرنامج ارسله لك على الايميل الخاص بك لتعديل على ما يجب التعديل .. مع خالص الود

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

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

If IsNull([نوع العمله]) Then
MsgBox ("خانة نوع العمله فارغة يرجى املائها")
DoCmd.CancelEvent
Else
If IsNull([تاريخ التسديد]) Then
MsgBox ("خانة تاريخ التسديد فارغة يرجى املائها")
DoCmd.CancelEvent
Else
If IsNull([التسديد]) Then
MsgBox ("خانةالتسديد فارغة يرجى املائها")
DoCmd.CancelEvent
Else
If [التسديد] > [نص28] And [نوع العمله] = "دولار" Then
MsgBox ("مبلغ التسديد بالدولار اكبر من مبلغ الدين بالدولار")
DoCmd.CancelEvent
Else
If [التسديد] > [نص30] And [نوع العمله] = "دينار" Then
MsgBox ("مبلغ التسديد بالعراقي اكبر من مبلغ الدين بالعراقي")
DoCmd.CancelEvent
Else
Dim r
r = MsgBox("انت على وشك تسديد الدين", vbYesNo, "تحذير")
If r = vbYes Then
DoCmd.Close acForm, "التسديد"
DoCmd.Close acForm, "نموذج1"
DoCmd.OpenForm "نموذج1"
MsgBox ("تم ادخال المبلغ بنجاح")
Else
If r = vbNo Then
MsgBox ("تم التراجع عن ادخال المبلغ")
DoCmd.CancelEvent
End If
End If
End If
End If
End Sub

alruan.rar

اشكرك شكرا يعجز اللسان ان يحصيه .. الله يوفقك دينا واخره ...

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

alruan.rar

شكرا اسناذ قاسم