Hola Amigo, creo que puedo ayudarte con el tema de la coneccion en red, yo tengo un sistemita que trabaja en red y lo uso solo en dos computadoras conectadas por red inalámbrica, lo unico que debes hacer es hacer que lea la coneccion de la base desde un txt si? luego lo único que debes hacer es escribir la ruta de la base en el txt asi la aplicación la busca al iniciar
Public Sub main()
Open App.Path & "\server.txt" For Input As 1
strcn = Input(LOF(1), 1) & "\Padel.mdb"
Close 1
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strcn & ";"
Set Comando = New ADODB.Command
Comando.ActiveConnection = cn
Set FncAux = New ADODB.Recordset ' Solo para funciones
FncAux.ActiveConnection = cn
ErrAbr:
If Not Err.Number = 0 Then
MsgBox "Ocurrió un error al abrir la base de datos" & Err.Number, vbCritical, "Horror Fatal!!!!!!!"
End
End If
ese seria el código para leer la base de un txt, luego lo que debes hacer es simplemente crear un txt que se llame server y escribir dentro la dirreccion de la base de datos: "D:\Valentino\La Esquina Padel" sin comillas y ese txt colocarlo donde esta el exe del sistema, otra opcion sería crear accesos directos y colocarlos en cada pc.
espero que te sirva, en lo personal a mi me es de gran utilidad, cuantame como te fue
saludos
:
adios: