Ok BruceM, First I thank you for responding and for the suggestion on Key
words, Had I know I would have used another word an will chane it if I can
without messing the Db., I tried a your suggestion without any luck, I'm
still pluging on; here is the whole function:
Public Function PtKey()
Dim strTmp As String
Dim dtVisitDate As Date
Dim strPtKey As String
Dim strLastName As String
strTmp = Me.Visit_Date & ""
If IsDate(strTmp) Then ' from John Spencer
dtVisitDate = DateValue(strTmp) ' from J.S.
strTmp = Format(dtVisitDate, "mmddyyyy") 'yyyymmdd--From J.S.
End If
Build_VisitDate = strTmp
strTmp = strTmp & "-"
strSSN = Me.SSN & ""
' OK so it works, I used the code below to take a full SSN
' and convert it to the last 4
strSSN = Right(strSSN, 4)
strTmp = strTmp & strSSN
strLastName = Me.LastName & ""
strLastName = Left(strLastName, 1)
strTmp = strTmp & strLastName
End Function
Now on my tblPATIENTS I have the field (unfortunantly named ) Key and on
the
form Patients the controll(text) Key where I was manualy entring the "
key"
I hope this clearefies my question.
I have a function that generates a string and I need to enter it in A
Bound
Field:
[quoted text clipped - 9 lines]
As Always Thank you for your assistance.