Got a little problem in "add image" button

Private Sub cmdAddImage_Click()
On Error GoTo cmdAddImage_Err
Dim strFilter As String
Dim lngflags As Long
Dim varFileName As Variant

strFilter = "All Files (*.*)" & vbNullChar & "*.*" _
& vbNullChar & "All Files (*.*)" & vbNullChar & "*.*"

lngflags = tscFNPathMustExist Or tscFNFileMustExist _
Or tscFNHideReadOnly

varFileName = tsGetFileFromUser( _
fOpenFile:=True, _
strFilter:=strFilter, _
rlngflags:=lngflags, _
strDialogTitle:="Please choose a file...")

If IsNull(varFileName) Then
Else
Me![Text28] = varFileName
Forms![customer].Form.Requery
End If

cmdAddImage_End:
On Error GoTo 0
Exit Sub

cmdAddImage_Err:
Beep
MsgBox Err.Description, , "Error: " & Err.Number _
& " in file"
Resume cmdAddImage_End
End Sub

Click to expand...

Private Sub Photo_AfterUpdate()
setImagePath
Forms![Customer].Form.Requery
End Sub

Click to expand...

ubeyou said:

thanks buddy, Now i have another problem, I have an image button, how can i change the mouse cursor when i rollover it and make the image size bigger a bit? Thanks for the guidance.

Click to expand...