Shivan Kurdi

نعم امسح اوفیس 2007 و نصب اوفیس 2010 اذا لم يكن عندك اوفیس 2010 لتنصبه افتح موقع معتز وانزله هناك تحیاتی

اهلا بك استخدم هذا CommandBars("Property Sheet").Enabled = True ولفهم اكثر افتح مشاركتي هذا في هذا الموضوع

اكيد ان رقم buy_id هو رقم و لا يسمح بالتكرار لذلك قم بتعدیل الكود DoCmd.OpenForm "buy", acNormal, , "[buy_id]=" & Me.buy_id

اليك هذا لا اعرف من هو صاحبه لذلك ادعوا له اخفاء رسالة بعد عدد ثواني.mdb

بلا هناک طریقە اخری بدون نموذج و موجودە فی الموقع ستجدونە اذا تبحثون علیە والا غدا اذا ما انساە ساعطیکم لانی الان عم استخدم موبایل ولیس لدی لابتوب

سنحڎف الموجود ونعمل الجدید طبعا بالکود

اتفضل اليك هذا Private Sub نص2_AfterUpdate() If IsDate(Me.نص0) = True And IsDate(Me.نص2) = True Then Dim Ctl As Access.Control For Each Ctl In Me.Form.Controls If Ctl.ControlType = acTextBox Or Ctl.ControlType = acLabel Then Ctl.Visible = True End If Next Ctl End If End Sub اخفاء حقول.accdb

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

في بداية الكود اكتب كود التخطي للمشاكل On Error Resume Next هذه المشكلة بيطلع لان ليس هناك ملف بذلك الاسم في قاعدتك

استخدم هذا في بداية الكود docmd.setwarnings false وهذا في اخره docmd.setwarnings true

استاذن من استاذ صالح حمادي اخي انت محق والسبب يرجع لمصدر النموذج اي جدول sales حقل itemcode قم بتغيير خاصية Field Size للحقل المذكور اعلاه من Integer الى Long Integer

القي نظرتا اليه تقرير فرعى.accdb

غير نوع الخط الكتابة لكتابة الاكواد اي فتح محرر الاكواد واضغط كليك يسار على Tools بعدين اختر اختيار الثالث Options بعدين سيظهر لك نافذة اختر editor format بعدين من كومبوبوكس fonts اختر مثلا فونت Sakkal Majalla (Arabic)

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

للاسف ليس هناك مشكلة فيه

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

اتفضل اليك هذا Private Sub Combo2_AfterUpdate() If Me.Combo2 = "english" Then Me.Text0.KeyboardLanguage = 1 ElseIf Me.Combo2 = "Arabic" Then Me.Text0.KeyboardLanguage = 2 End If End Sub والمثال Database1.mdb

جرب ان تضبط اعدادت اللغة والمنطقة الكل الاجهزة الذي لم يعمل عليه البرامج مثل الاجهزة اللي عملت عليها البرامج

تم اضافة هذا Me.datex = DateAdd("m", 1, Me.datex) على كودك الموجود وصار هكذا Private Sub أمر5_Click() On Error GoTo Err_أمر5_Click Dim Eded As Integer Dim I As Integer Eded = InputBox("اکتب عدد سجلات التکرار", "عدد الكرارات") DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 For I = 1 To Eded DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append Me.datex = DateAdd("m", 1, Me.datex) Next Exit_أمر5_Click: Exit Sub Err_أمر5_Click: MsgBox Err.Description Resume Exit_أمر5_Click End Sub access test (1).mdb

استخدم هذا Private Sub أمر2_Click() Me.datex = DateAdd("m", 1, Me.datex) End Sub

اذا اليك هذا Private Sub test_BeforeUpdate(Cancel As Integer) Dim i As Integer Dim MewcodOrNo As Integer If Len(Me.test & vbNullString) = 0 Then Exit Sub Me.MyList.Selected(0) = True For i = 0 To Me.MyList.ListCount If Me.test = Me.MyList.Column(1, Me.MyList.ItemData(i)) Then MewcodOrNo = MewcodOrNo + 1 Me.MyList.Selected(i + 1) = True If MewcodOrNo > 0 Then Exit Sub End If Next i If MewcodOrNo = 0 Then MsgBox "الرقم غير موجود" End Sub ملهم.rar

اتفضل اليك هذا الرابط https://www.officena.net/ib/topic/34084-ورقه-الخصائص-في-النموذج/?do=findComment&comment=536810

في هذه المشاركة بها حل

في هذه المشاركة بها حل

استخدم هذا Private Sub test_BeforeUpdate(Cancel As Integer) Dim i As Integer Dim MewcodOrNo As Integer If Len(Me.test & vbNullString) = 0 Then Exit Sub For i = 1 To Me.MyList.ListCount If Me.test = Me.MyList.Column(1, Me.MyList.ItemData(i)) Then MewcodOrNo = MewcodOrNo + 1 If MewcodOrNo > 0 Then Exit Sub End If Next i If MewcodOrNo = 0 Then MsgBox "الرقم غير موجود" End Sub ملهم.rar