kkhalifa1960

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

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

تفضل أخي @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

وفقكم الله نعم أوافق.

أخي @عمار العبيديطبعاً انت تدري أني لم أبخل عليك بمساعد حاولت أفهم طلبك وقراءة الكودات . حاولت مرارا من يوم المشاركة للحين ماتوصلت لشئ . المطلوب ومن الأول الهدف - المطلوب عمله أما اللغة أنا بعدل حسب الحاجة .

وهذه هي الاداة () يمكنك فك الضغط عنها وتثبيتها . pdftk.rar

تفضل استاذ @nogom .الخطوات . لأني ماعندي سكانر . افتح محرر VBA، ثم اذهب إلى: Tools > References واختر Microsoft Windows Image Acquisition Library. يتم مسح المستندات ضوئيًا باستخدام مكتبة WIA. يتم حفظ الصور في مجلد مؤقت. يتم دمج الصور إلى ملف PDF باستخدام PDFtk. يتم حفظ مسار الملف النهائي في قاعدة بيانات Access. Option Compare Database Option Explicit Sub ScanAndSavePDF() Dim scanner As WIA.Device Dim dialog As New WIA.CommonDialog Dim item As WIA.Item Dim img As WIA.ImageFile Dim imagesFolder As String Dim pdfPath As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim fileName As String Dim recordID As String Dim tempPath As String Dim i As Integer Dim imageFiles As String Dim command As String ' تحديد مسار حفظ الصور والملف PDF imagesFolder = "C:\ScannedImages\" ' قم بتعديل المسار حسب الحاجة If Dir(imagesFolder, vbDirectory) = "" Then MkDir imagesFolder tempPath = imagesFolder & "Temp\" If Dir(tempPath, vbDirectory) = "" Then MkDir tempPath ' اختيار الماسح الضوئي On Error Resume Next Set scanner = dialog.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, False, False) If scanner Is Nothing Then MsgBox "لم يتم اختيار ماسح ضوئي.", vbExclamation Exit Sub End If On Error GoTo 0 ' جلب السجلات من الجدول Set db = CurrentDb Set rs = db.OpenRecordset("اسم_الجدول") ' ضع اسم الجدول هنا If rs.EOF Then MsgBox "لا توجد سجلات في الجدول.", vbExclamation Exit Sub End If Do While Not rs.EOF recordID = rs!اسم_الحقل ' ضع اسم الحقل الذي يحتوي على اسم الملف ' مسح الأوراق imageFiles = "" For i = 1 To 5 ' مسح 5 صفحات، يمكن تعديل العدد حسب الحاجة Set item = scanner.Items(1) Set img = dialog.ShowTransfer(item, WIA.FormatID.wiaFormatJPEG) ' حفظ الصورة fileName = tempPath & "Page_" & i & ".jpg" img.SaveFile fileName imageFiles = imageFiles & Chr(34) & fileName & Chr(34) & " " Next i ' إنشاء ملف PDF باستخدام PDFtk pdfPath = imagesFolder & recordID & ".pdf" command = Chr(34) & "C:\Program Files (x86)\PDFtk Server\bin\pdftk.exe" & Chr(34) & _ " " & imageFiles & " cat output " & Chr(34) & pdfPath & Chr(34) , C:\Program Files (x86)\PDFtk Server\bin\pdftk.exe ,حسب مكانه عندك Shell command, vbHide ' حفظ المسار في الجدول rs.Edit rs!مسار_الملف = pdfPath ' ضع اسم الحقل الخاص بالمسار rs.Update ' تنظيف الصور المؤقتة Dim tempFile As String tempFile = Dir(tempPath & "*.jpg") Do While tempFile <> "" Kill tempPath & tempFile tempFile = Dir Loop rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing MsgBox "تم مسح الملفات وحفظها بنجاح.", vbInformation End Sub ما يجب عليك فعله: قم بتنزيل وتثبيت PDFtk Server. فهو مجاني أضف مسار PDFtk إلى الكود أو إلى متغيرات النظام. كما هو موضح بالكود اختبر الكود وتأكد من أن الصور يتم دمجها بنجاح إلى PDF.

تفضل استاذ @zero1111330566 هذا مشروع كنت عملته لأحد رواد المنتدي لكني طورته لكي يعمل بكل طلباتك أقرأ التعليمات بأعلى الفورم . وجرب ووافني بالرد . DDImport & Export.rar

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

حضرتك ماطلبت ادراج صورة ................. أي نوع من الصور تطلب ................ وهل جربت الاسكانر