سلام شريف
إستعمل Controls("butto" & i).Caption بدلا من Me(button)
حيث أنه لا يوجد لدى arabic Office لا يمكننى فتح ملفك و لكن نظرت إلى الـcode
سوف أرسل لك بمثال قصير إن شاؤ الله
قليل من الصبر الجميل
بالنسبه لسؤال الآول؛ حاول ألا تضع أى تنسيق فى إدخال التاريخ و قم بتعديل إعدادت التاريخ الخاص بالـWindows التابع لك و ذلك عن طريق إختيار الدوله التى بها.
السؤال الثانى يجب إستخدام جمله الـ IF
If IsNull(txt1) and IsNull(txt2) Then
Sql= "SELECT * From yourTable Where 1=1"
Else
Sql= "SELECT * From yourTable Where yourField Between Forms!Txt1 And Forms!Txt2"
EndIf
سلام عليكم
أرسل إليك بـTool صغير كنت قد كتبته من فتره ليساعدك على فتح أى قاعده بيانات ثم عمل Compress and Repair لها أو عمل Copy لها بعد ذلك
عساه ينفعك
Compact.rar
على قدر معرفتى القصيره بالـExcel هناك داله إسمها Transpose التى تقوم بتحويل الصفوف إلى أعمده و العكس؛ يمكنك تصدير جدولك إلى الـExcel و نداء تلك الداله من هناك
ملحوظه:
طريقه البيانات المعطاه فى الجدول لا تجدى كثيراُ فى الـAccess ما هو الغرض من تخزين المعلومات هكذا. لعل هناك طريقه أسهل .....
يمكنك فى حدث Form_Current() ä وضع تلك المقارنه
If DateDiff("d", DateOfRecidence , Date) < 10 Then
Msgbox ("Recidence will be Terminated in ") & DateDiff ("d", DateOfRecidence, Date) & " Days"
End if
يمكنك عمل جدول تخزن فيه مواعيد عمل التقرير و ذلك بإستخدام الداله DateAdd و فى بدايه فتح النموذج يتم فتح هذا الجدول و مقارنه التواريخ التى به بتاريخ اليوم إن كان هذا اليوم موجود فى الجدول يتم طبع التقرير ثم مسح هذا التاريخ من الجدول
هذا هو الفكره
من الممكن عمل تلك الداله؛ و لكن قبل أن تتعب نفسك ؛
ما هو الغرض من تدوير الجدول .
مع الآشاره إن كان عدد الصفوف أكبر من 255 فسوف يواجهك مشكل.
لا يمكن جعل الحقول فى أى جدول أكبر من 255
الآخت العزيزه زهره؛
نعم هذا ما كنت أقصده ؛ حتى أن إسم الـTool هو ExOntrol.SkinForm.1 و هو نفس أسم الشركه التى أشرت إليها فى بدايه الموضوع ؛ لكن عندما نظرت إلى خواص الآده و جدت بها الخاصيه الـVersion إنها DEMO فهل يمكن إستخدامها أم هى لوقت محدد.
كذلك عند وضع أى element على الـForm لا يأخذ شكل الـskin فلكل element هناك أداه لعمل الـskin الخاص به
يمكنك زياره الشركه المصنعه هنا
Skin.rar