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

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم المحل نسخة تجريبية.rar تحياتي

بالتوفيق اخي الكريم تحياتي

السلام عليكم تفضل اخي الكريم لعرض التقرير Dim strWhereCondition As String If Not IsNull(Me.t1) Then strWhereCondition = strWhereCondition & " AND sub='" & Me.t1.Value & "'" End If If Not IsNull(Me.t2) Then strWhereCondition = strWhereCondition & " AND [ÇáãæÏíá]='" & Me.t2.Value & "'" End If If Len(strWhereCondition) > 0 Then strWhereCondition = Mid(strWhereCondition, 6) End If DoCmd.OpenReport "mach", acViewPreview, WhereCondition:=strWhereCondition DoCmd.Close acForm, Me.Name ولطباعة التقرير Dim strWhereCondition As String If Not IsNull(Me.t1) Then strWhereCondition = strWhereCondition & " AND sub='" & Me.t1.Value & "'" End If If Not IsNull(Me.t2) Then strWhereCondition = strWhereCondition & " AND [ÇáãæÏíá]='" & Me.t2.Value & "'" End If If Len(strWhereCondition) > 0 Then strWhereCondition = Mid(strWhereCondition, 6) End If DoCmd.OpenReport "mach", WhereCondition:=strWhereCondition DoCmd.Close acForm, Me.Name UP-test.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تظهر التخصصات عند التنقل من الاسهم التي في الصورة قمت بتصغير النماذج قليلاً حتى يتم اظهار المؤشر جيداً Up-gstorm.rar تحياتي

وعليكم السلام ورحمة الله وبركاته جرب الحلول المذكورة في الموضوع التالي وباذن الله تجد حل للمشكلة تحياتي

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

قصدت بذلك تغيير اسماء العناصر من العربي الى الانجليزي مثلا@ لديك حقل باسم "التاريخ" استبدله باسم txtDate مثلاً حاول ايضاً انشاء قاعدة بيانات جديدة ثم استورد الكائنات من قاعدة البيانات القديمة ( جداول - استعلامات - نماذج - تقارير - وحدات نمطية ) اكيد شىء غريب جرب وباذن الله تنحل المشكلة تحياتي

وعليكم السلام ورحمة الله وبركاته استخدم الكود التالي Me.tblchfit.Requery FRm_Refresh.rar تحياتي

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

مرحبا اخي الكريم مرفق مثال لما تريد Database0.rar تحياتي

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

وعليكم السلام ورحمة الله وبركاته اتستخدم الكود التالي مع تغيير ما يلزم لاجبار المستخدم من استكمال البيانات If IsNull([textbox1]) Then DoCmd.CancelEvent MsgBox "ادخل بيانات في حقل ....", vbInformation, "officena" DoCmd.GoToControl "textbox1" End If او اختار في الجدول حقول مطلوبة ثم ضع في النموذج الكود التالي Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr = 3022 Then MsgBox "بيانات خطأ", vbInformation, "officena" DoCmd.CancelEvent Me.Undo Response = acDataErrContinue End If If DataErr = 3314 Then MsgBox "بيانات خطأ", vbInformation, "officena" DoCmd.CancelEvent Me.Undo Response = acDataErrContinue End If If DataErr = 3317 Then MsgBox "بيانات خطأ", vbInformation, "officena" DoCmd.CancelEvent Me.Undo Response = acDataErrContinue End If End Sub تحياتي

وعليكم السلام ورحمة الله وبركاته الكود الحالي يقوم بعمل فلتر للنمموذج الفرعي SubCustomer فقط ولتطبيق نفس الكود على النموذج الفرعي frmCustomerSub2 اضف الكود التالي Me.frmCustomerSub2.Form.Filter = Me.cboField & " Like '*" & Me.ActiveControl & "*'" Me.frmCustomerSub2.Form.FilterOn = True ليكون الكود كاملا بهذا الشكل On Error GoTo Error_Trap Me.btnReset.SetFocus Me.txtSearch.SetFocus Me.ActiveControl.SelStart = Len(Me.ActiveControl & "") Me.SubCustomer.Form.Filter = Me.cboField & " Like '*" & Me.ActiveControl & "*'" Me.SubCustomer.Form.FilterOn = True Me.frmCustomerSub2.Form.Filter = Me.cboField & " Like '*" & Me.ActiveControl & "*'" Me.frmCustomerSub2.Form.FilterOn = True Error_Exit: Exit Sub Error_Trap: MsgBox ("Error Code:" & Err.Number & " Error Description:" & Err.Description) Resume Error_Exit Search.rar تحياتي

هذه المشكلة بسبب ان لديك اسم عناصر ( مربع نص - كومبوبكس - زر امر ... الخ ) باللغة العربية لذلك قم بتعديل هذه الاسماء الى اللغة اللاتينية اولاً قبل تحويل الملف الى accde او mde تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم On Error GoTo Err: If IsNull(Me.txtClassCnt) Then MsgBox "ادخل عدد المجموعات اولاً" Exit Sub Else X = Round(Me.Form.Recordset.RecordCount / 2 + 0.5) DoCmd.GoToRecord , , acFirst I = 0 Do I = I + 1 J = 0 Do J = J + 1 Me.group = I DoCmd.GoToRecord , , acNext Loop Until J = X Loop Until I >= Me.txtClassCnt Me.Requery End If Err: Me.Undo Exit Sub توزيع.rar تجياتي

وعليكم السلام ورحمة الله وبركاته لانك تستخم التشفير الموجود في الوحدة النمطية UserModule بهذا الشكل pass = incode([pass], "Pass") User = incode([User], "User") تحياتي

تأكد من اعدادات اللغة كما بالصور تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم انظر الاستعلام Query1 New Microsoft Access Database.rar تحياتي

استفسار aly موجود في سجل وسالم موجود في سجل فما هي العلاقة بين هذين السجلين ليكونا في سجل واحد تحياتي

وعليكم السلام ورحمة الله وبركاته قم بعمل فرز للبيانات حسب العمود او قم بعمل استعلام وبه فرز حسب العمود data.rar تحياتي

https://www.officena.net/ib/forum/157-إعلانات-شخصية-بأجر-للاعضاء/ تحياتي

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم اجتهدت بقدر المستطاع ان يكون المطلوب مناسب لك ولكني وجدت اخطاء التي لم افهمها جيداً مثل 1 - حقل الاسم وحقل رقم الهوية / وجدت به تكرار وهذا غير صحيح = فيجب عدم تكرار البيانات 2 - قمت بتقسيم البيانات الى جدولين ( جدول المستضيف + جدول المرافقين ) تم اضافية بيانات الجدول الاول ( tblHost ) ولم استطع اضافة بيانات المرافقين في جدول ( tblEscorts ) فارجو ان يكون لديك طريقة مناسبة لادخال هذه البيانات او تفريغ الجداول والبدء من جديد Db_Camp.rar اي تعديلات جديدة بالخدمة اخي الكريم تحياتي

https://www.officena.net/ib/search/?q=صلاحيات&quick=1

وجزاكم الله خيرا تحياتي