VERIFICAR SE BANCO DE DADOS ACCESS ESTA ABERTO

LETTOLIMA 25/09/2009 15:15:49
#323661

Pessoal agradeço a ajuda mas vou expicar melhor minha dúvida, Criei um código em VB para abrir um formulário Access, tudo funciona corretamente só que preciso implemtentar em meu código VB uma condição para verificar antes de abrir o formulário se o formulário está aberto, caso esteja ele deverá ser fechado antes, isso porque meu código abre mais de um formulário. O código criado foi o seguinte:


Option Explicit

[ô]Declaracoes API
Private Declare Function ShowWindow Lib [Ô]user32.dll[Ô] (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib [Ô]user32.dll[Ô] Alias [Ô]FindWindowA[Ô] (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

[ô]Constantes API
Private Const SW_MAXIMIZE = 3
Private Const SW_NORMAL = 1
[ô] faça uma referência a Microsoft Access 8.0/9.0 Object Library
[ô]Cria uma instancia do Access
Dim appAccess As New Access.Application



Public Sub MaximizeAccess()
Dim hWnd As Long

hWnd = FindWindow([Ô]OMain[Ô], [Ô]Microsoft Access[Ô])
If hWnd <> 0 Then
ShowWindow hWnd, SW_NORMAL
ShowWindow hWnd, SW_MAXIMIZE
End If
End Sub


[ô]Fecha o banco de dados
Private Sub Command3_Click()
End
End Sub

[ô]abre o banco de dados
Private Sub Form_Load()
appAccess.OpenCurrentDatabase [Ô]C:\Projeto.mdb[Ô], True
End Sub


Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
appAccess.CloseCurrentDatabase
appAccess.DoCmd.Quit acQuitSaveNone
End Sub


Agredeço a ajuda .