Bom dia Habitantes da Selva,
Achei este código em um vídeo do Adelino e gostei muito mas, não estou conseguindo rodar pois meu BE está localizado em uma pasta compartilhada na rede.
Erro em tempo de Execução: 3031
Senha Inválida
Achei este código em um vídeo do Adelino e gostei muito mas, não estou conseguindo rodar pois meu BE está localizado em uma pasta compartilhada na rede.
- Código:
Private Sub fncCMatric()
Dim bd As Database
Dim rs As Recordset
Dim strSql As String
strSql = "SELECT meucampo, Nivel FROM minhatabela ORDER BY campo;"
[color=#ffff00]Set bd = OpenDatabase(CurrentProject.Path & "\meuBE_be.accdb", False, False, ";PWD=senhadoBE")[/color]
Set rs = bd.OpenRecordset(strSql, dbOpenSnapshot)
Do Until rs.EOF
Me!Campo.AddItem rs!campo
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
bd.Close
Set bd = Nothing
End Sub
Erro em tempo de Execução: 3031
Senha Inválida