رشبد

حفظك الله استادي kkhalifa1960 نعم هذا هو المطلوب الف الف شكر

السلام عليكم ورحمة الله الاخوة الكرام لو ممكن برمجة زر لحفظ نسخة للملف في فولدر خاص لحفظ النسخ جزاكم الله خيرا المرفق Database2.accdb

جزاك الله خيرا نعم هذا ما اقصد تماما الف الف شكر لك استادي Foksh

الاخوة الكرام السلام عليكم ورحمة الله لو ممكن اريد نسخ مربع نص في النمودج الى الحقل periode جزاكم الله خيرا SKL.rar

وعليكم السلام ورحمة الله كما ترى اخي الكريم قمت بتصميم يوزرفورم واضفت له اكواد vba بسيطة جدا اما بالنسبة لطلبك يمكنك انشاء زر على اي ورقة عمل وربطه بهذا الماكرو Sub show_form() UserForm1.Show End Sub

بعد ادن الاساتدة هذه محاولة Customers-Project-01.xlsm

السلام عليكم استادي الفاضل Moosak جزاك الله خيرا وزادك من فضله هذا هو المطلوب بالظبك الف الف شكر

السلام علكم ورحمة الله جزى الله كل من مر مرور الكرام اريد كود عند ادخال مبلغ المسدد في المربع تم ضغطة زر سداد قوم البرنامج بادخال اقيمة rest في pye شرط ان يكون المبلغ المسدد اكبر من لي في rest ويعمل تشيك ل valider ويمر الى الخانة الموالية ونفس العملية يعني حلقة تكرارية لادخل pye حسب المبلغ المسدد pye.accdb

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

نعم استادي هذا ما اريد بس لو ممكن تعبئة التيكسبوكس 2 كمان بالاسم

السلام عليكم ورحمة الله الاخوة الكرام في المرفق اريد كود داخ الفورم يجمع القيم في العمود D حسب الرقم في العمود a باستثناء الفترة في Label5 ملاحظة: البيانات كثيرة حبدا الكود يكون مرنا جزاكم الله خيراSumif.xlsm

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

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