محمد أبوعبدالله

وعلكيم السلام ورحمة الله وبركاته برجاء مراجعة المرفق الاستعلام kan3 ارجو ان يكون هو المطلوب K_1_3.rar تحياتي

وعليكم السلام ورحمة الله وبركاته ليس لديك حقول باسم ChooseField + TxtForQuery + EndForQuery راجع جيدا اسماء الحقول في النموذج ثم راجع التعليمات البرمجية جيدا تحياتي

تفضل اخي الكريم الصلاحيات المستخدمين.rar تحياني

وعليكم السلام ورحمة الله وبركاته هذه 7 ارقام فقط وهذه 8 ارقام فقط عندي اقتراح يوفر عليك الوقت ارجو ان يناسبك ان تجعلت قناع الادخال موحد 9 ارقام بالشكل التالي 000-000-000 ثم عند ادخال رقم يحتوي على 8 ارقام فقط ان تضع 0 ( صفر ) شمال الارقام هكذا 012-345-678 123-456-789 تحياتي

وعليكم السلام ورحمة الله وبركاته نضع الكود التالي في وحدة نمطية جديدة Function fnAutoField() As String Dim strRndNo As String strRndNo = Format((9999 * Rnd) + 1, "10000") fnAutoField = strRndNo End Function ثم نضع في النموذج في حدث عند الادراج الكود التالي Me!TextBox1 = fnAutoField() وفي زر الحفظ نضع الكود التالي If Me!TextBox3 = Me!TextBox1 Then MsgBox "error", vbInformation Me!TextBox1 = fnAutoField() Else End If ان واجهت مشكلة في التطبيق لا قدر الله ارفق مثال ليتم التعديل عليه ان شاء الله تحياتي

ممكن توضيح اكثر بارك الله فيك تحياتي

وعليكم السلام ورحمة الله وبركاته انشىء استعلام جديد وضع به الجدول الرئيسي فقط ( الذي بيه جميع البيانات ) ثم استخدم دالة DSum لجلب اجمالي الصافي من كل جدول كالتالي DSum("[الصافي]"; "[اسم_الاستعلام]"; "[الاسم] ='" & [اسم_الجدول_الرئيسي]![الاسم] & "'") وهذا المثال باسماء الحقول لاتيني للتوضيح اكثر DSum("[Text1]"; "[Tabel2]"; "[TextName] ='" & [Tabel1]![TextName] & "'") تحياتي

استبدل الكود كالتالي Me.Requery بهذا Me.Refresh كما انصحك باستبدال اسم زر الامر من Requery الى اي اسم اخر مثل XRequery تحياتي

السلام عليكم برجاء وضع مرفق للنظر اين المشكلة بالضبط تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تم انشاء تقرير بع الرصيد التراكمي wesam.rar تحياتي

موفق دائماً اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub N1_BeforeUpdate(Cancel As Integer) On Error Resume Next If Me.NewRecord = True Then Dim strWhere As String, strMessage As String strWhere = "[B] = '" & Me![N1] & "'" Me.RecordsetClone.MoveFirst Me.RecordsetClone.FindFirst strWhere If Me.RecordsetClone.NoMatch = False Then strMessage = " الصنف مكرر" lResponse = MsgBox(strMessage, vbOKOnly + vbCritical) If lResponse = vbOK Then Cancel = True Me.Undo Me.Bookmark = Me.RecordsetClone.Bookmark End If End If End If End Sub TEST11.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Cmd01_Click() MsgBox "The Text of the message", vbInformation End Sub تحياتي

اخي الكريم اليك شرح مبسط لتصميم الجداول بطريقة صحيحة وعمل علاقتها بها الجدول الاول = المنطقة نضع به رمز المنطقة + اسم المنطقة الجدول الثاني = الدائرة نضع به رمز الدائرة + اسم الدائرة + رمز المنطقة (حقل غريب ) الجدول الثالث = البلدية = نضع به رمز البلدية + اسم البلدية + رمز الدائرة (حقل غريب ) بهذ الشكل يمكننا ربط الجدول الاول بالثاني عن طريق حقل رمز المنطقة علاقة رأس باطراف وربط الجدول الثاني بالثالث عن طريق حقل رمز الدائرة علاقة رأس باطراف بهذا الشكل ستتمكن من عمل قاعدة بيانات قوية ومتماسكة وسهلة الاستخدام تحياتي

تفضل اخي الكريم 2020.D3_2.rar تحياتي

تفضل اخي الكريم ارجو ان يكون هو المطلوب 2020.D3.rar تحياتي

وعليكم السلام ورحمة الله وبركاته اضبط خصائص النموذج كما بالصورة تحياتي

تفضل اخي الكريم انظر الاستعلام Query1 1136.D3_2.rar تحياتي

اخي الكريم الملف الاول مختلف عن الملف الثاني على كل حال ممكن توضيح اسماء الحقول المراد دمجها تحياتي

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام دالة Right بالشكل التالي Expr1: Right([Text1];2) ولدمجين الحقلين كالتالي Expr1: Right([Text1];2) & [Text2] حيث Text1 هو الحقل المراد حذف الرقمين باليسار منه و Text2 الحقل الثاني المراد دمجه مع الاول تحياتي

وعليكم السلام ورحمة الله وبركاته اذا كان نوع الحقل نص استخدم الكود التالي rs.FindFirst "[id] ='" & Me![text1] & "'" اذا كان نوع الحقل تاريخ استخدم الكود التالي rs.FindFirst "[id] = #" & Me![text1] & "#" اذا كان نوع الحقل رقم استخدم الكود التالي rs.FindFirst "[id] = " & Me![text1] تحياتي

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

جزاك الله خيرا استاذنا الفاضل هديمة قيمة جداً تحياتي

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام الكود التالي Private Sub Form_Current() If IsNull(fullname) Or IsNull(id) Or IsNull(job) Then Me.عنصر_تحكم_علامة_جدولة7.Enabled = False Else Me.عنصر_تحكم_علامة_جدولة7.Enabled = True End If End Sub ddd.rar تحياتي

وعليكم السلام ورحمة الله وبركاته لتشغيل ماكرو عند فتح البرنامج اجعل اسمه autoexec واتخفيض الامان للاكسيس تلقائياً تفضل الموضوع التالي سيفيدك باذن الله تحياتي