بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
محمد احمد لطفى
-
Posts
1928 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
2
عن العضو محمد احمد لطفى
اخر الزوار
5361 زياره للملف الشخصي
-
تم التجربة والبرنامج يعمل بلا أخطاء -
تفضل Dim filePath As String filePath = CurrentProject.Path & "\Report.xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Q", filePath, True With CreateObject("Excel.Application"): .Workbooks.Open filePath: .Sheets(1).UsedRange.Borders.Weight = 2: .Visible = True: End With
-
تفضل بالتوفيق fil (1).accdb
-
كيف تم عمل هذا التدرج اللونى لخلفية النموذج
محمد احمد لطفى replied to أحمد العيسى's topic in قسم الأكسيس Access
صحيح مازلنا نتعلم -
كيف تم عمل هذا التدرج اللونى لخلفية النموذج
محمد احمد لطفى replied to أحمد العيسى's topic in قسم الأكسيس Access
للأسف، إذا تم تعيين الصورة مباشرة كخلفية في Access (بدون ربطها بملف خارجي)، فإن استخراجها يصبح معقدًا لأن الصورة مشفرة داخل قاعدة البيانات. يمكن حفظ النموذج ومسح البيانات والعمل عليه والله أعلم -
كيف تم عمل هذا التدرج اللونى لخلفية النموذج
محمد احمد لطفى replied to أحمد العيسى's topic in قسم الأكسيس Access
التدرج اللونى لخلفية النموذج المرفق عبارة عن صورة و ليس لون من خصائص النموذج اختار تنسيق ستظهر انها صورة -
هل هذا ما تريد واذا كنت تريد ان يكون حقل الاجراء ما يكون فاضي ضع فى الحقل الاجراء Not Is Null مثال.rar
-
تفضل هل هذا ما تريد الاستعلام Qza2 مثال.rar
-
تفضل SavedPath = """" & CurrentProject.Path & "\Public_Library\" & Me.Book_Name & "\r.pdf" & """" SavedPath = CurrentProject.Path & "\Public_Library\" & Me.Book_Name & "\r.pdf"
- 1 reply
-
- 2
-
-
-
تحديد مربع النص باربعة نصوص فقط من خلال كود
محمد احمد لطفى replied to محمد التميمي's topic in قسم الأكسيس Access
تفضل تم اضافة Me![نوع المنتج].Undo Private Sub نوع_المنتج_BeforeUpdate(Cancel As Integer) Select Case Me![نوع المنتج].Value Case "تويوتا", "جيب", "نيسان", "هونداي" ' النوع صحيح Case Else MsgBox "النوع المدخل غير صحيح. يرجى إدخال أحد الأنواع التالية: تويوتا، جيب، نيسان، هونداي.", vbExclamation, "خطأ في الإدخال" Cancel = True Me![نوع المنتج].Undo End Select End Sub -
تحديد مربع النص باربعة نصوص فقط من خلال كود
محمد احمد لطفى replied to محمد التميمي's topic in قسم الأكسيس Access
تفضل بالتوفيق Private Sub نوع_المنتج_BeforeUpdate(Cancel As Integer) Dim carType As String carType = Me![نوع المنتج].Value ' التحقق من النوع المدخل باستخدام Select Case Select Case carType Case "تويوتا", "جيب", "نيسان", "هونداي" ' النوع المدخل صحيح، لا شيء يحتاج إلى فعله Case Else MsgBox "النوع المدخل غير صحيح. يرجى إدخال أحد الأنواع التالية: تويوتا، جيب، نيسان، هونداي.", vbExclamation, "خطأ في الإدخال" Cancel = True ' إلغاء التحديث End Select End Sub أو Private Sub نوع_المنتج_BeforeUpdate(Cancel As Integer) Select Case Me![نوع المنتج].Value Case "تويوتا", "جيب", "نيسان", "هونداي" ' النوع صحيح Case Else MsgBox "النوع المدخل غير صحيح. يرجى إدخال أحد الأنواع التالية: تويوتا، جيب، نيسان، هونداي.", vbExclamation, "خطأ في الإدخال" Cancel = True End Select End Sub ينصح بتغيير اسم الحقول الى الانجليزية -
أستاذى @ابوخليل عند استخدم الدالة NOW فإن وجود الفواصل (/ و : سيؤدي إلى عدم إمكانية حفظ الملف، نظرًا لأن نظام الملفات لا يسمح بهذه الرموز في أسماء الملفات
-
تفضل pdf Dim fileName As String fileName = Me.Namea & " - " & Format(Now(), "yyyy-mm-dd") & " " & Format(Now(), "hh mm AM/PM") & ".pdf" DoCmd.OutputTo acOutputReport, namerpts, acFormatPDF, fileName, True, , , acExportQualityPrint Word Dim fileName As String fileName = Me.Namea & " - " & Format(Now(), "yyyy-mm-dd") & " " & Format(Now(), "hh mm AM/PM") & ".doc" DoCmd.OutputTo acOutputReport, namerpts, acFormatRTF, fileName, True, , , acExportQualityPrint شريط طباعة.rar
-
تفضل بالتوفيق عن طريق التنسيق الشرطى test13102024.rar
-
تفضل بالتوفيق test8102024.rar