Shivan Rekany

اليك هذا لا اعرف من هو صاحبه لذلك ادعوا له اخفاء رسالة بعد عدد ثواني.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

جرب هذا Private Sub add1_Click() If len(me.txtName & "") = 0 Then MsgBox "ادخل التسمية", vbExclamation me.txtName.SetFocus Else DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acNewRec End If End Sub

السلام عليكم ورحمة الله وبركاته استأذن من استاذ @فارس بني هلال سيد مهند القي نظرتا الى كودك في قيمة افتراضية حضرتك كتبت =DLookUp("[دولار]";"سعر_الصرف") وفي الحقيقة ليس لدينا حقل باسم دولار في جدول سعر الصرف بل الحقل الموجود هو حقلين واحد العملة والثاني هو صرف اذا حضرتك تكتب فيه اكثر من عملة واحدة يجب ان تكتب في كودك الشرط بيكون يساوي دولار هكذا =DLookUp("[الصرف]";"سعر_الصرف";"[سعر_الصرف]![العملة]='" & "دولار" & "'") لكن اذا بيكون فيه سجل واحد وهو دولار ما شي الحال فقط غير في كودك كلمة دولار الى صرف هكذا =DLookUp("[الصرف]";"سعر_الصرف") Database5.rar

اتفضل غير Combo ب اسم مربع تحرير وسرد عندك و غير FormArabic ب اسم نموذج ادخال العربية واسم FormEnglish ب اسم نموذج ادخال الانكليزية IF Me.Combo = "عربى" Then DoCmd.OpenForm "FormArabic", acNormal elseif me.Combo = "eng" then DoCmd.OpenForm "FormEnglish", acNormal endif