AlwaZeeR

احسنت القول اخي جعفر رب دعوة من احد الاخوة بظهر غيب تكون سبباً في نجاتنا ونعم الاخوة :: تحياتي لكم جميعا

وعليكم السلام ورحمة الله وبركاته تفضل: Expr1: IIf(IsNull([Date2]),"Date Null",IIf(DCount("[Name1]","table1","[name1] ='" & [Name1] & "'" & "and [dATE1]> #" & [dATE1] & "#" & "and [dATE1]< #" & [dATE2] & "#")>0,"Repeat","")) Experience.rar

الف شكر استاذي الغالي شيفاني للتوضيح فقط : تختلف الفاصلة حسب اعدادات اللغة في جهاز الكمبيوتر لديك هذا والله اعلى واعلم تفضل عزيزي ملفك معدل بنفس المعادلة السابقة Attendance&Payroll pro.rar

تفضل عزيزي Test.rar

Dim RepName As String '=================== اسم مجموعة الخيار Select Case OptionName Case 1 RepName = "Print Form buy" Case 2 RepName = "Print Form Rf" Case 3 RepName = "Print Form Pro" End Select DoCmd.OpenReport RepName, acViewPreview

وعليكم السلام ورحمة الله وبركاته حياك الله اخي أبو زاهر استخدم نقل المؤشر قبل امر فتح النموذج هكذا: tr.SetFocus DoCmd.OpenForm "frm2 ", acNormal على كل زر في النموذج 1 :: تحياتي

وعليكم السلام ورحمة الله وبركاته العفو اخي الكريم ضع في مربع التأخير2 : =IIf(Minute([lateness])>=30,"4:00",Format([lateness],"Short Time"))

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

بنفس الطريقة اكمل: =DCount("[م]","[معلمون]",[الوظيفة]='معلم') مع مراعاة ان الحقول لديك باللغة العربية سوف تواجه صعوبة كبيرة بالترتيب في الاكواد م = حقل الرقم لديك معلمون= اسم الجدول الوظيفة = الحقل الهدف لو كتبناها بمسميات انجليزية سوف تكون المعادلة هكذا =DCount("[M_id]","[Mtbl]",[mwath]='معلم') m_id = م Mtbl = معلمون Mwath= الوظيفة بالتوفيق في مشروعك عزيزي

وعليكم السلام ورحمة الله وبركاته افتح نموذج جديد فارغ وليكن اسمه: MainForms ضع فيه نموذج فرعي فارغ وليكن اسمه: Mainsub واجعل مصدره فارغ في MainForms ضع زر امر وفي حدث عند النقر استخدم الكود: Me.MainSub.SourceObject = "Frm1" mainsub هو النموذج الفرعي الموجود داخل النموذج الأساسي الواجهة Frm1 النموذج الذي تريد فتحه داخل النموذج الفرعي طبق على باقي الازرار وسوف يفتح النموذج داخل اطار النموذج الفرعي mainsub

وعليكم السلام ورحمة الله وبركاته استخدم الوحدة النمطية التالية: Public Function HoursToMinutes(ConvHoursMinutes As Single) As Long Dim WazMinutes As Integer If InStr(1, Str(ConvHoursMinutes), ".") > 0 Then WazMinutes = Val(Mid(Str(ConvHoursMinutes), InStr(1, Str(ConvHoursMinutes), ".") + 1)) End If HoursToMinutes = Int(ConvHoursMinutes) * 60 + WazMinutes End Function وقم باستدعائها كالتالي في الحقل الذي تريد ظهور النتيجة فيه: =HoursToMinutes([YourField])

حياك الله انا لم اطلع على عمل برنامج لكن حللت المشكلة فقط عموما تفضل هذا سيكون افضل بعد اجراء بعض التعديلات 444.rar

وعليكم السلام ورحمة الله وبركاته لماذا تريد تحديثها بما ان الحقول مذكورة في جدول help لا حاجة لنقلها للجدول الاخر فقط قم بعمل حقل ترقيم أساسي في help وليكن: Num_ID واجعله ترقيم تلقائي مع مفتاح اساسي وحقل أساسي في الجدول الاخر بنفس الاسم Num_ID واجعله رقم بدون مفتاح أساسي طبعا وقم بعمل علاقة راس باطراف بينهما وهكذا تستطيع الاستفادة من الجدولين في أي مكان في القاعدة لا حاجة لتكرار الحقول في الجدول الاخر

وعليكم السلام ورحمة الله وبركاته wazpic.rar

جرب: لكن على ما اعتقد اننا نحتاج الى شرط اخر سوف تخبرني عنه عند إضافة اصناف Abu Zaher55.rar

غلبتك راحة اخي أبو زاهر كم النتيجة التي تريدها؟ في الحقل ما هو الرقم الصحيح ؟؟؟

حياك الله اخي أبو زاهر تفضل : فقط استخدم هذا الكود: =DSum("[Alkmiah]","Hrakatsanf","[ID_Sanf]='" & [ID_Sanf] & "'") Abu Zaher.rar

وعليكم السلام ورحمة الله وبركاته تفضل: استخدم هذا الكود =DSum("[Price]","[selling]","[selling Case]<>'deleted '")

تفضل: حسب ما فهمت قاعدة البيانات61.rar

وعليكم السلام ورحمة الله وبركاته لم يعمل معي المثال بشكل صحيح نقص في المكتبات عموماً جرب الكود التالي: =DSum("[Alkmiah]","Hrakatsanf","[Atarih]=t")

احسنت التعبير ،،،

وعليكم السلام ورحمة الله وبركاته استخدم في حدث عند التحميل او الفتح الكود التالي: DoCmd.GoToRecord , , acLast

وانتم بالف خير جميعا لا عزيزي ،،، لا علاقة لاسم الجدول بالكود لكن يشترط ان يكون هناك كائن واحد او اكثر في قاعدة البيانات حسب مع تغيير ما يلزم في الصيغة التالية: للجداول: DoCmd.SelectObject acTable, , True للنماذج: DoCmd.SelectObject acForm, , True بغض النظر عن المسمى وهكذاااا ...

تفضل: NavBarTest.rar

وعليكم السلام ورحمة الله وبركاته وكل عام وانتم بخير جرب هذا الكود: DoCmd.SelectObject acTable, , True DoCmd.RunCommand acCmdWindowHide ولعمله كـ sub استخدم: Sub DisplayHideNavPane(Optional Visible As Boolean = True) DoCmd.SelectObject acTable, , True If Visible = False Then DoCmd.RunCommand acCmdWindowHide End Sub للاظهار استخدم: DisplayHideNavPane True وللاخفاء استخدم: DisplayHideNavPane False