mrnooo2000

تفضل اخى ما طلبت Attas.rar

تفضل اخى اليك ماتريد ايقاف الماوس بطريقتين و يمكن ايقاف بعض المفاتيح التى تحددها و لكن اذا كان لديك اكواد للماوس فارفقها حتى يستفيد الجميع New Microsoft Office Access Application.rar

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

اخى الفاضل بخصوص عدد النسخ يمكنك اضافة التاريخ الى اسم النسخة بتعديل هذا السطر NewFile = newpath & "\" & "2x.mdb" الى NewFile = newpath & "\" & date() &"_2.mdb" اما بخصوص الضغط و الاصلاح فانت الذى يحدد الحجم الذى يتم على اساسه الضغط حسب حجم الملف لديك و حجم 5 …

تفضل اخى هذا الكود به ماتحتاج و زيادة Private Sub EXIT_Click() Dim msg As String msg = MsgBox("سيتم اغلاق البرنامج ... هل تريد عمل نسخة احطياطية ", vbCritical + vbYesNoCancel, "تحذير") If msg = vbYes Then On Error GoTo MyErr Dim oldfile, NewFile, CopyMyDB oldf…

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

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

تفضل اخى test.rar

استخدم هذا الاستعلام SELECT T1.* FROM T1 LEFT JOIN T2 ON T1.الرقم = T2.الرقم WHERE (((T2.الرقم) Is Null));

يمكنك ان تجرب المعادلات و الاكواد الموجودة بالبرنامج و تخبرنا بالنتائج و لكن نرجو اضافة التقويم الخاص بك بصغة mdb حتى يستفيد الجميع

ملاحظة صحيحة أخ اكسير و سبب ذلك اختلاف طريقة الحساب فى تقويم ام القرى عموما كان ذلك بسبب نسيان منى لكن ماذا عن باقى الصلوات عموما هذا ما كنت اطلبه من الاخوة التجربة لنتبين الاخطاء المرفق بعد تعديل موعد صلاة العشاء حسب تقويم ام القرى الكتاب الموقوت-1.rar

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

اخوانى شكر الجميع على المرور و على التشجيع المرفق هو النموذج الاولى مجرد تجربة للمعادلات ارجو الاخوة يجربوا و يعطونى اراءهم عن مدى دقة النتائج New Microsoft Office Access Application.rar

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

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

اليك هذه الدالة ستفى بالغرض ان شاء الله Private Function addtime() As String Dim rs As Recordset Dim i, x, y As Integer Set rs = Me.[äãæÐÌ ÝÑÚí ÌÏæá ÇáÅÌÇÒÇÊ].Form.Recordset rs.MoveFirst For i = 0 To rs.RecordCount - 1 x = x + Hour(Me.[äãæÐÌ ÝÑÚí ÌÏæá ÇáÅÌÇÒÇÊ…

ضع هذا الكود فى النموذج الرئيسى ( المفتوح ) Private Sub Form_Load() Form.TimerInterval = 1000 End Sub Private Sub Form_Timer() If Time() = #6:15:33 AM# Then DoCmd.OpenForm "Form2" End If End Sub حيث form2 هو النموذج المراد فتحه كما تفضل استاذنا احمد مبارك الكو…

اخى الكود هو المسئول عن عملية الجمع Dim gbl_run_sum Private Sub detail_Print(Cancel As Integer, PrintCount As Integer) gbl_run_sum = gbl_run_sum + Me.fieldName tx = gbl_run_sum End Sub حيث يتم جمع الحقل المطلوب (fieldName) مع المتغير و هكذا الى اخر السجلات

استخدم هذا الكود If Not Me.NewRecord Then If DCount("no", "tab2", "isnull([nam]) and [no]=" & Me.no & "") > 0 Then MsgBox " يوجد سجلات خالية و سيتم الغائها " DoCmd.SetWarnings False DoCmd.RunSQL "delete tab2.* from tab2 WHERE (((tab2.nam) Is Null) AND ((tab2.[…

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