ابوخليل

اعمل قاعدة بيانات جديدة ثم اجلب اليها جميع كائنات القاعدة القديمة

لن انتظر ردك فقد عدلت حسب الفكرة تفضل dbx2.mdb

انت لم تذكر هذا الشرط حفظك الله ورعاك يمكن ندخل شرط حقل no ويكون شرطين : 1- يساوي رقم التعامل ، 2- يكون يساوي رقم no او اكبر تمام كذا ؟

بالضبط هذا ما عملته لك الاضافة او الحذف حسب رقم التعامل ، يحذف جميع السجلات التي تحمل رقم تعامل مشابه وكذلك الاضافة اما قولك : ارجوا ان تراجع المثال مرة اخرى ، حتى اني عملت لك شرط اختيار التعامل والا لن يتم التنفيذ اذا مثالي المرفق لا يعمل عنك كما ذكرت لك فجائز يكون بسبب الاصدار افتح مثالي على المكتبات وانظر اذا يوجد عندك نقص

تفضل تم بعض التصرف حيث تم تغيير مسى الجدول والفورم كلمة sub محجوزة في اكسس dbx1.mdb

لم افهم اجابتك هل هي موافقة ؟ : الازرار في النموذج الرئيس وتتم على النموذج الفرعي ؟

عليكم السلام استعمل البحث فالمنتدى مليء بمثل هذه المواضيع

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

اعلانات الاعضاء هو المكان المناسب لو وضعت وسيلة اتصال من اجل يكون التعامل معك خارج مسؤولية المنتدى

Public Function CheckLinks() As Boolean On Error GoTo CheckLinksErr Dim tdf As TableDef Dim strNewMDB As String Dim fd As FileDialog For Each tdf In CurrentDb.TableDefs If UCase(Left(tdf.Name, 6)) <> "CROSGAD" Then If Len(tdf.Connect) > 0 And tdf.Fields.Count = 0 Then If Len(strNewMDB) = 0 Then MsgBox "لا يمكن الاتصال بقاعدة البيانات ، سيتم غلق البرنامج" DoCmd.Quit End If tdf.RefreshLink End If End If Next tdf CheckLinks = True CheckLinksDone: Exit Function CheckLinksErr: MsgBox "Error #" & err.Number & ": " & err.Description, vbCritical Resume CheckLinksDone End Function

هذا الكود يعمل في أكسس : If Month(Date()) = 1 Then DoCmd.OpenForm "form1" وهكذا ... ويمكن اختصاره ليشمل 12 شهر هكذا Private Sub zer1_Click() Dim stDocName As String Dim mnthNum As Integer mnthNum = Month(Date) stDocName = "form" & mnthNum DoCmd.OpenForm stDocName End Sub

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

نعم يوجد وهي فحص حالة الاتصال بقاعدة البيانات ويمكن وضع كود الفحص في حدث النقر على زر الحفظ مثلا ولكن وقت انقطاع الاتصال والفورم مفتوح لن يظهر شيء يدل على ذلك الا فيما لو تم تشغيل الفحص في حدث عداد الفورم وهي طريقة غير محببة .

لنفرض ان عنصر التحم للنموذج الفرعي 2 اسمه subfrm2 وأن النموذج الرئيس اسمه form1 اكتب السطر التالي بعد امر الحذف الموجود في الفرعي1 forms!form1!subfrm2.Requery

اعتقد انه يمكن ايضا ان يتم التغيير شهريا جرب تغيير السطر في الاقتباس اعلاه الى prtyr = DatePart("m", Date)

القيمة كثيرة يوجد مواقع ارخص ويمكنك ربط برنامجك بها حيث يوفرون لك كود الربط هذه واحدة منها http://www.kingsms.ws/loginForm/send

كم سعر الرسالة عندهم ؟ أو بكم تشتري الــ 1000 منهم ؟

انا اجبت على السؤال بالضبط حسب كودك الظاهر وحسب المثال المعمول عليه ، وقد ارفقته الآن بعد التعديل اما ان يكون مصدر البيانات يشتمل على عدة معايير فهذا يختلف ، يمكنك جعل المصدر للرسائل الاستعلام الحاصل بعد التصفية ملحوظة : True And 57 = True ابتعد عن تسمية الحقول بارقام أو جعل اول الاسم رقم ، اضف لها حرفا في اول التسمية mysn3.mdb

الفكرة جميلة بادخال الرمز الدولي آليا من البرنامج ، لان الادخالات غالبا وسؤال العميل عن رقمه المحلي انا استخدم هذه الطريقة ولكني اثبتها في مصدر البيانات نفسه اما تجاوز الارقام المكررة فيتم بتجميع مصدر البيانات قمت بتبديل الحروف العربية حتى يسهل قراءة الكود Dim AllTel As String Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT tbl1.jwal FROM tbl1 GROUP BY tbl1.jwal") With rs .MoveFirst While Not .EOF If Len(.Fields("jwal")) = 10 Then AllTel = AllTel & "," & "966" & Right(.Fields("jwal"), 9) End If .MoveNext Wend .Close End With AllTel = Right(AllTel, Len(AllTel) - 1) txt1 = AllTel txt1.SetFocus ملحوظة : غير اسم الجدول واسم الحقل حسب الموجود عندك

عموما هذا شرح بالصورة للنظامين لما يجب عليك عمله

نظام وندوز كم عندك ؟ 32 أو 64 ؟

وعليكم السلام لطفا اخي : اكتب وسيلة التواصل معك من اجل نقل الموضوع الى قسم اعلانات الاعضاء

"UPDATE 01_PoliceMan SET [01_PoliceMan].Gadol_P = [forms]![00_Home]![Gadol_P]"

معذور اخي .. هذا يسمى حماية الحقوق الفكرية

اعمل ضغط للملف قبل رفعه .. باستخدام برامج الضغط winrar او winzip بعد مراجعة مثالك اشكل علي طلبك ... انا في الاول فهمت انك تريد تخصيص التحديث لموظف محدد .. لان اكسس داخل الفورم يفعل ذلك هل تريد الكود يحدث بيانات جميع الموظفين الموجودين في الجدول ؟