Cita:
Iniciado por Fanii 
hola!!
gracias por responder tan rapido
pero quitandole el app.path
no me ha salido, y en el codigo que me
mencionas pues me imagino que es en el
area de general no?
mira tengo que implementar un formulario
para password y que este me envie a otro formulario
que tenga esta apariencia
por ejemplo en el sub de agregar necesitaria llamar
al sub IniciarConexion?
bueno mil gracias
hola buenas tardes:
calculo que una vez ingresado el pasword que tendras definido en codigo calculo, llamas a Form2 donde se conecta a la base de datos :
estas dos lineas colocalas en un modulo bas para quwe sinvan en todo el proyecto.
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
este iria en el forms2
Private Sub Form_Load()
cnn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\miles.mdb" & ";Persist Security Info = False "
If rs.State > 0 Then '(aca comprobamos que la conexion si esta abierta la cerramos y la volvemos a conectar).
rs.Close
End If
rs.Open "select * from Datos", cnn, adOpenStatic, adLockOptimistic
if rs.RecordCount > 0 then
Call visualizar_datos
form2.show
else
msgbox "no hay datos en la base de datos"
end if
End Sub
en el caso que solo la quieras abrir cuando agren datos deberas colocar este codigo en el boton de agregar. caso contrario esta abierta mientras el formulario sea llamado y cargado en memoria.
espero te sirva, cualquier cosa avisame. sobre el error que te daba a mi me salio tambien hasta que la coloque de esta manera. Suerte.
