AlwaZeeR

استخدم القيمة الافتراضية بهذه الطريقة في حدث عند التحديث لحقل الاختيار الخاص بك ضع هذا الكود مع تغيير ما يلزم حسب اسم الحقول لديك :: مثالك ليس له علاقة بما تقول Select Case yrchk Case True DtField.DefaultValue = """" & Me.DtField & """" Case Else End Select

وعليكم السلام ورحمة الله وبركاته بداية المساعدة هنا مجانية لوجه الله تعالى الا اذا كان احد يريد ثمن ماديا فهذا شأنه بحثت لك عن كود يقوم باعادة ربط الجداول سوفه الصقه هنا وان شاء الله يكون بداية الوصول لما تصبو إليه هذا هو الكود Function RefreshSharePointLinks() Dim dbs As Database Set dbs = CurrentDb() For Each tbl In dbs.TableDefs If (Mid(tbl.Name, 1, 1) <> "~") And ((tbl.Attributes And dbAttachedTable) = dbAttachedTable) Then 'اسم جدول معلومات المستخدم يتغير حسب اصدار الاكسس المستخدم في عملية الشيربوينت If tbl.Name <> "UserInfo" Then DoCmd.SelectObject acTable, tbl.Name, True DoCmd.OpenTable tbl.Name DoCmd.Close acTable, tbl.Name End If End If Next End Function

وعليكم السلام ورحمة الله وبركاته حل من الحلول: يمكنك تثبيت عرض كل عمود بحيث لو قام المستخدم بتكبير او تصغير الحقل عند الخروج والعودة الى النموذج يعود الحجم كما ثبته انت استخدم في حدث عند تغيير الحجم للنموذج Me.YrFieldName.ColumnWidth = 1440 وهكذا :: تحياتي

استخدم هذا الكود في حدث عند الخطأ للنموذج If DataErr = 3022 Then Response = acDataErrContinue End If testError.zip

اضافة لما تفضل به اخي وصديقي صالح تفضل On Error GoTo Err_Handler With CurrentDb .Execute "DELETE AuditTable.* FROM AuditTable", dbFailOnError .Execute "DELETE Copy Of BEIRUT.* FROM Copy Of BEIRUT", dbFailOnError .Execute "DELETE Loc_tbl_Blob.* FROM Loc_tbl_Blob", dbFailOnError .Execute "DELETE moaqef.* FROM moaqef", dbFailOnError .Execute "DELETE student_moaqef.* FROM student_moaqef", dbFailOnError .Execute "DELETE tbl_Animals.* FROM tbl_Animals", dbFailOnError .Execute "DELETE temp.* FROM temp;", dbFailOnError .Execute "DELETE Temp_date.* FROM Temp_date", dbFailOnError .Execute "DELETE TempAccountTbl.* FROM TempAccountTbl", dbFailOnError End With Err_Handler: If err <> 0 Then MsgBox err.desc & " (" & err.Number & ")" err.Clear Exit Sub

تطبيقا لحل اخي جعفر مخازن_2upd.zip

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

فكرة رائعة ومتوفرة في المنتديات الاجنبية حبذا لو يتم تطبيقها :: كل الشكر والتقدير :: تحياتي

جرب الحل الموجود في هذا الرابط https://support.microsoft.com/en-us/help/896865/you-may-receive-a-the-ole-server-may-not-be-registered-error-message-w

=Count(IIf([النوع]="ذكر",0)) مع تغيير كلمة ذكر لانثى في حال جمع الانثى

تتعدد اشكال النماذج للادخال حسب الحاجة وراحة المستخدم في النموذج الرئيسي ادرج نموذج فرعي لمتبرعي الزكاة سيتم ربطها تلقائيا حسب العلاقة عملت لك نموذج سريع لضيق الوقت لدي وانت انطلق :) العلاقاتUPd.zip

من اين تقوم بادخال البيانات ؟ هل قمت بانشاء نموذج ادخال بيانات؟؟؟

تفضل عزيزي DateName هو اسم حقل التاريخ الميلادي :: تحياتي تحويل التاريخ الى هجريUPD.zip

نعم عزيزي تحتاج الى تعديل نوع الربط في العلاقات العلاقاتUPd.zip

تحتاج ايضا الى تعديل العلاقات المتبقيUPD.zip

نزل برنامج فك الضغط مرة ثانية بيفتح عادي

بهذه الطريقة لن يتم التحديث الا مرة واحدة فقط مهما ضغطت UPDATE YourTbl SET phonenumber = Format(phonenumber & '00') WHERE Len(Nz(phonenumber, '')) = 6 AND phonenumber IS NOT NULL;

تفضل :: DatabaseRaseed.rar

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

Kill "D:\FoldrName\*.*"

اتمنى ان تجد ضالتك هذا ما فهمته واعتمدت عليه في عمل المثال :: تحياتي

دائما عندي مشكلة في ضغط الملف نزل الاصدار الاخير من الوينرار وسوف يفتح

السلام عليكم ورحمة الله وبركاته اسمحوا لي بمداخلة وعسى ان تكون ما يطمح اليه الاخ ابو ياسين جرب المرفق: 1- عند الفتح لاول مرة لا يقبل اي داتا غير الداتا الاساسية لبرنامج الخياط 2- بعد الربط تستطيع عمل نسخة احتياطية 3- تستطيع استبدال الداتا الاساسية باي داتا اخرى محفظوطة سابقا مع حذف الجداول المرتبطة سابقا صراحة ابو ياسين فهم السؤال ثلثي الاجابة وانت تفرعت في طرحك :: تحياتي KhaiatNewww.rar

السلام عليكم ورحمة الله وبركاته حل اخر بعمل استعلام جدولي بنتيجة كما بالصورة :: تحياتي استخراج اخر تنقل وماقبله1.rar

وعليكم السلام ورحمة الله وبركاته نعم تستطيع عزيزي الخطوات: 1- افتح وحدة نمطية فارغة ثم الصق فيها الكود التالي Option Compare Database Function ConvertDateString(StringIn As String, OldCalendar As Integer, NewCalendar As Integer, NewF As Integer) As String Dim SavedCal As Integer Dim d As Date, da As Variant, mo As Variant, ye As Variant Dim s As String ' حفظ التاريخ الحالي للتغيير SavedCal = Calendar ' تحويل البيانات Calendar = OldCalendar d = CDate(StringIn) Calendar = NewCalendar If NewF = 1 Then da = Format$(d, "dd") mo = Format$(d, "mmmm") ye = Format$(d, "yyyy") Else da = Format$(d, "dd") mo = Format$(d, "mm") ye = Format$(d, "yyyy") End If s = CStr(da & " " & mo & " " & ye & " هـ ") ConvertDateString = s ' النتيجة Calendar = SavedCal End Function 2- الان قم باستدعاء الوحدة النمطية في المكان الذي تريد تبديل التاريخ من ميلادي الى هجري = ConvertDateString(DateField, 0, 1, 1) :: تحياتي