بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
محمد احمد لطفى
-
Posts
1931 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
2
عن العضو محمد احمد لطفى
اخر الزوار
5636 زياره للملف الشخصي
-
تفضل LAB 2025.rar
-
🌙✨ كل عام وأنتم بخير ✨🌙 أعاده الله عليكم بالخير والبركة، وتقبّل طاعاتكم 🤲 وجعل أيامكم أفراحًا وسرورًا 💖 📿🕊️ عيدكم مبارك وسعيد 🕊️📿 🌹🌟 تقبّل الله منا ومنكم 🌟🌹
-
تفضل أستاذ JO Me.Refresh DoCmd.OpenReport Screen.ActiveControl.Name, acViewPreview, , "[Pcode]=" & Me.PCode
-
تفضل 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 فإن وجود الفواصل (/ و : سيؤدي إلى عدم إمكانية حفظ الملف، نظرًا لأن نظام الملفات لا يسمح بهذه الرموز في أسماء الملفات