Mostafa Metwally

شكرا جزيلا استاذى الفاضل

Shivan Rekany

3 hours ago, alwazeer said:

استخدم هذا الكود في حدث عند الخطأ للنموذج

 

If DataErr = 3022 Then
  Response = acDataErrContinue
End If

 

testError.zip

شكرا اخى الفاضل

alwazeer

  على مجهودك وتعبك

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

اريد كود عند كتابة يوم تم تسجيل قبل ذلك لا تظهر رسالة التكرار ويتم استدعائة كبحث عنه من خلال حدث before update

ومرفق ملف للتوضيح

test.rar

السلام عليكم اعضاء المنتدى الغالى

كل عام وانتم بخير جميعا

برنامج الاقساط مكون من 5 جداول 

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

buy وذلك لتسجيل الشراء  لكل عميل الجدول الثانى

جدول الثالث مخصص لاسماء الاصناف

ويوجد 5 قورم

الفكرة

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

مثال لو العميل القسط الخاص بالسلعة الاولى 100 وينتهى فى 10-2017 والقسط الخاص بالسلعة الثانية 150 ينتهى فى 12-2017 ليصبح اجمالى الاقساط 250 المطلوب  بعد انتهاء قسط السلعة الاولى بمبلغ 100 يتم عدم احتسابها ويصبح القسط علية 150 ج فقط

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

يتم انتهاء 

aqsat.rar

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

شكرا على مرورك 

ولكن يظهر خطا عند التنفيد مرفق صورة الخطا 

شكرا اخى الفاضل ابو عبدلله على مرورك 

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

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

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

عندي قاعدة بيانات تحتوى على جدول اسمة names وبه عمودين id , name

ويوجد فورم به كومبو بوكس غير مرتبط

والمطلوب

عن الضغط على الاسم الموجود فى الكمبو بوكس يعمل بحث ويظهر بياناتة فى الحدث after update الخاص بالكمبو بوكس

ومرفق قاعدة البيانات للتعديل

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

db.rar

Dim x As Date
Dim m As String
x = CDate(p_date)
m = CStr(p_product)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("select price as ppp from products where" & " tday<=" & "#" & x & "#" & " and product=" & "'" & m & "'" & " ORDER BY products.tday DESC", 2)
Set rs1 = db.OpenRecordset("select min(tday) as mday from products")
If x < rs1!mday Then
MsgBox "لا يوجد اليوم فى القائمة"
p_price = ""
Else
p_price = rs!ppp
End If

تم عمل كود باستخدام مكتبة DAO

تمام استاذ امير

الكود يعمل بكفاءة وهو المطلوب

ممكن توضيح للكود

شكرا استاذى الفاضل

Shivan Rekany

عندي المنتج اسمة هارد الايام مثلا 1-10-2010 سعرة كان 400 جنية وفى يوم 10-10-2010 سعرة 450 جنية وفى يوم 12-11-2010 سعرة 350 جنية وفى يوم 26-12-2010 سعرة 550 جنية

للتوضبح اكثر

يوم 20-10-2010 منحصر بين اليومين 10-10-2010 واليوم 12-11-2010

فمجرد كتابة يوم 20-10-2010 بعد التحديت after update  يظهر سعر اليوم 10-10-2010 فقط

مثال اخر للتوضيح

فرضا عندى يوم 1-3-2010 سعره 300 ويوم 4-4-2010 سعرة 320 ويوم 18-4-2010 سعرة 341 ويوم 2-5-2010 سعرة 301

فى حالة لو كتبت فى التكست بوكس يوم 1-5-2010 يظهر سعر يوم 18-4-2010 هو 341

وفى حالة لو كتبت يوم 2-5-2010 يظهر مبلغ 301 جنية لانه موجود فى التسجيلات عندي

لو يوم غير موجود فى التسجيلات ياخذ سعر  اول يوم اقل منه

لو اليوم موجود فى التسجيلات ياخذ السعر كما هو فى نقس اليوم

وشكرا جزيلا

استخدمت dlookup ولم تنجح فى استخراج المطلوب

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

الفكرة

عندى جدول اسمة products  وبه ثلاث اعمدة ( tday نوعة تاريخ + product اسم المنتج نوعة نص + price السعر نوعة قيمة )

عندى فى النموذج اسمة form1 وبه زر كوماند بدون كود

المطلوب

عاوز كود وظيفتة يستعلم عن السعر فى تاريخ محدد مثال للتوضيح

عندي المنتج اسمة هارد الايام مثلا 1-10-2010 سعرة كان 400 جنية وفى يوم 10-10-2010 سعرة 450 جنية وفى يوم 12-11-2010 سعرة 350 جنية وفى يوم 26-12-2010 سعرة 550 جنية

عند كتابة اليوم وليكن كمثال 20-10-2010 يظهر المبلغ المحصور  بين اكبر يوم مقارب له واقل يوم مقاربة له والمبلغ هنا 450 جنية ( اكبر يوم مقارب له هو يوم 12-11-2010 واقل يوم مقارب له هو 10-10-2010 ) المطلوب السعر الخاص باقل يوم مقارب له هو يوم 10-10-2010 لان يوم 20-10-2010 منحصر بينهم .

تحديد السعر.rar

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

تفضل  استبدل الكود بهذه الجملة

DoCmd.SetWarnings fals
DoCmd.RunSQL "INSERT INTO tran ( tra ) " & vbCrLf & _
"SELECT [ngro] & "" "" & [nsanf] AS xpr1 " & vbCrLf & _
"FROM gro, sanf"
DoCmd.SetWarnings True

تسلم اخى ابو خليل هذا المطلوب ياريت توضح شرح الكود علشان الكل يستفاد مشكور اخى الغالى

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

الفكرة

عندى ثلاث جداول جدول للمجموعة وجدول للاصناف وجدول للحركة الدمج

المطلوب

اخذ كل حقل فى الجدول المجموعة ودمجها مع جميع الحقول بجدول الاصناف ووضعها فى جدول الحركة

مثال

فى جدول المجموعة يوجد بها التسجيلات كمثال وليكن 3 ريكورد ( موس ، لوحة مفاتيح ، سماعات )

فى جدول الاصناف وليكن اربع ريكورد ( درجة اول ، درجة ثانية ، درجة ثالثة ،درجة رابعة )

فى جدول الحركة يجب دمج كل ريكورد من المجموعة مع كل صنف مثل ( موس درجة اولى 

الركود الثانى موس درجة ثانية حى موس درجة رابعة

وبعد ذلك يدخل على لوحة المفاتيح

وبعد ذلك سماعات ( سماعات درجة اول - ثانية ثالثة .... سماعات درجة رابعة )

المطلوب تنفيذ عن طريق الكود او تكملة الكود

test.rar

test.rar

Dim db As dao.Database
Dim rs1 As dao.Recordset
Dim rs2 As dao.Recordset
Dim rs3 As dao.Recordset
Dim rs4 As dao.Recordset
Dim rs5 As dao.Recordset
Set db = CurrentDb
Set rs1 = db.OpenRecordset("gro", 2)
Set rs2 = db.OpenRecordset("select count(nsanf) as sss from sanf", 2)
Set rs5 = db.OpenRecordset("select count(ngro) as ggg from gro", 2)
Set rs3 = db.OpenRecordset("tran", 2)
Set rs4 = db.OpenRecordset("sanf", 2)
''''''MsgBox (Val(rs2!sss) + Val(rs5!ggg))
'On Error Resume Next
'rs1.MoveFirst
For i = 1 To Val(rs2!sss)
rs3.AddNew
rs3!tra = rs1!ngro & "  " & rs4!nsanf
rs3.Update
rs4.MoveNext
Next