E-mail / text field

[Amateur]

I have the following code to open outlook with, the e-mail address included,
on my Access Form:

Private Sub txtBoxName_DblClick(Cancel As Integer)
On Error Resume Next
Dim strEmail As String
If Not IsNull(Me.email) Then
strEmail = Me.email
DoCmd.SendObject acSendNoObject, , , strEmail
End If
End Sub

How can I change the code in the way that, if I go to the text field
"email", instead of the normal cursor flash, a hand is shown?

Thanks for any help.
Klaus

 

[AKN_39]

I have the following code to open outlook with, the e-mail address included,
on my Access Form:

Private Sub txtBoxName_DblClick(Cancel As Integer)
On Error Resume Next
Dim strEmail As String
If Not IsNull(Me.email) Then
    strEmail = Me.email
    DoCmd.SendObject acSendNoObject, , , strEmail
End If
End Sub

How can I change the code in the way that, if I go to the text field
"email", instead of the normal cursor flash, a hand is shown?

Thanks for any help.
Klaus

Klaus: See the following link:

http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_21941355.html

I hope this helps.

Regards. . .

Tony N.

 

[Lars Brownies]

Could you send the text? Your link is a paid service.

Lars

"AKN_39" <[email protected]> schreef in bericht

I have the following code to open outlook with, the e-mail address
included,
on my Access Form:

Private Sub txtBoxName_DblClick(Cancel As Integer)
On Error Resume Next
Dim strEmail As String
If Not IsNull(Me.email) Then
strEmail = Me.email
DoCmd.SendObject acSendNoObject, , , strEmail
End If
End Sub

How can I change the code in the way that, if I go to the text field
"email", instead of the normal cursor flash, a hand is shown?

Thanks for any help.
Klaus

Klaus: See the following link:

http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_21941355.html

I hope this helps.

Regards. . .

Tony N.

 

[AKN_39]

Could you send the text? Your link is a paid service.

Lars

"AKN_39" <[email protected]> schreef in bericht




Klaus: See the following link:

http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_219...

I hope this helps.

Regards. . .

Tony N.

If you scroll far enough down the page, you will see replies to the
original question (without having to subscribe); however, here is the
relevant part of the post:

Mike, try this bit of code I use on my mousemove events
Simply add to a module


Public Declare Function SetCursor Lib "User32" (ByVal hCursor As Long)
As Long
Public Declare Function LoadCursor Lib "User32" Alias
"LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As
Long

Public Function SetCursorHand()
Dim lHwnd As Long

On Error Resume Next
lHwnd = LoadCursor(0, 32649&)
If (lHwnd > 0) Then SetCursor lHwnd
End Function

Tony N.

 

[Lars Brownies]

Thanks.
Btw: even if I scroll down, I don't see any replies.

Lars

"AKN_39" <[email protected]> schreef in bericht

Could you send the text? Your link is a paid service.

Lars

"AKN_39" <[email protected]> schreef in
bericht




Klaus: See the following link:

http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_219...

I hope this helps.

Regards. . .

Tony N.

If you scroll far enough down the page, you will see replies to the
original question (without having to subscribe); however, here is the
relevant part of the post:

Mike, try this bit of code I use on my mousemove events
Simply add to a module


Public Declare Function SetCursor Lib "User32" (ByVal hCursor As Long)
As Long
Public Declare Function LoadCursor Lib "User32" Alias
"LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As
Long

Public Function SetCursorHand()
Dim lHwnd As Long

On Error Resume Next
lHwnd = LoadCursor(0, 32649&)
If (lHwnd > 0) Then SetCursor lHwnd
End Function

Tony N.