مصطفي الفيومي

تم 

شكرا جدا لحضرتك

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

عندي النموذج يحتوي علي 3 حقوق وزرار امر تشغيل 

الحقل الاول عدد الاسابيع (Numberweeks)

الحقل الثاني بدء التاريخ ( Startdata )

والحقل الثالث ينتهي في تاريخ (Enddata)

وزر تنفيذ الامر 

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

يعني مثلا انا حددت عدد الاسابيع (4)

وجيد في بدء التاريخ بدء بتاريخ ( 01/01/2023 ) يكون تاريخ الانتهاء (30/01/2023)

الكود الموجود بالنموذج يعمل بالشهر كويس ولا يوجد بيه اي مشكلة 

محتاج اغير الامر الي اسبوعي وليس شهري كما بالمثال

في المثال الشهري يبدء هكذا 

01/01/2023

01/02/2023

01/03/2023

وهكذا 

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

01/01/2023

7/01/2023

14/01/2023

21/01/2023

ولكم جزيل الشكر والتقدير

حساب التاريخ.accdb

شكرا لمرور حضرتك 

لكن انا كنت محتاج ابحث بالنص بمعني 

انا عندي 1000 عميل 

محتاج اكتب اسم العميل واعمل تصفية او الرقم الدفتري الخاص بيه

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

عندي كمبوبكس يحتوي علي اسم العميل والرقم الدفتري 

محتاج ابحث من خلاله ( باسم العميل او الرقم الدفتري )

بحث.accdb

16 ساعات مضت, ابوخليل said:

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

تم التطبيق على عمود اللغة العربية ، أكمل بقية اعمدتك على المنوال نفسه

Dim i As Integer, R As Integer
Dim rs As Recordset
Set rs = Me.RecordsetClone
rs.MoveLast
R = rs.RecordCount
rs.MoveFirst
For i = 1 To R
rs.Edit
rs!Arab = deg_A
rs.Update
rs.MoveNext
Next
Me.Refresh

 

ادراج قيمة.rar 36.12 kB · 2 downloads

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

11 ساعات مضت, شايب said:

مارايك بدلا من تكرار الكود

 نستعين بتعديل الاخ @jjafferr على مشاركة سابقة للاخ العزيز شايب ويتم الاستدعاء عند تحديث المادة

Function tx_degree(ctl As Control)
Dim a As Integer
Dim ctl_n As String
Dim rs As Recordset
Set rs = Me.RecordsetClone
ctl_n = Replace(ctl.Name, "deg_", "")
rs.MoveLast
R = rs.RecordCount
rs.MoveFirst
For i = 1 To R
rs.Edit
rs(ctl_n) = ctl.Value
rs.Update
rs.MoveNext
Next
Me.Refresh
End Function

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

 Call tx_degree(deg_Arab)

deg_Arab يتم تغييرها باسم الحقل

مرفق الملف

تم تغيير اسماء الحقول الثلاثة لتسهيل تنفيذ الامر بدلا من كتابة اسطر اضافية

 

ادراج قيمة.accdb 536 kB · 1 download

شكرا ليك بارك الله فيك 

شكرا للاخوة الافاضل علي المشاركة 

تم الاجابة 

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

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

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

اسم الطالب - عربي - انجليزي - رياضيات 

محتاج احدد مثلا الصف الاول واحدد الدرجة مثلا عربي يتم تعممها علي كل الطلبة المحدد في الصف اللي حددته فقط 

ومرفق شرح بالنموذج

وجزاكم الله خيرا

ادراج قيمة.accdb

5 ساعات مضت, ابو جودي said:

اتفضل 

استخدم الكود الاتى كروتين عام لعدم كتابة وتكرار الاكواد اكثر من مره حسب عدد الأعمدة

Function DoColoer(ByRef Obj As Object) As String
  Select Case Nz(Obj, "")
    Case Is = "": DoColoer = vbWhite
    Case Is = 1: DoColoer = vbBlue
    Case Is = 2: DoColoer = vbGreen
    Case Is = 3: DoColoer = vbYellow
    Case Is = 4: DoColoer = vbRed
    Case Else
  End Select
End Function

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

ObjectName.BackColor = DoColoer(ComboBoxName)

بحيث ObjectName اسم العنصر المراد تغيير لون الخلفية الخاصة به
و  ComboBoxName اسم مربع التحرير والسرد الخاص بالعمود الذى تريد تغيير لونه

واخيرا المرفق بعد التطبيق 

 

تحديد اللون بشرط.accdb 548 kB · 7 downloads

شكرا لرد حضرتك والمتابعة 

اخطأت في الوصف اللي محتاجه 

المفروض يكون كل الخلاية Combo Box

مثل المثال المرفق انا محتاج احدد الصف واعلم مثلا اخضر لمادة العربي 

يتم تحديد المادة عربي للصف المحدد فقط وليس كل الصفوف

المثلا بالمرفقات واعتذر لحضرتك

تحديد اللون بشرط1.accdb

متابعة

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

عندي نموذج طلاب وبه مواد ( عربي - رياضيات - انجليزي )

محتاج احدد الصف من Combo Box

وبعدها اقوم بتحديد اللون حسب الاختيار ( ازرق - اخضر - احمر - اصفر )

بعد اختيار اللون يتم التطبيق علي طلاب الصف المحددين فقط وادراج القيمة في الجدول للطلاب المحددين للصف فقط

انا قمت بالعملية من خلال الاستعلام لكن الموضوع صعب جدا 

الخطوات اللي محتاجها 

تحديد الصف 

العربي مثلا اخضر 

يتم تحول الخلايه كلها الي اخضر 

وشكرا

تحديد اللون بشرط.accdb

شكرا استاذي الفاضل بارك الله فيك وجعله في ميزان حسناتك

تمت الاجابة

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

موجود بالمثال الحالي نموذج رئيسي باسم mpr

ونموذج فرعي frm_data

محتاج عند ان اقوم باختيار المحافظة او الترتيب من النموذج الفرعي 

يتم نقل القيمة من النموذج الفرعي الي النموذج الرئيسي 

ومحتاج نقل القيمة وليس النص 

ولكم جزيل الشكر والتقدير

نقل قيمة.accdb

مبارك عليك أخي ناقل @ناقل .. 😊

وسام تستحقه عن جدارة 👍🏼😉

وفقك الله وجعل اعمالك في ميزان حسناتك

شكرا لحضرتك  @احمد الفلاحجي هو ده اللي كنت محتاج بالفعل بارك الله فيك 

شكرا استاذي @ابو جودي بارك الله فيك

12 ساعات مضت, ابو جودي said:

اتفضل 

طيب ما هو التعديل ؟

كلمة واحدة وهى Between

اين تم التعديل ؟

فى الاستعلام Dfa2  فى الحقل Installmentnumbercode  فى اول المعيار

 

 

سداد (2).accdb 704 kB · 4 downloads

 

 

 

شكرا استاذي ابو جودي 

هل من الممكن اذا اخترت من العمود الاول ( القسط الاول ) ميظهرش في العمود الثاني 

موضح لحضرتك بالصور 

وجزاك الله خيرا

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

اخوتي الكرام يوجد بالملف نموذج يحتوي علي اسم العميل - من القسط - الي القسط - المبلغ - وزر دفع 

ويوجد به نموذج فرعي للمدفوعات 

عمل استعلام تحديث لعملية الدفع ومعيار الاستعلام كود العميل - ورقم القسط 

لكن بحدد كود العميل واحدد ( من القسط  الاول - الي القسط الاول ) يتم التحديث ويتم عملية الدفع 

انا محتاج مثلا اقوم بتحديد ( من القسط الأول  - الي القسط الخامس ) ويتم دفع الــ 5 اشهر ويتم تسجلهم 

العملية الاولى شغاله تمام مادام بحدد نفس القسط 

لكن لو حولت اسدد مثلا اثنين او ثلاث اقساط او اي حدد للاسف مش بيقبل 

واليكم المرفقات 

وجزاكم الله خير 

سداد.accdb

up

2 ساعات مضت, أبو عبدالله الحلوانى said:

جرب هذا ووافنا بالنتائج

أرجو ان يوافق مرادك

 

Microsoft.accdb 780 kB · 3 downloads

شكرا لمتابعه حضرتك بعد التجربة 

عند النقر علي الاسم يظهر البيانات تمام 

ولكن عند تعديل اي حقل بالنموذج بعد اختيار الطالب 

يتم تكرار الطالب بالتعديل الجديد 

يعني مثلا 

احمد محمد واخد درجة 50 لو حولت اغير الدرجة او الصف او الفصل 

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

up

up

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

يوجد بالملف نموذج يحتوي علي بيانات الطلاب والاضافة

ويوجد قائمة Listbox تحتوي علي كود الطالب والاسم والصف والفصل والدرجة 

محتاج ابحث في قائمة Listbox وعند الضغط مرتين علي الاسم يتم عرض بيانات الطلاب في الحقول وان قمت بالتعديل يتم التعديل وحفظ بيانات التعديل

ولكم جزيل الشكر والتقدير 

الملف بالمرفقات

Microsoft.accdb

5 ساعات مضت, أبوبسمله said:

وعليكم السلام اتفضل

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

Private Sub p1_Click()

[Forms]![tb_bill]![tb_Billdetails]![codeitmes] = Me.[codeitmes]
[Forms]![tb_bill].SetFocus
[Forms]![tb_bill]![tb_Billdetails].SetFocus
DoCmd.GoToRecord , , acNewRec
End Sub

بالتوفيق

شاشة الاصناف.accdb 572 kB · 5 downloads

بارك الله فيك 

شكرا لحضرتك اخي ابو بسمله

هذه فعلا ما كنت اسعي له 

جزاك الله كل خير

السلام عليكم ورحمه الله وبركاته 
يوجد نموذج باسم 
tb_bill
وهو نموذج رأس الفاتورة 
وبه نموذج فرعي باسم 
tb_Billdetails
وهو تفاصيل الفاتورة 

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

شاشة الاصناف.accdb

up

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

انا اعمل حاليا علي برنامج اقساط

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

لكن في مرحلة التطوير قمت بعمل اضافة اصناف بجدول منفصل بتفاصيل كل صنف ومخازن ومشتريات 

اللي محتاج اعرفة لو تكرمتكم 

كيف يتم التوزيع 

انا عامل جدول للاصناف 

وجدول للمخزن

وجدول رأس فاتورة المشتريات

وجدول لتفاصيل المشتريات 

انا لما استدعي صنف استدعيه من اي جدول 

هل من جدول الاصناف ولا من جدول تفاصل المشتريات 

انا بضيف الاصناف عادي في جدول الاصناف ويوجد بالجدول 

كود الصنف واسم الصنف وسعر الشراء وسعر البيع وبعض من البيانات 

بالرغم اني في شاشة المشتريات بضيف نفس البيانات كود الصنف وسعر الصنف والاسم وهكذا 

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

جزاكم الله كل خير