امير عاطف

اعتقد انه اذا كانت النماذج منبثقة لا يمكن التحكم لإظهار شريط القوائم ولكن يمكنك عمل ذلك عن طريق جعل النموذج غير منبثق واخفاء كل الأشرطة التي لا تريدها واظهار الشريط الذي تريده فقط

ما تقم بتطبيقه على الخانة الواحدة قم بتطبيقة على الثلاث خانات مع بعض ولكن قم باستخدام المعامل Or بدلاً من And بمعايير الإستعلام, واذا لم يتضح الأمر معك فقم بشرح مكونات الجدول بالتفصيل

تفضل مثال على ذلك وتمعن الإستعلام جيداً حمل المثال من هنا

يمكنك ذلك عن طريق استخدام الدالة Len وايضاً استخدام احرف البدل شرح احرف البدل هنا ولعمل ذلك تقم بتطبيق ما اشير اليه اعلى ثم تذهب امام خانة المعايير للحقل المسمى phone_number بالإستعلام وهو الذي به رقم التليفون نفسه وليس عدد ارقام التليقون وتضع التعبير التالي Like "94*" وذلك في حالة الأرقام التي تبدأ برقم94 Like "93*" وذلك في حالة الأرقام التي تبدأ برقم34 وهكذا .....

السؤال للأخ noursh وهو: لدي ثلاث خانات فيها أرقام الهواتف أريد أن أعمل استعلام بحيث يظهر لي الأرقام التي طولها 8 وبدايتها 94 أو 93 فإذا وضعنا تعليمة len لكل خانة لا يظهر أي شيء أريد وضع شرط بحيث يظهر لي جميع أسماء الزبائن الذين أرقام هواتفهم مؤلفة من تسعة أرقام وبدايتها 94 أو 93 ماالشرط الذي أضعة لأشمل الخانات الثلاث ولكم جزيل الشكر

الأخ ايمن عمارة : سلام الله عليكم ورحمته تعالى وبركاتة لا اتفق معك في ان قاعدة البيانات بصيغة MDE ليست الأسلوب الأمثل في الحماية (وجهة نظر) حيث ان افضل طريقة لحماية قاعدة البيانات وخاصةً التعديل بكود الVBA هو عن طريق حماية القاعدة بصيغة MDE وحتى الان لم اسمع عن التعديل بكود ال VBA بقاعدة بيانات بصيغة MDE بخصوص الحماية المقترحة بمثالك السابق فكل ما عليك هي ازالة الصلاحيات لفتح النموذج الذي تريدة في وضع التصميم Design واذا لم تستطع الوصول للصلاحيات فقم باظهار شريط القوائم Menu Bar ن طريق مربع الحوار Customize (تخصيص) وقم بالتعليم بجانب الخاصية التي يمكن من خلالها التحكم في اظهار واخفاء شريط القوائم Menu Bar ومن شريط القوائم بالطبع يمكننا الوصول للتحكم بالصلاحيات بوجه عام ها هي قاعدة البيانات المرفقة سابقاً بعد تعديل الصلاحيات بها هنـــــا مع خالص الشكر والتحيه لجهدك الكريم

تفضل هنــــا

هل تأكد من خلفيات النماذج والصور والكائنات المضمنه كما اشار الأخ اشرف خليل اعلى

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

جرب نظرية تغير جلد القاعدة للأخ محمد طاهر :pp: وهو عن طريق عمل قاعدة بيانات جديدة وقم باستيراد جميع الكائنات من القاعدة السابقة وهنا سوف تتضح لك الرؤية أكثر,

اذا اردت تطبيق ذلك من خلال الاستعلام فقم بوضع التعبير التالي داخل حقل جديد بالاستعلام: digit_num: Len([phone_number]) وقم بوضع التعبير التالي اسفل نفس الحقل في معايير الاستعلام: >7 واجعل هذا الحقل مخفي اذا اردت

len(phone_number)>7 حيث phone_number هو اسم حقل رقم التليفون

ما قبله ( جمع الصفحات )

لا تظهر لدي كلمة خطأ ايضاً

ولفتح النموذج في وضع التصميم يتم عن طريق هذا الكود: DoCmd.OpenForm "FormName", acDesign

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

واذا اردت عمل ذلك من خلال كود ال VBA Me.ControlBox = False

ضع هذا التعبير داخل الحقل الذي تريد ان يظهر به تاريخ القسط الأخير بالاستعلام حيث a هو اسم حقل تاريخ القسط الأول حيث b هو اسم حقل عدد شهور السداد تاريخ القسط الأخير: DateAdd("m";[b];[a])

السؤال للأخ ha98 وهو:

مبروك وصولك للحل

هذا الكود يقوم بعمل فورمات للفلوبي ديسك الدرايف A وهو من عمل الأخ الخبير ابو عقيل جزاه الله كل خير أولاً: ضع هذا الكود بوحدة نمطيه عامة : Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long ثانياً: ضع الكود التالي لحدث النقر لزر الأمر الذي تريد عند الضغط عليه ان يقوم بعمل فورمات ديسك للفلوبي وليكن اسم زر الأمر Format_Button : On Error GoTo Err_format_button_Click Dim rtn As String Dim Buffer As String Dim WinPath As String Buffer = String$(255, 0) rtn = GetWindowsDirectory(Buffer, Len(Buffer)) WinPath = Left(Trim(Buffer), rtn) rtn = Shell(WinPath + "\rundll32.exe shell32.dll,SHFormatDrive", 1) Exit_format_button_Click: Exit Sub Err_format_button_Click: msgbox "لا يوجد ديسك فلوبي داخل محرك الأقراص", vbOKOnly, "رسالة توضيح" Resume Exit_format_button_Click

:lol:

في انتظار ردك

هناك ستة امتدادات لملفات الأكسس : أولاً: ملف الأكسس بامتداد MDB وهو ملف قاعدة البيانات حيث يحتوي على قاعدة البيانات بأكملها اي كامل البيانات الجداول Tables والعلاقات Realations والواجهات المرئية التي نتعامل معها من نماذج وتقارير والاستعلامات والتقارير ووحدات الماكرو والوحدات النمطية وشفرة الكود التي نكتبها, ثانياً: ملف الأكسس بامتداد MDE وهو ملف يمكننا توليدة من الملف الذي بامتداد MDB وهو كما ذكر الأخ محمد طاهر لا يسمح للمستخدم بتعديل النماذج والتقارير ولا حتى باستعراض شفرة كود ال VBA, ثالثاً: ملف الأكسس بامتداد ADP وهو مشروع اكسس يسمح بانشاء تطبيق (خادم وعميل) مع SQL Server2000, رابعاً: ملف اكسس بامتداد MDW وهو ملف قاعدة بيانات مجموعة العمل الذي يخزن معلومات الأمان المتعلقة بالمستخدمين والمجموعات, خامساً: ملف اكسس بامتداد MDA هو ملف مكتبات قاعدة البيانات ويمكن ان يحتوي على شفرة كود ال VBA يمكن استخدامها في قاعدة بيانات اخرى وكونات اضافية لتوسيع قدرات الأكسس, سادساً: ملف اكسس بامتداد LBD وهو ملف معلومات عن الإغلاق يولد تلقائياً من قبل اكسس,

يمكنك كتابة True أو Yes كلاهما يؤدي الى نفس النتيجه بحيث يتم اختيار السجلات المعلم عليها فقط وايضاً False و No يؤديان الى نفس النتيجه في اختيار السجلات الغير معلم عليها