رشبد

جزاك الله خيرا اساد ابو خليل عملت ما قلت ولكن فيه خطأ الملف في الدسك طوب ولما نقلته الى 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

SumOFMONT خاص لتجميع جميع الفترات حسب الرقم وبما ان الفترة الحالية من بين الفترات اريد خصم MONT من SumOfMONT انظر الصورة اريد COUD 111 اريد النتيجة في 25=rest نعم صدقت استادي كان \لك خطأ جزاك الله خيرا

شكرا استادس Nouveau dossier (2).rar

السلام عليكم كيف يمنكن الحصول على مايلي: اريد في مربع نص المسمى rest دالة للحصول على نتيجة المربع SumOfMONT ناقص نتيجة مربع MONT وكلهم في نمودج تقرير حاولت بهده الطريقة ولم ينجح معي =SumOfMONT-MONT جزاكم الله خيرا

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

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