Moving a form at run time

[Avatarp]

Access:

How do I have my form (no borders) move when I click the background?

[krea]

move to where when you click the background ?

[Avatarp]

I want to click down and move the form where ever I want. I know how to do this in VB but not in VBA for Access.

[Ephesians]

Put this in your module:

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long

And this in your Detail Mousedown event. You can drag it around by the form detail section.

Private Sub Detail_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, &HA1, 2, 0&
End Sub

[Avatarp]

Ephesians

That works great for me thnanks again.