Left Function

[a]

thank you



I have text box in my form

this text box contain a value = myfile.txt



explain:

myfile is any size of character after myfile name you will find the
extension

How can I use this function (trim or lift) or any function to remove the
extension of myfile

for above example (.txt)

 

[Douglas J. Steele]

Sorry, are you saying that you want .txt, or that you want myfile?

To get myfile, you'd use

Left(Me!MyTextbox, InStrRev(Me!MyTextbox, ".") - 1)

To get txt, you'd use

Mid(Me!MyTextbox, InStrRev(Me!MyTextbox, ".") + 1)

Of course, there's always a chance that the text box may be empty, or that
what's in it might not have an extension. To be complete, you'd want
something like:

Dim lngPosition As Long
Dim strFileName As String
Dim strExtension As String

lngPosition = InStrRev(Me!MyTextbox & vbNullString, ".")
If lngPosition > 0 Then
strFileName = Left$(Me!MyTextbox, lngPosition - 1)
strExtension = Mid$(Me!MyTextbox, lngPosition + 1)
Else
strFileName = Me!MyTextbox
strExtension = vbNullString
End If