السلام عليكــم ورحمـة الله وبركاتــة
انا عندي الكود طبعا للأكسس 2007 و في بي اي اللي موجود في اكسس لتسجيل موظف بكورس معين بس مو راضي يشتغل هذا الكود الميثود اللي فيه
مهمتها ان تاخذ رقم الموظف من الفورم السابق وتضيفه بالجدول تيبل سكيدوال في الفيلد اللي هو متعدد القيم لانه يسجل اكثر من موظف في كورس معين
فهل من الممكن الاقي كود معين لهالمشكله يعني يضيف رقم موظف في الجدول يعني هل تنفع قاعده الابديت على الداتابيس الموجوده بالاسفل في الكود
اتمنى المساعده وشاكر لكم جهودكم
End Sub
Private Sub register_Click()
If IsNull(Me.SID) Or Me.SID = "" Then
MsgBox ("Select Schedule ID for the course that you want to register in")
Else
If Form_frmRegEmp.SID.Value = DLookup("schID", "tblSchedule", "[schID]=" & Me.SID.Value) Then
CurrentDb.Execute "UPDATE tblSchedule SET Employees confirmed = " & Empno1 & "" & _
"WHERE schID = " & Me.SID & ";"
CurrentDb.Close
End If
End If
End Sub
Public Empno1 As String Private Sub Form_Load Empno1 = Form_frmHomeEmp.Empno