Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim strDOB As String
Dim strArray As Variant
Dim intX As Integer
Dim strResult As String
With Me
strDOB = .DOB
strArray = Split(strDOB, "/")
For intX = LBound(strArray) to UBound(strArray)
strResult = strResult & strArray(intX)
Next intX
.Reference = UCase(.Surname) & strResult
End With
strDOB = .DOB
strDOB = CStr(.DOB)
Private Sub Form_Open(Cancel As Integer)
Call SetRef 'Updates Reference when Form is opened.
End Sub
Private Sub Surname_AfterUpdate()
Call SetRef 'Updates Reference when Surname is changed.
End Sub
Private Sub DOB_AfterUpdate()
Call SetRef ''Updates Reference when DOB is changed.
End Sub
Private Sub SetRef()
Dim strDOB As String
Dim strArray As Variant
Dim intX As Integer
Dim strResult As String
With Me
strDOB = CStr(.DOB)
strArray = Split(strDOB, "/")
For intX = LBound(strArray) to UBound(strArray)
strResult = strResult & strArray(intX)
Next intX
.Reference = UCase(.Surname) & strResult
End With
End Sub
Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.Surname) = False AND IsNull(Me.DOB) = False Then
Call SetRef 'Updates Reference when Form is opened.
End If
End Sub
Private Sub Surname_AfterUpdate()
If IsNull(Me.Surname) = False AND IsNull(Me.DOB) = False Then
Call SetRef 'Updates Reference when Surname is changed.
End If
End Sub
Private Sub DOB_AfterUpdate()
If IsNull(Me.Surname) = False AND IsNull(Me.DOB) = False Then
Call SetRef ''Updates Reference when DOB is changed.
End If
End Sub