Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.
Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If Right(ctl.Name, 4) = "date" Then If ctl <> #11/11/1111# Then dcriteria = "[Immunization Log Form]!IPID = '" & Forms![Immunization log].IPID & "' AND [Immunization Log Form]!" & ctl.Name & " = #" & ctl & "#" 'MsgBox (dcriteria) dresult = DLookup(ctl.Name, "Immunization Log Form", dcriteria) If dresult = ctl.Value Then MsgBox "This " & ctl.Name & " has already been entered. It cannot be entered two times." Me(Replace(ctl.Name, "date", "") & "_day").SetFocus Cancel = True Exit For End If End If End If End If Next ctl
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!