أبو وليد

للرفع

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

لدي تقرير وفيه دالة ترقيم الصفحات ="نسخة " & [Page] & " من " & [Pages] وتكون النتيجة نسخة1 من 2 ن اريد النتية تظهر هكذا نسخة (1) من (2) هل يمكن ذلك بارك الله فيكم

بارك الله فيك سوف احاول

لدي جدول به كلمات مثل ( كبير - صغير - طويل - قصير ) ونموذج لطباعة التقارير عن الضغط على امر طباعة تنتقل البيانات الموجودة في النموذج الى التقرير المطلوب عند نقلها الى التقرير يعمل مراجعة للتقرير اذا موجود كلمة من الموجودة في الجدولة يجعل لونها احمر وحجم الخط مثلا 20

شكرا عزيزي ولكن اريد ذلك على مجموعة من مربعات النص وليس واحد

لم أكن اتوقع أن سؤالي بهذة الصعوبة للرفع

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

الف شكر وياليت تدلونا على المواقع

اخي العزيز بارك الله فيك لي ملاحظة ارجوا ان تشرحها بالنسبة للجدولين fb5 و fbi اين هي كيف اخفيتها

فكرة رائعة استاذ ارجوا ان تضع مثال عليه كيف اجعل النموذج خلفية ثابتة

مشكور استاذنا الكبير وكل عام وأنت بالف صحة وعافية

عندي نموذج به عنصر غير منظم به ملف ورد اريده ان يتحدث تلقائيا بمعنى عند اي تغير يظهر في العنصر في النموذج بدون غلق النموذج وفتحه

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

وفقكم الله اخي العزيز ماذا لو تم فتح الجدول ("tbldate") واعادة كتابة تاريخ قديم ========= هل استطيع كم بقي من المدة للعمل يعني لو اشتغل البرنامج خمس ايام بقي له 25 يوم

هذا كود ليجعل البرنامج يعمل لفترة زمنية محددة ارجو عمل مثل عليه Private Sub Form_Open(Cancel As Integer) On Error GoTo MyErr: Dim MyFirst As Date Dim MyInDate Dim MyTableName As String MyInDate = DFirst("[Date1]", "[T1]") If Not IsNull(MyInDate) Then MyFirst = MyInDate Else DoCmd.SetWarnings False DoCmd.RunSQL ("INSERT INTO T1 ( Date1 ) SELECT Date();") DoCmd.SetWarnings True MyFirst = Date End If If MyFirst <= Date - 3 Then '[color=green] غير الرقم من 3 الى اي عدد تريد[/color] MsgBox"مضى على التشغيل 3 ايام وسيتم ايقافه" Call TableDelete Else If MyFirst > Date Then MsgBox"تم التلاعب بتاريخ الجهاز وسيتم ايقاف تشغيله" Call TableDelete End If End If Exit Sub MyErr: If Err.Number = 3078 Then MsgBox"تم تعطيل البرنامج" ' Quit 'قمت بتعطيل الامر خروج لتروا الطريقة Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Function TableDelete() On Error Resume Next Dim MyDb As Database Dim MyTable As TableDef Dim MyTableCount As Integer Set MyDb = Application.CurrentDb MyTableCount = MyDb.TableDefs.Count For i = MyTableCount - 1 To o Step -1 Set MyTable = MyDb.TableDefs(i) MyTableName = MyTable.Name If Left$(MyTableName, 4) <> "Msys" Then MyDb.TableDefs.Delete (MyTableName) Next MyDb.Close End Function

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

لو مثلنل اعطينا امر Workbooks("FileName.XLS").refreshall Workbooks("FileName.XLS").Close SaveChanges:=True يفتح الملف ويغلق بسرعة علما بأ، التحديث يستمر اكثر من عشر دقائق يعني ما ينتظر التحديث

لم تنجح معي حيث يفلق الملف التحديث

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

بارك الله فيك نعم انا الغلطان في كتابة المسميات

لم تنجح معي عند ادخال اي رقم تظهر رسالة "عفواً .. عدد السجلات المحددة اكبر من عدد سجلات النموذج", vbOKOnly, "فريق أوفيسنا" للمعلومية النموذج طريقة عرضه نماذج مستمرة

وفقك الله سوق اجرب واخبرك بالنتيجة

عندي نموذج به مربع نص ( التاريخ) واخر ( السعر) وخصائص النموذج (نماذج مستمرة) ولدي مربعات نص لحساب متوسط السعر الى هنا تمام لكن عندما اريد حساب متوسط سجلات محدده اريد ان اضع مربع نص وعند ادخال عدد مثلا 10 اريد في مربع نص اخر ان يجمع حقل السعر لاخر 10 سجلات في النموذج كيف ؟ وفقك الله الجميع الرجاء عدم التذمر من كثر مشاركاتي

ياشيخ روح ربنا يفتحها عليك وينور دربك