mrnooo2000

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

نعم اخى يمكن ذلك جرب المرفق لاحظ مصدر التقرير Gr.rar

تحتاج الى تعريف المرجع microsoft dao 3.6

فى حدث عند الضغط لزر الاضافة ( او سجل جديد) db1.rar

تفضل اخى استخدم هذا الكود If Me.child.Form.Recordset.RecordCount > 0 Then DoCmd.GoToRecord , , acNewRec Else MsgBox "لا يوجد سجلات" End If

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

تقضل اخى جرب المرفق و ان شاء الله ستجد به الحل لجميع مشاكلك لادخال التاريخ اضغط ضغطا مزدوجا على حقل تاريخ البداية و بعد ذلك ادخل المدة و سيتم حساب تاريخ النهاية date nember.rar

الكود عند الاضافة يمكنك تعديله و استخدامه عند الحذف

جزاك الله خيرا اخ ابواحمد و لكن يبدو انك نسيت ان الكود فى تقرير و ليس نموذج تفضل اخى Soll.rar

تفضل اخى جرب هذا الكود فى حدث عند الضغط Private Sub ÃãÑ6_Click() On Error GoTo Err_ÃãÑ6_Click Dim x As Integer Dim rs As Recordset Set rs = Me.Recordset 'CurrentDb.OpenRecordset(" SELECT table1.* FROM table1 ORDER BY table1.id;") rs.MoveFirst For x = 1 To rs.R…

اى خيارات اخى

أه من التسرع استبدله بهذا d = CDate(startDat)

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

عندك حق اخى و الخطأ عندى عدل هذا الجزء فى الكود If x > 30 Then y = y + (x \ 30) x = x - ((x \ 30) * 30) End If If y > 12 Then z = z + (y \ 12) y = y - ((y \ 12) * 12) End If او استخدم هذا الكود وحده و سيفى بالغرض ان شاء الله Dim d As Date Application.SetOption…

و هذا مثال اخر systray.zip

تفضل اخى جرب المرفق db3333.zip

اخى استخدم خاصية البحث و اليك هذه الروابط /index.php?showtopic=121134 /index.php?showtopic=140547 /index.php?showtopic=78174

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

تفضل اخى جرب هذا الكود و أخبرنى Dim x, y, z As Integer x = Val(Me.cmdYoom) + Val(Me.Moditoha) - 1 y = Me.cmdShaher z = Me.cmdSanh If x > 30 Then y = y + (x \ 30) x = x - 30 End If If y > 12 Then z = z + (y \ 12) y = y - 12 End If Me.[cmdYoomm] = Format$(x, "00…

تفضل اخى جرب المرفق inf.rar