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

[عامر الراشدي 777]

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

[Moosak]

في 12‏/8‏/2024 at 16:25, عامر الراشدي 777 said:

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

تسألنا أم تخبرنا ؟ 

أهلا بك في عالم أوفيسنا أخي عامر .. شرفت وآنست 🙂🌹
الأفضل أنك ترفق ملفك أخي عامر وتوضح المطلوب بالشرح الكافي والوافي 🙂

[safaa salem5]

لتحديث أو إضافة بيانات إلى جدول. 

في هذا المثال، سنستخدم جدولاً اسمه

Employees يحتوي على الحقول التالية:

• EmployeeID (رقم الموظف - مفتاح أساسي)
• FirstName (الاسم الأول)
• LastName (الاسم الأخير)
• Position (الوظيفة)

 

الخطوات:

1. افتح قاعدة البيانات في Microsoft Access.
2. انتقل إلى "التطوير" (Developer) ثم اختر "الوحدات البرمجية" (VBA) أو اضغط على ALT + F11 لفتح محرر VBA.
3. اختر إدراج (Insert) ثم وحدة نمطية (Module) لإضافة وحدة برمجية جديدة.
4. الصق الكود التالي في الوحدة النمطية:

 

Sub UpdateOrAddEmployee(EmployeeID As Long, FirstName As String, LastName As String, Position As String)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    
    Set db = CurrentDb()
    
    ' تحقق مما إذا كانت البيانات موجودة بالفعل
    strSQL = "SELECT * FROM Employees WHERE EmployeeID = " & EmployeeID
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
    
    If rs.EOF Then
        ' إذا لم يكن هناك سجل مطابق، أضف سجل جديد
        rs.AddNew
        rs!EmployeeID = EmployeeID
        rs!FirstName = FirstName
        rs!LastName = LastName
        rs!Position = Position
        rs.Update
        MsgBox "تم إضافة موظف جديد."
    Else
        ' إذا كان هناك سجل مطابق، قم بتحديثه
        rs.Edit
        rs!FirstName = FirstName
        rs!LastName = LastName
        rs!Position = Position
        rs.Update
        MsgBox "تم تحديث بيانات الموظف."
    End If
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub