A digital transformation requires faster time to market, shorter software development lifecycles, and the ability to adapt rapidly to changing customer demands. DevOps provides the solution.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.