juanito01

Lo que te pasa es que al crear un nuevo registro en la tabla1, no le das el código de cliente a la tabla2 y aunque estén relacionados, debe ir vacío y por eso no te actualiza la otra tabla. Revísalo y verás como es así. En cualquier caso te diré...

Puedes poner que cuando arranque el formulario en el evento form_load testee si por ejemplo format(now,"hhmm")=2200 de manera que a las diez en punto de la noche realice la copia, o algo parecido. Esta copia la puedes hacer fácilmente con macros o...

Hombre, pues lo que me dices de que no funciona el setfocus no lo entiendo, porque suele ir bien. En cualquier caso, y en plan chapu, puedes decirle al siguiente control que obtenga el foco (evento got_focus) que en base a una variable declarada...

Pues tienes una movida guapa, porque si tu amigo le puso al mismo cliente Paco Pérez y después otro día Paco Perez (sin tilde), el PC nunca te devolverá los datos correctos. Por supuesto dile a tu colega que no siga usando esa base de datos porque no...

Si lo que el usuario hace es acceder a la pripia base de datos porque tiene access instalado en su pc, no puedes limitar su acceso a las tablas. Si es una aplicación aparte que coge los datos de tu base, puedes implementar cualquier rutina que...

No. Está encriptada y no se encuentra fácilmente localizable, por lo que lo del ADO olvídalo. Lo único que te puedo decir es que existen programas en la red que intentan crackear las contraseñas mediante, generalmente, ataques por fuerza bruta...

Creándote un origen de datos ODBC y accediendo desde VB con objetos ADO como si de otro cualquier origen de datos se tratara, incluso directamente sin utilizar un origen predefinido.

Si entendí bien la lógica, es algo así... 'partiendo de la base de que la tabla clientes tiene 'una clave primaria denominada ID_CLIE; Function uno() As Boolean Dim mibase As DAO.Database Dim mirs As DAO.Recordset Dim sSQL As String On Error GoTo...

Hay que jugar con el format MsgBox " Madrid, a " & Day(Now()) & " de " & Format(Now, "mmmm") & " de " & Format(Now, "yyyy")

A ver esto. Function tres() As Boolean Dim mibase As DAO.Database Dim indice As Relation Dim i% Set mibase = CurrentDb() For Each indice In mibase.Relations mibase.Relations.Delete indice.Name Next End Function