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

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

استبدال الكود بالتالي If IsNull(Me.XX) Then DoCmd.GoToControl "XX" MsgBox "ادخل قيمة اولاً" Else myCriteria = "[B]= " & Me.XX Me.Filter = myCriteria Me.FilterOn = True End If XX.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم myCriteria = "[B]= " & Me.XX Me.Filter = myCriteria Me.FilterOn = True XX.rar تحياتي

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

وعليكم السلام ورحمة الله وبركاته تحتاج فقط الى استخدام Group By بدلا من Sum انظر الاستعلام والنقرير واعلمني بالنتيجة Allijan0016.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Dim fpath As Variant Dim fpathz As Variant With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Clear .Filters.Add "All Files", "*.*" .InitialFileName = "Z:\" & Me.X1.Column(1) & "\" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then fpathz = .SelectedItems(1) End If End With ffff.rar تحياتي

وعليكم السلام ورحمة الله وبركاته اخي الكريم موضوعك مخالف لقوانين المنتدى 20. يمنع منعا باتا نشر أية موارد تخالف حقوق الملكية الفكرية بما في ذلك الكتب والكراك وتبادل السيريال، والمخالفة تعرض المشاركة للإلغاء والعضوية للإيقاف. https://www.officena.net/Tips/Questions.htm تحياتي

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

وعليكم السلام ورحمة الله وبركاته ممكن توضيح المطلوب اكثر اخي الكريم اين المشكلة بالضبط وفي اي استعلام تحياتي

السلام عليكم ممكن توضيح المطلوب اكثر اخي الكريم تحياتي

تغضل اخي الكريم هذا الموضوع سيفيدك ان شاء الله تخياتي

وعليكم السلام زرحمة الله وبركاته تفضل اخي الكريم الشرح بالصور تحياتي

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

اولاً :تم اضافة حقل = Text6 في نموذج البيان ثانياً لا بد ان يكون نموذج = البيان مفتوح واليك الملف بعد التعديل مثال1.rar تحياتي

اكتب الدالة بهذه الطريقة If DCount("[اسم الحقل]", "اسم الجدول", "[حقل المعيار] = 'CA'") Then ' Or If DCount("[اسم الحقل]", "اسم الجدول") > 0 Then تحياتي

وعليكم السلام ورحمة الله وبركاته السبب اسم التقرير = État1 الافضل اعادة تسميته بحروف لاتينية ( انجليزية ) مثل = rpt1 تحياتي

جزاك الله خيرا اخي الكريم جرب من جديد تشغيل 2.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تم التعديل على خصائص النموذج ومصدر البيانات تشغيل 2.rar تحياتي

تفضل اخي الكريم MsgBox "تم حفظ بيانات" & " " & Me.Text4 & " رقم" & " " & Me.Text2 & " بنجاح", vbInformation المستخدمين.rar تحياتي

تفضل اخر الكريم If Len(Me.Text2 & "") = 0 Or Len(Me.Text4 & "") = 0 Then MsgBox "حقل مطلوب" DoCmd.GoToControl "Text2" Else Dim ctrl As Control For Each ctrl In Me.Controls If ctrl.Tag = "R" Then If IsNull(ctrl) Then NoteImg.Left = ctrl.Left NoteImg.Top = ctrl.Top + ctrl.Height NoteImg.Visible = True Exit Sub End If End If Next ' Saving Code Goes Here MsgBox "Record Saved", , "Naser Masarwa" End If المستخدمين.rar تحياتي

تفضل اخي الكريم Private Sub Command24_Click() On Error GoTo Error_ErrorZ If Len(Me.Text20 & "") = 0 Or Len(Me.Text22 & "") = 0 Then MsgBox "ادخل الاسم وتاريخ الميلاد" Exit Sub Else myCriteria = myCriteria & "(" myCriteria = myCriteria & "[Emply].[name]= '" & Me.Text20 & "'" myCriteria = myCriteria & " And " myCriteria = myCriteria & "[Emply].[datN] =#" & Format(Me.Text22.Value, "mm/dd/yyyy") & "#" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Filter = myCriteria Me.FilterOn = True xx = Me.RecordsetClone.RecordCount If xx = 0 Then MsgBox "لا توجد بيانات" End If End If Error_ErrorZ: End Sub FrEmpl.rar تحياتي

ارجو ان يكون هذا هو المطلوب mark.rar تحياتي

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

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

بارك الله فيك استاذنا أحمد الفلاحجى وهذا خل اخر تحياتي FrEmpl.rar