عامر الراشدي 777 قام بنشر أغسطس 12 مشاركة قام بنشر أغسطس 12 تحديث واضافة بيانات جدول. اذا كانت البيانات قد سبق ادخالها يقوم بتحديثها واذا كانت لم تدخل يقوم باضافته رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر أغسطس 13 مشاركة قام بنشر أغسطس 13 في 12/8/2024 at 16:25, عامر الراشدي 777 said: تحديث واضافة بيانات جدول. اذا كانت البيانات قد سبق ادخالها يقوم بتحديثها واذا كانت لم تدخل يقوم باضافته تسألنا أم تخبرنا ؟ أهلا بك في عالم أوفيسنا أخي عامر .. شرفت وآنست 🙂🌹 الأفضل أنك ترفق ملفك أخي عامر وتوضح المطلوب بالشرح الكافي والوافي 🙂 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر أغسطس 13 مشاركة قام بنشر أغسطس 13 لتحديث أو إضافة بيانات إلى جدول. في هذا المثال، سنستخدم جدولاً اسمه Employees يحتوي على الحقول التالية: EmployeeID (رقم الموظف - مفتاح أساسي) FirstName (الاسم الأول) LastName (الاسم الأخير) Position (الوظيفة) الخطوات: افتح قاعدة البيانات في Microsoft Access. انتقل إلى "التطوير" (Developer) ثم اختر "الوحدات البرمجية" (VBA) أو اضغط على ALT + F11 لفتح محرر VBA. اختر إدراج (Insert) ثم وحدة نمطية (Module) لإضافة وحدة برمجية جديدة. الصق الكود التالي في الوحدة النمطية: 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان