ابوخليل

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

فك الضغط عن المرفق . ستحصل على ملف تنفيذي + مجلد بداخله قاعدة بيانات (افتح قاعدة البيانات لتطلع على محتواها ) القاعدة تشتمل على نموذج واحد انقل المجلد وضعه على قرص C ارجع الى الملف التنفيذي وانقر عليه ( جعلت التحديث صامتا _ بسبب العلم المسبق بموقع ومكان قاعدة البيانات ) عد الى المجلد وافتح قاعدة البيانات وانظر ان اعجبتك الطريقة فبرامج التحزيم متنوعة ومتوفرة بكثرة .. عليك فقط البحث test1.rar

اذا المسألة فيها امثلة فالافضل ان تكون المسألة احترافية لذا يمكننا الاستعانة باحد برامج التحزيم (نضمن داخله قاعدة البيانات) وسوف يقوم بالمهمة بصمت و على اكمل وجه واعتقد ايضا برنامجي ضغط الملفات ( Rar أو Zip ) يقومان بهذه المهمة ولكني لم استخدمهما من قبل مثالي الذي سأرفقه سأستعين بــــ برنامج تحزيم

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

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

جرب تضع سطر امر تشغيل الملف عند اغلاق قاعدة البيانات انا لم اجرب

تفضل تم اصلاح الخل .. لاحظ الفرق بين هذا السطر و السطر الموجود في مثالك : For M = 1 To MOALEM![الاحد] And MOALEM![الاثنين] And MOALEM![الثلاثاء] And MOALEM![الاربعاء] And MOALEM![الخميس] توزيع الحصص2.rar

بالنسبة لاكواد رصيد الصنف فهذه فقط التي كانت في برنامجي : Rsnf: (Nz(DSum("Alkmiah","Qrymaster","Nwaha=11" & " and ID_Sanf=" & [ID_Sanf])) -Nz(DSum("Alkmiah","Qrymaster","Nwaha=12" & " and ID_Sanf=" & [ID_Sanf]))) -(Nz(DSum("Alkmiah","Qrymaster","Nwaha=13" & " and ID_Sanf=" & [ID_Sanf])) +Nz(DSum("Alkmiah","Qrymaster","Nwaha=14" & " and ID_Sanf=" & [ID_Sanf]))) وزيادة الاسطر من عمل ابو زاهر واعتقد السطر الاخير خطأ مني يجب ان تكون العلامة بالموجب وهو كما ذكر ابو زاهر 11 للمشتريات 12 لمرتجع المشتريات 13 للمبيعات 14 لمرتجع المبيعات فالاسطر الثلاثة الاولى العملية طرح لان مرتجع الشراء عبارة عن بيع ولكن السطر الاخير يجب ان تكون العلامة (+) لان مرتجع البيع عبارة عن شراء

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

تقصد قاعدة الجداول الخلفية ؟

عودا حميدا استاذ جعفر .. و مع العودة هدايا شكرا لك

شكرا لك يا عاشق الرقي وقريبا ان شاء الله نراك من الخبراء المحترفين تفضل البحث يتم بسرعة فائقة Dim rs As DAO.Recordset Dim rst As DAO.Recordset Dim r As Boolean Dim rr As Boolean On Error Resume Next Set rs = CurrentDb.OpenRecordset("SELECT data.crn FROM data WHERE (((data.name1)=meyar()))") Set rst = CurrentDb.OpenRecordset("SELECT out.crn FROM out WHERE (((out.name1)=meyar()))") r = rs!crn rr = rst!crn MsgBox r & "-" & rr If r = True And rr = True Then MsgBox "العميل موجود ضمن الحاليين والسابقين" ElseIf r = True And rr = False Then MsgBox "العميل موجود ضمن الحاليين فقط" ElseIf r = False And rr = True Then MsgBox "العميل موجود ضمن السابقين فقط" End If rs.Close: Set rs = Nothing rst.Close: Set rst = Nothing End Sub لاحظ وجود دالة في الوحدة النمطية العامة البحث في جدولين(select).mdb

تفضل رسالة بثلاث احتمالات Dim rs As DAO.Recordset Dim rst As DAO.Recordset Dim i, ii As Integer Dim r As Boolean Dim rr As Boolean Set rs = CurrentDb.OpenRecordset("data") Set rst = CurrentDb.OpenRecordset("out") rs.MoveLast rs.MoveFirst For i = 1 To rs.RecordCount r = Nz(DLookup("crn", "data", "name1 ='" & Me.txtsearch & "'"), 0) Next i rst.MoveLast rst.MoveFirst For ii = 1 To rst.RecordCount rr = Nz(DLookup("crn", "out", "name1 ='" & Me.txtsearch & "'"), 0) Next ii If r = True And rr = True Then MsgBox "العميل موجود ضمن الحاليين والسابقين" ElseIf r = True And rr = False Then MsgBox "العميل موجود ضمن الحاليين فقط" ElseIf r = False And rr = True Then MsgBox "العميل موجود ضمن السابقين فقط" End If Set rs = Nothing Set rst = Nothing البحث في جدولين.mdb

السلام عليكم استخدم الامر التالي لأي حقل تريد منع تحديد الكل Private Sub text1_Enter() With Me.text1 .SelStart = 0 .SelLength = 0 End With End Sub على اعتبار text1 هو الحقل المراد تطبيق الامر عليه

عملك صحيح فقط في خطأ في كتابة اسم الحقل (عدد الحصص) انت كتبته (أعدد الحصص) بزيادة الف

طلبك مقتضب وغير واضح تفضل تم التعديل على مثالك الصور تتغير كل 5 ثواني اذا هذا هو المطلوب يمكنك زيادة الوقت prog.rar

الحمد لله شكرا للجميع

السلام عليكم وتفضلوا ايضا If MsgBox("هل ترغب في حذف السجل", vbInformation + vbYesNo) = vbYes Then str_Title = "حذف سجل" str_Prompt = "ادخل كلمة المرور" paswrd = InputBox(str_Prompt, str_Title) If paswrd = "123" Then DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Else Exit Sub End If End If يبدوا اننا كنا نعمل في وقت واحد

الله المستعان

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

وعليكم السلام اعتذر لضيق وقتي ولكني احببت ان اشارك بهذا المرفق هذه قاعدة برنامج جداول (نسخة احتياطية) تشتمل على بيانات كاملة لعلكم تجدون به فائدة VBWINTBL.MDB

تمام ولكن الرسالة في مربع النص تظهر قبل فتح النموذج وقبل ما الشريط يتحرك وهذا غير منطقي وعلى الاقل اصبح واضح للعيان يعني بكذا عمل الشريط تحصيل حاصل تم التعديل بحيث تظهر العبارات بعد انتهاء الشريط وغلق النموذج db1.mdb

وعليكم السلام فهم السؤال هو نصف الاجابة .. ولم استوعب المطلوب بالتمام ولكن وحسب ما فهمت قمت بالتعديل على المثال اتمنى ان اكون قريبا من طلبك db1.mdb

السلام عليكم ورحمة الله وبركاته احبتي هدية صغيرة وهي طريقة التبديل لاختيار العمود الذي يتم عرضه في مربع التحرير وفي المثال غنية عن المقال dbArEn.mdb

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