ازهر عبد العزيز قام بنشر مايو 29, 2020 مشاركة قام بنشر مايو 29, 2020 السلام عليكم احتاج ان ادمج الكودين معا في كود واحد والتعديل على الكود ان وجد الكود الاول Private Sub viruseid1_AfterUpdate() If Forms!testuf!txtRoom = "x" Or Forms!testuf!txtRoom = "y1" Then Me.viruseM = Me.virusT Else Me.viruseM = Me.virusL End If End Sub الكود الثاني On Error Resume Next If Me.NewRecord = True Then Dim strWhere As String, strMessage As String strWhere = "[idViruses] = '" & Me![viruseid] & "'" Me.RecordsetClone.MoveFirst Me.RecordsetClone.FindFirst strWhere If Me.RecordsetClone.NoMatch = False Then strMessage = "The name of the virus is duplicate" lResponse = MsgBox(strMessage, vbOKOnly + vbCritical) If lResponse = vbOK Then Cancel = True Me.Undo Me.Bookmark = Me.RecordsetClone.Bookmark End If End If End If رابط هذا التعليق شارك More sharing options...
أفضل إجابة ازهر عبد العزيز قام بنشر مايو 29, 2020 الكاتب أفضل إجابة مشاركة قام بنشر مايو 29, 2020 شكرا لكم تم الحل وضعت احد الاكواد في حقل قبل التحديث فلم اعد بحاجة الى دمج الكودين رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.