[Resolvido]Colocar banco de dados para funcionar na unidade c:

Não sei se e lugar opropriado!!

Boa tarde grandes amigos do forum estou de volta
para esclarecer um duvida

Como faço para meu banco de dados so pegar se for colocado um copia na unidade c:?

Private Sub Form_Open(Cancel As Integer)
If Len(Dir("C:\teuBanco.mdb")) > 0 Then
Exit Sub
Else
MsgBox "Banco vai encerrar...", vbCritical
Application.Quit
End Sub

Amigo ricardo ai teria que criar um novo modulo

para esse código?

você deseja que o seu banco só funcione em C:, ou é diferente a ideia ?

ok amigo resolvido aqui

mas se tiver dentro deu uma pasta com ficaria

("C:\teuBanco.mdb"))

existem varias maneiras de fazer isso

se quiser que o seu banco só funcione em C:

Private Sub Form_Open(Cancel As Integer)
Dim strLetraDoDrive As String
strLetraDoDrive = Left(CurrentProject.Path, 1)
If strLetraDoDrive = "C" Then
Exit Sub
Else
MsgBox "Banco vai encerrar...", vbCritical
Application.Quit
End If
End Sub


se quiser como lhe passei, mas com pasta, tem de colocar o codigo na abertura do formulario principal

Private Sub Form_Open(Cancel As Integer)
If Len(Dir("C:\Pasta\teuBanco.mdb")) > 0 Then
Exit Sub
Else
MsgBox "Banco vai encerrar...", vbCritical
Application.Quit
End if
End Sub

ok amigo vlw pela ajuda

vou testar o outro jeito também!!!