ابوبسمله

اتفضل دبل كليك على حاله الصرف وسيتم اتاحه التعديل ثم عند الخروج سيتم تفعيل الوضع غير ممكن التعديل
بالتوفيق
TestLOck -2.accdb

اتفضل دبل كليك على حاله الصرف وسيتم اتاحه التعديل ثم عند الخروج سيتم تفعيل الوضع غير ممكن التعديل
بالتوفيق
TestLOck -2.accdb

اتفضل دبل كليك على حاله الصرف وسيتم اتاحه التعديل ثم عند الخروج سيتم تفعيل الوضع غير ممكن التعديل
بالتوفيق
TestLOck -2.accdb

السلام عليكم
مشاركه مع اخى العزيز مهندس قاسم  جزاه الله كل خير
لعلها تكون ما تريد
Private Sub أمر13_Click() x = Me.rsdall DoCmd.GoToRecord , , acNewRec Me.rsd1 = x End Sub تقبلوا مرورى وتمنياتى لكم بالتوفيق
رصيد_1.accdb

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

بالتوفيق

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

بالتوفيق

وعليكم السلام ورحمه الله وبركاته
طيب ليه عاوز هذه القيم فالجدول بما انه يمكنك الحصول عليها فى الاستعلامات وافضل والعمل عليها ؟
اتفضل تم استخدام استعلام تحديث وليس الحاق
بالتوفيق
Database_3.accdb

وعليكم السلام ورحمه الله وبركاته
طيب ليه عاوز هذه القيم فالجدول بما انه يمكنك الحصول عليها فى الاستعلامات وافضل والعمل عليها ؟
اتفضل تم استخدام استعلام تحديث وليس الحاق
بالتوفيق
Database_3.accdb

وعليكم السلام ورحمه الله وبركاته
طيب ليه عاوز هذه القيم فالجدول بما انه يمكنك الحصول عليها فى الاستعلامات وافضل والعمل عليها ؟
اتفضل تم استخدام استعلام تحديث وليس الحاق
بالتوفيق
Database_3.accdb

السلام عليكم
اخى @ABOLO2 هى مثل النماذج فالحقل الذى تريده فالتقرير الرئيسى فمصدر عنص التحكم يساوى اسم التقرير الفرعى ! اسم الحقل بالتقرير الفرعى
ده مثال على النماذج اطلع عليه وان شاء الله تفهم الطريقه
بالتوفيق
Database 3.accdb

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

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

ظننت انه تم الاجابه فعليا فدخلت لاطلع على الاجابه لاستزيد من العلم
فوجدت بان السائل قد اختار افضل اجابه ع السؤال نفسه
فنوضح له بارك الله فيه بان افضل اجابه توضع لمن اجابك او لنفسك اذا كنت وصلت للاجابه بنفسك ووضعتها لاخوانك لتعم الفائده
وعلى العموم تفضل هذه محاولتى لفهم المطلوب
جرب ع العميل 33335555444 فهذا ليس له ديون كما اشرت بالمشاركه السابقه
If Nz(DLookup("mtRole", "listecont", "code='" & Forms!Chrche_Filter!code & "'"), 0) <> 0 Then DoCmd.OpenReport "data", acViewPreview, , x Else DoCmd.OpenReport "nodata", acViewPreview, , x End If  
بالتوفيق
Database10_1.accdb

اتفضل هذه التعديل اخى @عمر ضاحى ان شاء الله يكون ما تريد
فى حدث بعد التحديث لرقم الموظف
Me.NoM7alfa1 = Nz(DMax("[NoM7alfa]", "tblM7alfa", "[EmpNoM7alfa]=" & Forms!frmM7alfaReg![EmpNoM7alfa] & " And Format([M7alfaDate], 'yyyy') = Format(Date(), 'yyyy')"), 0) + 1 بالتوفيق
m7alfa.accdb

من خصائص الحقل كما بالصوره

بالتوفيق

السلام عليكم
مشاركه مع والدى العزيز @محمد حسن المحمد جزاه الله كله خير 🌹
بالنسبه للاده Kutools For Excel كما اذكر انها يجب شرائها بعد الفتره التجريبيه المسموحه
يمكنك تحميل الاداه من الرابط التالى ولا تحتاج تفعيل وجزاه الله خيرا استاذ على
بالتوفيق

السلام عليكم
اتفضل اخى ان شاء الله يكون ما تريد
بالتوفيق
Rubber Salse.accdb

السلام عليكم ورحمه الله وبركاته
كل عام وانتم والامه الاسلاميه بخير
مشاركه مع معلمى العزيز وشيخنا الجليل @ابوخليل جزاه الله خيرا وبارك الله لنا فيه وفى جميع اخواننا واساتذتنا الافاضل الذين نتعلم منهم كل يوم 💐
نعم يمكن ذلك ولكن ليس بالطريقه العاديه ولكن باستخدام الحقل Rich text ولفعل ذلك ادرجنا حقل نص عادى ومن التبويب بيانات ومن خاصيه تنسيق النص نختار نص منسق
وفى جزء التفصيل وعند حدث عند التنسيق وضعنا الكود التالى
Me.txtFull = "<font size= 4><b>" & Me.devicename & "</b></font>" Me.txtFull = Me.txtFull & " " & Me.country وطريقه عرض التقرير معاينه قبل الطباعه

بالتوفيق
formattext.accdb

السلام عليكم ورحمه الله وبركاته
مشاركه مع اخى العزيز محمد @ابو جودي جزاه الله كل خير 💐
اه ممكن اتفضل
قمت بالتعديل على مثال اخى محمد
سداد (2).accdb

صراحه مش فاهم ماذا تريد بالظبط ولكن اذا اردت اظهار السجلات المساويه فقط لحقل البحث
فقمت بتغير هذا السطر فقط
varFilter = "[barcode] = '" & xx.text & "'" اما لو كان غير ذلك فنرجو منك مزيد من الايضاح ليقوم اخوانك بمساعدتك وياريت على ملف اكسيل من واقع البيانات بالمثال
بالتوفيق
search(1).accdb

السلام عليكم
اتفضل اخى @عمر طاهر جرب ووافنا بالنتيجه
بالتوفيق
test.accdb

وعليكم السلام اخى ازهر
اتفضل جرب الكود التالى
Private Sub Form_Current() If Me.RecordsetClone.RecordCount >= 30 Then MsgBox "ضع رسالتك كما تريد " End Sub بالتوفيق

وعليكم السلام 
اتفضل اخى @ازهر عبد العزيز ان شاء الله يكون ما تريد
Private Sub idx_NotInList(NewData As String, Response As Integer) Dim strSql As String, x As Integer x = MsgBox("هذا الاسم غير موجود .. هل ترغب في إضافته؟", vbYesNo + vbDefaultButton1) If x = vbYes Then strSql = "Insert Into tbx (x1) values ('" & NewData & "')" CurrentDb.Execute strSql Response = acDataErrAdded Else Response = acDataErrContinue End If End Sub بالتوفيق
XY.accdb

وعليكم السلام  استاذ ازهر
اتفضل ان شاء الله يكون ما تريد
Private Sub Form_BeforeUpdate(Cancel As Integer) L = Nz(DLast("unit2", "TBaction", "idexperience=" & Me.idexperience & "and [namemetal]='" & Me.namemetal & "'"), 0) If DCount("*", "TBaction", "idexperience=" & Me.idexperience & "and namemetal='" & Me.namemetal & "'") > 0 Then Dim stry As String stry = Me.namemetal Me.Undo Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[namemetal] = '" & stry & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark Me.unit2 = L + 0.6 End If End Sub بالتوفيق
M1 (1).accdb

اتفضل لعلى قد فهمت ما تريد
Private Sub txt_AfterUpdate() x = Me.txt.Column(0) 'Me.rmb.SetFocus 'DoCmd.GoToRecord , , acNewRec Me.rmb.Form!idrxt.DefaultValue = x End Sub بالتوفيق
t1.accdb