رشبد

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

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

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