بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
-
Content Count
1,604 -
Joined
-
Days Won
25
محمد أبوعبدالله last won the day on October 7 2020
محمد أبوعبدالله had the most liked content!
Community Reputation
1,056 ExcellentAbout محمد أبوعبدالله

-
Rank
مُحب الله ورسوله
- Birthday 01/01/1974
Profile Information
-
Gender (Ar)
ذكر
-
Job Title
مهندس
-
Location
مصر
-
Interests
حب الله ورسوله صلى الله عليه وسلم
-
محمد أبوعبدالله started following عمل تاريخ يعد احتساب المدد, عندما يعطي برنامج الاكسس اخطاء - النسخة رقم 4 + عمل نسخ احتياطية, الاكواد لا تعمل في نسخة اكسيس 2013 and 4 others
-
عندما يعطي برنامج الاكسس اخطاء - النسخة رقم 4 + عمل نسخ احتياطية
محمد أبوعبدالله replied to jjafferr's topic in MS Access
جزاك الله خيرا يا ابو عبدالله ورضي الله عنك دمت بكل خير تحياتي- 11 replies
-
- backup
- comapct and repair
-
(and 2 more)
Tagged with:
-
وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي
-
اخي الكريم بمجرد ان تخفي شاشة الاكسيس فانت قمت بحماية بنسبة كبيرة وحماية الجداول وقاعدة البيانات لها اكثر من طريقة اكتب في محرك البحث حماية ستظهر لك نتائج كثيرة https://www.officena.net/ib/search/?q=حماية&quick=1&type=forums_topic&nodes=89 اعتقد ان المشكلة التي معك حاليا كيفية حماية مجلد المرفقات تحياتي
-
لا توجد اي علاقة بين حماية او اخفاء الجداول والتنسيق الشرطي التنسيق الشرطي وظيفته تنسيق الجقل فقط حسب شرط او شروط محددة تحياتي
-
جزاك الله خيرا اخي الكريم بعد انهاء البرنامج قم بعمل واجهة رئيسية للبرنامج واخفي اطار اكسيس بالكامل واعرض نموذج الرئيسية فقط ومن خلاله تنقل بين النماذج ويمكنك استخدام الكود التالي لتنفيذ ذلك تحياتي
-
Database8.rar تحياتي
-
وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Text0_DblClick(Cancel As Integer) On Error Resume Next Dim fs, cf, strFolder ' التأكد من وجود مجلد المفرقات AttachmentX strFolder = CurrentProject.Path & "\" & "AttachmentX" Set fs = CreateObject("Scripting.FileSystemObject") ' اذا كان مجلد المرفقات AttachmentX غير موجود يتم انشاءه If fs.FolderExists(strFolder) = False Then MsgBox "تحذير !!! مجلد المرفقات غير موجود ! وسيتم انشائه ان شاء الله بجوار البرنام
-
برنامج أرشفة الخطابات و الوثائق .. الأرشفة الالكترونية
محمد أبوعبدالله replied to محمد سلامة's topic in MS Access
بارك الله فيك استاذنا الفاضل ونفع الله بك تحياتي -
الفرق بين تاريخين بالشهور فقط مع احتساب الايام بشرط
محمد أبوعبدالله replied to احمد حبيبه's topic in MS Access
الحقيقة ليتك قمت بفتح موضوع جديد بما انك ستعمل على قاعدة بيانات مختلفة منعا لمخالفة قوانين المنتدى يلزمنا الآن تعديل الكود مرة اخرى وما ينطبق عليه لا ينطبق على ما سبق الوحدة النمطية الجديدة Option Compare Database Option Explicit Function CalcAgeY(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) + 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) + 1 If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) -
السلام عليكم عرض التقرير لا يناسب الورق المحدد في اعدادت الطباعة A5 بل يناسب ورق A1 واليك مقاسات الاوراق بالسم A1 = 59.4 × 84.1 A2 = 42.0 × 59.4 A3 = 29.7 × 42.0 A4 = 21.0 × 29.7 A5 = 14.8 × 21.0 A6 = 10.5 × 14.8 اليك التعديل بعد جعل الورق A4 عرضي وازالة الزيادات ايجار معدات للغير1.rar تحياتي
- 1 reply
-
- 2
-
-
الفرق بين تاريخين بالشهور فقط مع احتساب الايام بشرط
محمد أبوعبدالله replied to احمد حبيبه's topic in MS Access
ما المقصود محسوبة يدوياً اود ان ابنهك الى شىء هام دالة DateDiff في الاساس تقوم بعرض الفاصل بين تاريخين سواء يوم او شهر او سنة فمثلاً الفاصل الزمني بين 01/01/2021 الى 31/12/2021 لن يكون 1 سنة بل سيكون 11 شهر + 30 يوم الفاصل الزمني بين 01/01/2021 الى 31/01/2021 لن يكون شهر بل سيكون 30 يوم الفاصل الزمني بين 01/01/2021 الى 31/03/2021 لن يكون ثلاثة اشهر بل سيكون 2 شهر + 30 يوم وبناءأ عليه فالكود المستخدم صحيح 100% باذن الله والشكر موصول لصاحب الكود الاساسي جعله الله في ميزان حسناته تحياتي -
طلب تغيير شكل الماوس إلى يد عند وضع الماوس علي أي زر في النموذج
محمد أبوعبدالله replied to morabetoon's topic in MS Access
السلام عليكم تفضل اخي الكريم Option Compare Database Option Explicit Private Const IDC_HAND = 32649& Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long Private Sub Cmd01_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) SetCursor LoadCursor(0, IDC_HAND) End Sub تحياتي -
السلام عليكم اضف الوحدة النمطية التالية Option Compare Database Option Explicit Function CalcAgeY(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeY = vYears End Function Function CalcAgeM(vDate1 As Date, vdate2 As Date) Di
-
الفرق بين تاريخين بالشهور فقط مع احتساب الايام بشرط
محمد أبوعبدالله replied to احمد حبيبه's topic in MS Access
نعم يمكن استخدام دالة nz اذا كان حقلي التاريخ فارغاً Frook3: CalcAgem(Nz([AGAM1];0);Nz([AGAM2];0))+IIf(CalcAgeD(Nz([AGAM1];0);Nz([AGAM2];0))>22;1;0) UP-New Microsoft Access 11111.rar تحياتي