If Me.Active = False Then
If MsgBox("Are you sure you want to inactivate the selected user", vbYesNo) = vbYes Then
DoCmd.RunSQL "Update Country " & _
"INNER JOIN tblUser ON [Country].[Lead] = [tblUser].[UserID]" & _
"SET [Country].[Lead] = ," & _
"[Country].[BackUp] = ," & _
"[Country].[sLead] =...