د.كاف يار

تفضل التعديل 855.zip

تفضل التعديل يابو الحسن - تم تعديل الخطأ في النسة المالية - تم تعديل الخطأ في تصدير البيانات الدائن و المدين.zip

تفضل التعديل الدائن و المدين.zip

لم افهم ماذا تريد ؟ ماهو المطلوب تحديداً لكي نقدم لك المساعدة.

تفضل هذه المشاركة اضغط على استعلام نقل البيانات فقط Public Function TransData() Dim db As DAO.Database, Tb1 As DAO.Recordset, Tb2 As DAO.Recordset If DCount("*", "التجهيز") > 0 Then If MsgBox("توجد بيانات جاهزة للترحيل" & vbNewLine & vbNewLine & "هل تريد ترحيل البيانات الآن ؟" _ , vbExclamation + vbYesNo + vbMsgBoxRight, "تأكيد") = vbYes Then Set Tb1 = CurrentDb.OpenRecordset("التجهيز"): Tb1.MoveFirst: Set Tb2 = CurrentDb.OpenRecordset("الاساسي") While (Not Tb1.EOF) Tb2.AddNew Tb2.Fields("م").Value = Nz(DMax("م", "الاساسي"), 0) + 1 Tb2.Fields("الاسم").Value = Tb1.Fields("الاسم") Tb2.Fields("الرقم").Value = Tb1.Fields("الرقم") Tb2.Fields("المبيعات").Value = Tb1.Fields("المبيعات") Tb2.Fields("رقم المستند").Value = 1 Tb2.Fields("تاريخ المستند").Value = Format(Now, "yyyy/mm/dd") Tb2.Update Tb1.MoveNext Wend If MsgBox("تم نقل البيانات بنجاح" & vbNewLine & vbNewLine & "هل تريد حذف البيانات من جدول التجهيز ؟" _ , vbQuestion + vbYesNo + vbMsgBoxRight, "تأكيد") = vbYes Then Tb1.MoveFirst While (Not Tb1.EOF) Tb1.Delete Tb1.MoveNext Wend MsgBox "تم حذف بيانات جدول التجهيز بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" Else End If Tb1.Close: Set Tb1 = Nothing End If End If End Function 5.accdb

ناقص حرف فقط If pw <> password Then MsgBox "خطأ في كلمة المرور", vbCritical + vbMsgBoxRight, "خطأ" ElseIf pw = password Then MsgBox "كلمة مرور صحيحة", vbInformation + vbMsgBoxRight, "تأكيد" ElseIf Len(password) = 0 Then MsgBox "يرجى ادخال كلمة المرور", vbExclamation + vbMsgBoxRight, "تنبيه" End If

اخي ابا جودي شكرا لك لمرورك العطر و جمعة مباركة عليك و على الجميع بالنسبة لأماكن الأزرار فقط استخدمت Controls().Move لا اكثر و لا اقل مع تحديد الموضع و زيادة المسافة من الأعلى داخل الحلقة التكرارية Forms!Form1.Controls(mycomnd).Move

تفضل التعديل Employee Monthly Attendance.zip

ارفق مثال لكي يتم التعديل عليه او اتبع الطريقة التالية - يجب اضافة عمود اسم و صيغة الصورة في الجدول مثلا :اسم العمود (ImageUral) و القيمة اسم الصورة (Image1.jpg) - في عنصر الصورة في التقرير ضع التالي = [CurrentProject].[Path] & "\images\" & [ImageUral]

تفضل التعديل صلاحيات كاملة صلاحيات حسب الاختيار الدائن و المدين.zip

للأسف يابو الحسن في مشكلة عندي في فهم المطلوب حسب طلبك هو الي موجود من قبل

تفضل sendemail2.zip

تفضل التعديل Base1.zip

العفو اخي الكريم تحت امرك في اي وقت

تفضل التعديل A- DATA (3).zip

تفضل If MsgBox("هل تريد انشاء نسخة احتياطية الآن ؟", vbQuestion + vbYesNo + vbMsgBoxRight, "تأكيد") = vbYes Then Dim MyFile, DstFile As String Dim Syso As Object MyFile = " ضع هنا مسار قاعدة البيانات " DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "dd-mm-yyyy") & "." & Split(Mid(MyFile, InStrRev(MyFile, "\") + 1), ".")(1) Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing End if

تفضل التعديل A- DATA (3).zip

بما انك قمت بتحويل قاعدة البيانات الى نوع SQL فالآن تستطيع انشاء واجهات بإستخدام ASP OR PHP OR PYTHON و بأي لغة تريدها و انصحك بما انك استطعت بناء مشروع على بئة الأكسس فستجد اقرب و اسهل المشاريع لك هي بيئة عمل vb.ASP في هذا الموقع w3schools ستجد امثلة كثيرة للتصميم ابدء و ان استصعب عليك شيء قم بفتح موضوع جديد في القسم المخصص في موقعنا الغالي اوفيسنا و ستجدني و زملائي متفاعلين معك بإذن الله لكن المهم ان تبدء ابدء بإنشاء Master Page و قم بإضافة الصفحات حسب الحاجة اليها

تفضل هذا الكود فقط ضع مسار قاعدة البيانات و سيتم انشاء نسخة مماثلة منها دون الحاجة الى فتحها و تمرير كلمة المرور If MsgBox("هل تريد انشاء نسخة احتياطية الآن ؟", vbQuestion + vbYesNo + vbMsgBoxRight, "تأكيد") = vbYes Then Dim MyFile, DstFile As String Dim Syso As Object MyFile = " ضع هنا مسار قاعدة البيانات " DstFile = CurrentProject.Path & "\Backup-" & Format(Now, "dd-mm-yyyy") & "." & Split(Mid(MyFile, InStrRev(MyFile, "\") + 1), ".")(1) Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing End if

كما ذكر اخي @ابوخليل يجب ان نعرف تنسيق اسماء الملفات لديك لكي تحصل على معطيات متوافقة مع متطلباتك جيب ان تكون طلباتك واضحة و مكتملة

تفضل هذا التعديل sendemail2.zip

تفضل التعديل sendemail2.zip

تفضل هذا التعديل Dim fso As Object, oFSO As Object, oFolder As Object, _ oFile As Object, FilePath As String, SetFileName As Variant, CastumerID As Integer CastumerID = 1 Set oFSO = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then Set oFolder = oFSO.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)) For Each oFile In oFolder.Files SetFileName = Split(Mid(oFile.Name, InStrRev(oFile.Name, "\") + 1), ".")(0) If SetFileName = CastumerID Then FilePath = FilePath & vbNewLine & Mid(oFile.Name, InStrRev(oFile.Name, "\") + 1) End If Next oFile End If End With MsgBox FilePath و لا تنسى اضافة المكتبة

تفضل هذا التعديل Dim player As WindowsMediaPlayer Set player = WindowsMediaPlayer3.Object With player .URL = CurrentProject.Path & "\MyAudio.mp3" .settings.setMode "loop", True End With MyAudio.zip

للاسف لايمكن تقديم المساعدة اكثر من هذا يرجى رفع مثال لكي يتم فهم المطلوب و التعديل عليه