omani

تأكد من اسم السيرفر . يجب ان يتم تغييره حسب اسم الجهاز الجديد. تحياتي

السبب ان ملف Active X Object غير متوفر أي انه لم يتم تضمينه مع البرنامج في برنامج الربط (Package ) . لذا يفضل أن تقومي باستخدام برنامج Package and Deploy الوارد مع الفيجوال نفسه . لانه الأقدر على معرفة الملفات التي يحتاجها البرنامج . تحياتي

عذراً استاذي الكريم : لم انتبه للجدول الذي تقوم بتخزين السنه به . ( فعلا مثالك عملي وجيد ) أعتذر مرة أخرى ولك مني 1+ تحياتي

تفضل مثالك بعد التعديل تحياتي db.rar

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

الصفحات موجودة . فقط قومي بتكبير الفورم وسوف تظهر في الاسفل ازرار الانتقال . هذا اذا كان هناك اكثر من صفحه في التقرير . تحياتي

جرب هذه =nz(Forms!new_seh!seh_name2.Form!dis;0) تحياتي

أختي ام عائشة لو ترفعين المثال سيكون افضل تحياتي

بعد اذن استاذنا أبو يوسف أكتبي " تقرير حسب الوظيفه " ثم ارفعي المثال للمطلوب . تحياتي

ماهي الدالة الموجودة في الاكسيل ؟ غالبا ما تكون نفس المسميات . تحياتي

ضع هذا الكود في حدث النقر لزر التعديل If (InputBox("أدخل كلمة المرور") = "654321") Then Me.AllowAdditions = True Me.AllowDeletions = True Else MsgBox " كلمة المرور خاطئة" Me.AllowAdditions = False Me.AllowDeletions = False End If تحياتي

أخي الكريم : ارفع مثال لماتريد .. تحياتي

استخدم هذا If (InputBox("Enter Password")) = "123" Then Dim Rs As Recordset Set Rs = Me.RecordsetClone DoCmd.SetWarnings 0 If Rs.BOF = False Then Rs.MoveFirst Do Until Rs.EOF ' If (Format(Rs!a3, "dd/mm/yyyy")) = (Format(Date, "dd/mm/yyyy")) Then DoCmd.RunSQL "…

غير فقط السطور هذه لتصبح هكذا If Not (Rs!monhan = 0) And (Not IsNull(Rs!monhan)) Then DoCmd.RunSQL "Insert into data (no,ed,not) values (" & Rs!no & "," & Rs!monhan & ",'نزول المبلغ')" End If هذا الكود سوف يتجاهل القيم الفارغة أو القيم التي تساوي صفر تحياتي

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

أخي هذا يعتمد على عدة أمور اولا هل تود أن يكون الترقيم حسب نوع المعاملة ؟؟ أم ترقيم شامل ؟؟ أيضا يجب أن ترفع المثال .. هل تود أن يكون هناك إشعار بعدد المراجعين الموجودين أمامك في الانتظار . مثلا / أنت حصلت على الرقم 100 وحالياً المعاملة قيد الانجار هي المعاملة…

استخدم هذا الكود Set rs = New ADODB.Recordset Set DB = New Connection DB.CursorLocation = adUseClient DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" If rs.State = 1 Then rs.Close 'لاحظ هنا عملية التجميع حسب الاسم واختيار حقل وا…

تفضل تحياتي Database1.rar

تفضل تحياتي Database1.rar

للتشغيل OLE.Action=7 للايقاف OLE.Action=9 تحياتي