د.كاف يار

تفضل التعديل

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

23 ساعات مضت, jo_2010 said:

if pw<> password the

 

ناقص حرف فقط

If pw <> password Then

    MsgBox "خطأ في كلمة المرور", vbCritical + vbMsgBoxRight, "خطأ"

ElseIf pw = password Then

    MsgBox "كلمة مرور صحيحة", vbInformation + vbMsgBoxRight, "تأكيد"

ElseIf Len(password) = 0 Then

    MsgBox "يرجى ادخال كلمة المرور", vbExclamation + vbMsgBoxRight, "تنبيه"

End If

2 ساعات مضت, ابو جودي said:

السلام عليكم 

استاذى القدير ومعلمى الجليل  @د.كاف يار 

تحية كيبة عطرة ... اعجبتنى الفكرة جدا جدا جدا 

ولكن لى رجاء ممكن شرح كيفية ضبط اماكن ازرار الامر ان ذادت عن المرفق او قلت 

اخي ابا جودي شكرا لك لمرورك العطر  و جمعة مباركة عليك و على الجميع

بالنسبة لأماكن الأزرار فقط استخدمت Controls().Move 

لا اكثر و لا اقل مع تحديد الموضع و زيادة المسافة من الأعلى داخل الحلقة التكرارية

Forms!Form1.Controls(mycomnd).Move

تفضل التعديل

Employee Monthly Attendance.zip

ارفق مثال لكي يتم التعديل عليه

او اتبع الطريقة التالية

- يجب اضافة عمود اسم و صيغة الصورة في الجدول مثلا :اسم العمود (ImageUral) و القيمة اسم الصورة (Image1.jpg) 

- في عنصر الصورة في التقرير ضع التالي

= [CurrentProject].[Path] & "\images\" & [ImageUral]

تفضل التعديل

صلاحيات كاملة

صلاحيات حسب الاختيار

الدائن و المدين.zip

في ٢٦‏/١١‏/٢٠٢١ at 03:27, abouelhassan said:

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

 

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

حسب طلبك هو الي موجود من قبل

تفضل

sendemail2.zip

تفضل التعديل

Base1.zip

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

تفضل التعديل 

A- DATA (3).zip

50 دقائق مضت, حسين العربى said:

 استاذي الفاضل د.كاف يار  شكرا علي مرورط الطيب وجزاك الله خير الجزاء كود فوق الممتاذ بس ناقصه حاجه انا عاوز النسخة توضع في فولدر اسمه Backup

تفضل

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

17 ساعات مضت, User user said:

محتاج عند فتح الفورم  يظهر الملفات المرتبطة برقم العميل  الموجوده فى مسار محدد على برتيشن فى الهارد ويظهر الناتج فى Listbox

كما ذكر اخي @ابوخليل

يجب ان نعرف تنسيق اسماء الملفات لديك 

لكي تحصل على معطيات متوافقة مع متطلباتك 

جيب ان تكون طلباتك واضحة و مكتملة

تفضل هذا التعديل

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

1 ساعه مضت, salim07 said:

دكتور كاف يار الكود يعمل ولكن النتيجة تكون بالسالب ولشهر واحد

مثلا :

جانفي   تم السداد   400

فيفري  تم السداد   400

مارس   لم يتم السداد  400

من المفروض يكتب في خانة المدفوعات 800

ولكن هو يكتب -400

يعني لايقوم بجمع من تم السداد لهم !!!

للاسف لايمكن تقديم المساعدة اكثر من هذا 

يرجى رفع مثال لكي يتم فهم المطلوب و  التعديل عليه