رشبد

جزاك الله خيرا استادي

السلام عليكم ورحمة الله الاخوة الكرام لدي قاعدة بيانات اريد نتيجة الفرق بين تاريخين مثلا من تاريخ 01-01-2024 الى 01/03/2024 النتيجة 2 اشهر هذه صورة القاعدة skil2024.accdb

الف الف شكر

ابوخليل بارك الله فيك وزادك من فضله لو سمحت اريد اضافة في الكود عرض نافذة اختيار الطابعة

السلام عليكم ورحمة الله الاخوة الكرام لو ممكن اريد تعديل الماكرو في زر طباعة بحيث ادا كانت الخانة mont فارغة لايفتح التقرير ورسالة معلومات غير مكتملة جزاكم الله خيرا الشرط.accdb

تم بنجاح يرسل pdf مع رسالة نصية روعة جزاك الله خيرا

السلام عليكم ورحمة الله تم بنجاح روعة من رائع سلمت اناملك هل ممكن ارسال تقرير من داخل البرنامج على شكل صورة؟

جزاك الله خيرا استاد ابوبسمله نعم هدا ما اريد بالظبط

عفوا استاد ليس هذا ما اقصد اريد كود يعمل حلقة تكرارية كهدا مثلا ولكن في اكسيل اريد تطبيقه على نمودج فرعي اكسيس وشكرا على مرورك sub test dim lr:lr=cells(rows.count,1).end(xlup).row dim x for x = 1 to lr if cells(x,1)="" then cells(x,1)=date end if next x end sub

السلام عليكم ورحمة الله اخواني الكرام في المرفق اريد انشاء كود يعمل حلقة تكرارية داخل نمودج فرعي وجزاكم الله خيرا for next.accdb

جزاك الله خيرا تم الامر بنجاح بارك الله فيكم وزادكم من فضله

جزاك الله خيرا اساد ابو خليل عملت ما قلت ولكن فيه خطأ الملف في الدسك طوب ولما نقلته الى documents شغال كيف الحل حفظ نسخة.accdb

السلام عليكم ورحمة الله الاخوة الكرام خبراء المنتدى عندي كود حفظ نسخة ملف اكسيس شغال 100/100 يحفظ في documents واري ان يحفظ في مجلد باسم MyBk cبداخل documents جزاكم الله خيرا Option Compare Database Option Explicit Private Sub Command1_Click() crBkp End Sub Private Sub HxtyalALMaster_Click() Dim title With Application.FileDialog(msoFileDialogFolderPicker) title = "Please select tha MakanTexzin folder" .ButtonName = CurrentProject.Path If .Show = True Then Me.MakanTexzin.Value = .SelectedItems(1) End If End With End Sub Public Function crBkp() As Boolean Dim source As String Dim target As String Dim a As Integer Dim objFSO As Object Dim Path As String If MsgBox("åá ÊÑíÏ ÍÝÙ äÓÎÉ áÈÑäÇãÌß¿", vbExclamation + vbYesNo) = vbYes Then Path = CurrentProject.Path & "\" Dim nm: nm = CurrentProject.name source = CurrentDb.name target = target & nm & Format(Now(), "dd-mm-yyyy h m s") & ".accdb" a = 0 Set objFSO = CreateObject("Scripting.FileSystemObject") a = objFSO.CopyFile(source, target, True) Set objFSO = Nothing MsgBox "Êã ÇáÍÝÙ ÈäÌÇÍ", vbInformation Else MsgBox "áã íÊã ÇáäÓÎ ", vbInformation End If End Function

السلام عليكم ورحمة الله كيف احول صيغة ملف اكسيس من ACCDE الى Access عادي

جزاك الله خيرا وزادك من فضله

السلام عليكم اخواني في المنتدى وجدت كود اخفاء البرنامج اكسيس واظهار النمادج ولكن كيف اطهرها يعني اريد كو د اظهار البرنامج عكس الكود المرفق وهدا كود اخفاء Option Compare Database Option Explicit Const SW_HIDE = 1 Const SW_NORMAL = 1 Const SW_MINIMIZED = 2 Const SW_MAXIMIZED = 3 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Sub Commande1_Click() End Sub Private Sub Form_Open(Cancel As Integer) Call ShowWindow(hWndAccessApp, SW_HIDE) End Sub Private Sub Form_Close() Application.Quit End Sub

استادي هل ممكن تطبيق ذلك على قاعدة البيانات؟

نعم استادي الفاضل kkhalifa1960 حفظك الله وزادك من فضله هل يمكن تطبيق دلك على القاعدة مباشرة

للمزيد من الشرح اريد تطبيق المعادلات كما في مرفق اكسيل تحياتي controler.xlsx

السلام عليكم ورحمة الله فضلا الشرح في الصورة المرفق Controler.accdb

جزاك الله خيرا وزادك من فضله

السلام عليكم اخواني في الله فضلا اريد كود على الزر يفتح فولدر الصور واختار الشعار المناسب للتقرير المرفق شعار.accdb

هل يمكن عمل ذلك بكود VBA ونحدد الفترات التي نريد مثلا من فترة كذا الى كذا ويعمل بشروط معينة مثلا ادا كان نعم/لا TRUE يضع القيمة في عمود مسدد وغير ذلك في عمود غير مسدد

هكذا كمثال اريد عرض البيانات ان كان ممكنا المسدد غير مسدد الفترة periode المبلغ MONT الفترة periode لمبلغ MONT 04-2022 40 04-2022 80

شكرا استادي ولكن اظن لم تفهم طلبي اريد عرض بيانات استعلامين في تقرير واحد انظر الصورة