رشبد

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

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

عفوا استاد ليس هذا ما اقصد اريد كود يعمل حلقة تكرارية كهدا مثلا ولكن في اكسيل اريد تطبيقه على نمودج فرعي اكسيس وشكرا على مرورك 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

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

السلام عليكم اخواني خبراء المنتدى كيف استدعي بيانات من مصدرين الى التقرير QrNoPYE عمل تقرير بياناته من مصدر واحد اريد اضافة الكويري الاخر جنبا الى جنب حفظكم الله printRprt.rar

¨جزاك الله خيرا وجعله في موازين حسناتك

السلام عليكم اخواني اهل الاختصاص لدي ملف اكسيس اريد تعديل التقرير لايتدعاء نتيجة الديون من الكوري المسمىSumDOYON حسب الكود كما في الصورة المرفق print.rar

سلمت اناملك استاذkanory هذا هو المطلوب جزاك الله خيرا

نعم استاد kanory صحيحة هل من مرفق جزاك الله خيرا

السلام عليكم فضلا وليس امرا كيف احصل على اجمالي جميع الفترات باستثناء الفترة الاخيرة في الكويري علما ان الفترة الاخيرة هي 01-06-2022 printfactur3.rar