kkhalifa1960

وأنتم كذلك ...

حسب مافهمت من استاذنا @ابوخليل تفضل استاذ @moho58 هذا المرفق انشاء الله بتحصل طلبك . ووافني بالرد baseF-3 .rar

تفضل أخي هذا التغيير بالكود . ووافني بالرد . baseF-2 .rar

مشاركة مع أخي @Foksh تفضل أخي @moho58 المرفق بعد التعديل بطلبك .ووافني بالرد . baseF-1 .rar

أخي @amqadri تخزين الصور بقاعدة البيانات قد يثقلها ويؤدي ذلك لعطلها لذا أقترح عليك هذا المرفق أقرأه بعناية . ووافني بالرد . DDTest1412025.rar

تفضل أخي @al.sheen2000 دوال أول يوم بالشهر .... وآخر يوم بالشهر .... وأول يوم بالسنة .... وآخر يوم بالسنة . Private Sub BtnChangeDate_Click() If Len(Me.Txt1 & "") = 0 Then MsgBox "أدخل التاريخ " Undo Me.Txt1.SetFocus Exit Sub Else 'أول يوم بالشهر Me.Txt2 = DateSerial(Year(Me.Txt1), Month(Me.Txt1), 1) 'آخر يوم بالشهر Me.Txt3 = DateSerial(Year(Me.Txt1), Month(Me.Txt1) + 1, 0) Dim inputDate As Date Dim inputYear As Integer Dim lastDayOfYear As Date Dim firstDayOfYear As Date inputDate = CDate(Me.Txt1.Value) inputYear = Year(inputDate) ' Extract the year from the date 'أول يوم بالسنة firstDayOfYear = DateSerial(inputYear, 1, 1) ' Calculate the first day of the year Me.Txt4.Value = firstDayOfYear 'آخر يوم بالسنة lastDayOfYear = DateSerial(inputYear, 12, 31) ' Calculate the last day of the year Me.Txt5.Value = lastDayOfYear End If End Sub

تفضل أخي @dd13901390 مرفق عملته للتجريب إذا كان هذا طلبك بطبقه على مرفقك . DDTestPermissions.rar

ممكن توضح ايه المطلوب بالتفصيل ولا تبخل علينا علشان نفهمك . واذا كان ربط البيت بالعمل .... يوجد برنامج يسمى هماتشي أنا كنت جربته وكان شغال كويس التحميل والشرح من هنـــــا . جرب ووافنا بالرد

أخي @عبدالعزيز محمد العنوان غير مناسب . انت محتاج عمل شبكة بين البيت والعمل .

تفضل أخي @Abdelaziz Osman حسب مافهمت . عند فتح الفورم . اكتب الكود التالي . Dim db As DAO.Database Dim rs As DAO.Recordset ' تحديد قاعدة البيانات الحالية Set db = CurrentDb() ' فتح نموذج "bers" كـ Recordset Set rs = db.OpenRecordset("bers", dbOpenDynaset) ' تطبيق الفرز التنازلي حسب الحقل "fega" rs.Sort = "fega DESC" ' تحديث النموذج لإظهار البيانات المفرزة Me.Requery ' تنظيف الذاكرة rs.Close Set rs = Nothing Set db = Nothing

والله يا خوي شغال على طلبك بس محتاج وقت .

أستاذ @dd13901390 العنوان غير مناسب لطلبك . عدل العنوان من فضلك . أما عن جلب اسماء النماذج بالقائمة المنسدلة :- تفضل بالمرفق . قالب جاهز لنموذج تسجيل الدخول وتغيير كلمة المرور والصلاحيات-1.rar

مشاركةً مع استاذي @ابوخليل ممكن وضع قيمة افتراضية ولتكن (0) ويصبح السطر الذي عليه اللون الأصفر كالتالي :- Me![reqcost]=Nz(Me!saPno.Column(5),0) إذا لم يجد قيمة فيعطيها (0) جرب ووافنا بارد .

أستاذ @moho58 اليك حلان :- 1- التحقق من إعدادات الطابعة عند الطباعة: اذهب إلى File > Print > Printer Properties. ابحث عن إعداد مثل: Fit to Page أو Scale to Fit (يختلف الاسم حسب الطابعة). حدد الورقة A4 كحجم الورق مع التأكد من اختيار الوضع الأفقي Landscape. 2- أو A - عند الطباعة على ورق A4 استخدم الكود Dim rptName As String rptName = "YourReportName" ' استبدل باسم التقرير الفعلي ' فتح التقرير في معاينة الطباعة DoCmd.OpenReport rptName, acViewPreview ' ضبط إعدادات الطابعة With Reports(rptName).Printer .PaperSize = acPRPSA4 ' ضبط حجم الورق إلى A4 .Orientation = acPRORLandscape ' التأكد من أن التقرير أفقي End With ' طباعة التقرير DoCmd.PrintOut ' إغلاق التقرير DoCmd.Close acReport, rptName أو B - عند الطباعة على ورق A3 استخدم الكود Dim rptName As String rptName = "YourReportName" ' استبدل باسم التقرير الفعلي ' فتح التقرير في معاينة الطباعة DoCmd.OpenReport rptName, acViewPreview ' ضبط إعدادات الطابعة With Reports(rptName).Printer .PaperSize = acPRPSA3 ' ضبط حجم الورق إلى A3 .Orientation = acPRORLandscape ' التأكد من أن التقرير أفقي End With ' طباعة التقرير DoCmd.PrintOut ' إغلاق التقرير DoCmd.Close acReport, rptName base_RP-2.rar

تفضل أستاذ @moho58 المرفق بعد التعديل . ووافني بالرد . base_RP-1.rar

عدل الكود الى Dim rptName As String rptName = "YourReportName" ' استبدل باسم التقرير الفعلي ' فتح التقرير في وضع التصميم لضبط الإعدادات DoCmd.OpenReport rptName, acViewDesign ' ضبط إعدادات الطابعة With Reports(rptName).Printer .PaperSize = acPRPSA4 ' تغيير حجم الورق إلى A4 .Orientation = acPRORLandscape ' إذا كان التقرير أفقيًا End With ' التأكد من أن العرض والارتفاع يتم تصغيرهما لتناسب الصفحة Reports(rptName).Width = 14400 ' العرض (بالـ twips) لـ A4 Reports(rptName).Height = 20787 ' الارتفاع (بالـ twips) لـ A4 ' حفظ وإغلاق التصميم DoCmd.Close acReport, rptName, acSaveYes ' فتح التقرير في وضع الطباعة والطباعة DoCmd.OpenReport rptName, acViewPreview DoCmd.PrintOut ' إغلاق التقرير بعد الطباعة DoCmd.Close acReport, rptName

تفضل أستاذ @moho58 طلبيك حسب مافهمت بالمرفق . ووافني بالرد . DDTestPintA3inA4.rar

مشاركةً مع استاذي @kanory تفضل استاذ @Luqman Khooshnaw المرفق . DDSearchWithCondition.rar

تفضل الملف مرة اخري وافتح فورم التقارير بتحصل زر جديد بالازرق (جلب عينات من الدرجات) بيفتح فورم جديد اختار الفصل الدراسي ثم اختار سري الطالب ثم الزر Report بتحصل طلبك حسب مافهمت . البحث وتعديل درجات10-1.rar

مشاركة مع أستاذ @Foksh وحسب مافهمت تفضل استاذ @2saad المرفق ووافني بالرد . البحث وتعديل درجات10.rar

حبيبي في الله استاذنا ومهندسنا @Eng.Qassim فعلا الهبت الأفكار ... فأنا دائما أعمل على طلب السائل وفي هذا الموضوع يوجد حلول كثيرة . ومنها المرفق التالي. عند الضغط على ( التشك بوكس ) يختفي السطر في الاستعلام والتقرير . وعند الضغط عليه مرة أخري يرجع السطر بالاستعلام والتقرير . ولكن المشكلة هنا أن السائل لم يرد . Database6-2.rar

استاذنا @ابوخليل ايه رأيك بالحل بطريقة أخرى مثل المرفق التالي : . MultipleChoice.rar

اسناذي ومعلمي @Eng.Qassim هذا طلب السائل وأنا عملت عليه !!!!!!!!!!!!! فلننتظر رد السائل .

مشاركةً مع اساتذتي تفضل استاذ @مهند محسن المرفق بعد التعديل حسب مافهمت . Database6-1.rar

تفضل أخي @سيد رجب المرفق بعد تعدل الاستعلام حسب مافهمت . محفوظات-1.rar