Access - Posición de una ventana

Me gustaria saber de una funcion o una Api que me permita conocer la posicion en la pantalla de un formulario.

Muchas gracias

las propiedades top y left del mismo formulario te dan la posicion del form...
espero esa sea tu duda...

saludos
isidroalmaguer

Efectivamente, Isidro lo ha dicho.
Se supone que si es un formulario, normalmente, lo estás viendo y sabes dónde está.
Ahora si quieres saber exactamente la posición tienes las propiedades TOP Y LEFT (posición en el escritorio) del mismo con un valor.
Si a estos valores le sumas el valor de HEIGHT (alto del formulario) y WIDTH (ancho del formulario), sabrás dónde se encuentran situadas las otras dos esquinas del formulario que te faltan.
Por supuestos que hay APIs y funciones, pero para eso no hacen falta, si no hemos entendido mal.

Lo siento mucho, pero las propiedades Top y left para un formulario no funcionan en Acces 97. Me producen un error indeterminado.

Lo que pretendo es guardar la posicion de un formulario en el escritorio para cuando vuelva abrirlo que aparezca en el mismo sitio y con el mismo tamaño.

Podriais indicarme alguna manera de que estas propiedades funcionen, o alguna funcion Api.

Ya de paso tambien me gustaria saber como cambiar por codigo la altura de una fila en un formulario abierto en hoja de datos.

Muchas gracias

¿Cómo que no funcionan?
De todas formas ahí llevas eso:
Funciones API y Constantes Necesarias para guardar la posición y el tamaño de un Formulario.

Option Explicit
Declare Function RegCloseKey Lib "advapi32" _
(ByVal hKey As Long) As Long
Declare Function RegCreateKeyEx Lib _
"advapi32" Alias "RegCreateKeyExA"
(ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal Reserved As Long, ByVal lpClass As String, _
ByVal dwOptions As Long, ByVal samDesired As Long, _
lpSecurityAttributes As SECURITY_ATTRIBUTES, _
phkResult As Long, lpdwDisposition As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32" Alias _
"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey _
As String, ByVal ulOptions As Long, ByVal samDesired As Long, _
phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName _
As String, lpReserved As Long, lpType As Long, ByVal lpData _
As String, lpcbData As Long) As Long
Declare Function RegSetValueEx Lib "advapi32" Alias _
"RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal Reserved As Long, ByVal dwType As Long, _
ByVal lpData As String, ByVal cbData As Long) As Long

´Constantes de máscara de seguridad
Public Const READ_CONTROL = &H20000
Public Const SYNCHRONIZE = &H100000
Public Const STANDARD_RIGHTS_ALL = &H1F0000
Public Const STANDARD_RIGHTS_READ = READ_CONTROL
Public Const STANDARD_RIGHTS_WRITE = READ_CONTROL
Publ

Public Const KEY_QUERY_VALUE = &H1
Public Const KEY_SET_VALUE = &H2
Public Const KEY_CREATE_SUB_KEY = &H4
Public Const KEY_ENUMERATE_SUB_KEYS = &H8
Public Const KEY_NOTIFY = &H10
Public Const KEY_CREATE_LINK = &H20
Public Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or _
KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or _
KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) _
And (Not SYNCHRONIZE))
Public Const KEY_READ = ((STANDARD_RIGHTS_READ Or _
KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) _
And (Not SYNCHRONIZE))
Public Const KEY_EXECUTE = ((KEY_READ) And (Not SYNCHRONIZE))
Public Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or _
KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))

´Registry Keys predefinidos usados en los argumentos hKey
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004

´Códigos de retorno para las funciones del registro
Public Const ERROR_SUCCESS = 0&
Public Const ERROR_BADDB = 1009&
Public Const ERROR_BADKEY = 1010&
Public Const ERROR_CANTOPEN = 1011&
Public Const ERROR_CANTREAD = 1012&
Public Const ERROR_CANTWRITE = 1013&
Public Const ERROR_OUTOFMEMORY = 14&
Public Const ERROR_INVALID_PARAMETER = 87&
Public Const ERROR_ACCESS_DENIED = 5&

´Constantes públicas de datos
Public Const REG_NONE =

´Constantes públicas de datos
Public Const REG_NONE = 0
Public Const REG_SZ = 1
Public Const REG_EXPAND_SZ = 2
Public Const REG_BINARY = 3
Public Const REG_DWORD = 4
Public Const REG_DWORD_LITTLE_ENDIAN = 4
Public Const REG_DWORD_BIG_ENDIAN = 5
Public Const REG_LINK = 6
Public Const REG_MULTI_SZ = 7
Public Const REG_RESOURCE_LIST = 8
Public Const REG_FULL_RESOURCE_DESCRIPTOR = 9
Public Const REG_RESOURCE_REQUIREMENTS_LIST = 10

´Opciones
Public Const REG_OPTION_VOLATILE = 0
Public Const REG_OPTION_NON_VOLATILE = 1

Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Variant
bInheritHandle As Long
End Type

Sub gAPIDisplayError(Code&)

Select Case Code&
Case ERROR_BADDB
MsgBox "Base de datos de registro corrupta!"
Case ERROR_BADKEY
MsgBox "El nombre de la clave es malo"
Case ERROR_CANTOPEN
MsgBox "No se puede abrir la clave"
Case ERROR_CANTREAD
MsgBox "No se puede leer la clave"
Case ERROR_CANTWRITE
MsgBox "No se puede escribir la clave"
Case ERROR_ACCESS_DENIED
MsgBox "Acceso denegado al registro"
Case ERROR_OUTOFMEMORY
MsgBox "Fuera de memoria"
Case ERROR_INVALID_PARAMETER
MsgBox "Parámetro inválido"
Case Else
MsgBox "Error de clave indefinido!"
End Select
End Sub

Como puedes ver esto es larguísimo y todavía queda para el formulario padre, para el hijo y para el espíritu santo, así co