No me funciona codigo vba para Copia de Seguridad Tablas
Publicado por Manuel Boza (4 intervenciones) el 17/01/2019 14:19:43
Buenos días.
Necesito vuestra ayuda ya que soy bastante novato en el tema y no consigo entender que es lo que falla.
Tengo en la Oficina una Base de datos que utilizamos para registrar la Correspondencia de todo tipo que Entra y Sale a diario. Esta base de datos la realizó un compañero que anteriormente estuvo trabajando aquí y que ya no esta ni puedo contactar con el, pero es una base de datos de la Empresa.
La Base de datos tiene un formulario de Inicio que incluye un Cuadro de Lista con varias Opciones donde una de ellas el la Opción Copia de Seguridad (concretamente es la Segunda opción de la lista). Al seleccionar esta Opción y pulsar un Boton de Comando debería realizar una Copia de Seguridad, pero en lugar de eso da diversos errores.
¡¡¡¡Por favor, Ayundeme, estoy desesperado!!!
El código existente es el siguiente:
Case 1 'copia de seguridad
Necesito vuestra ayuda ya que soy bastante novato en el tema y no consigo entender que es lo que falla.
Tengo en la Oficina una Base de datos que utilizamos para registrar la Correspondencia de todo tipo que Entra y Sale a diario. Esta base de datos la realizó un compañero que anteriormente estuvo trabajando aquí y que ya no esta ni puedo contactar con el, pero es una base de datos de la Empresa.
La Base de datos tiene un formulario de Inicio que incluye un Cuadro de Lista con varias Opciones donde una de ellas el la Opción Copia de Seguridad (concretamente es la Segunda opción de la lista). Al seleccionar esta Opción y pulsar un Boton de Comando debería realizar una Copia de Seguridad, pero en lugar de eso da diversos errores.
¡¡¡¡Por favor, Ayundeme, estoy desesperado!!!
El código existente es el siguiente:
Case 1 'copia de seguridad
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Dim newdb As ADOX.CatalogOn Error GoTo Err_Comando1_Click
DIA = Left(Date, 2)
MES = Mid(Date, 4, 2)
AÑO = Right(Date, 4)
NOM = DIA & "." & MES & "." & AÑO
CAMINO = Texto24.Value & "\" & Texto0 & "_" & NOM & ".mdb"
Kill (CAMINO)
Exit_Comando1_Click:Set newdb = New ADOX.Catalog
newdb.Create "provider=Microsoft.jet.OLEdB.4.0;" & "Data Source=" & CAMINO
DoCmd.TransferDatabase acExport, "Microsoft Access", _
CAMINO, acTable, "ENTRADAS", "ENTRADAS"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
CAMINO, acTable, "SALIDAS", "SALIDAS"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
CAMINO, acTable, "AREAS", "AREAS"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
CAMINO, acTable, "EXPEDIENTES", "EXPEDIENTES"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
CAMINO, acTable, "DATOSGL", "DATOSGL"
MsgBox ("COPIA DE SEGURIDAD EFECTUADA" & Chr(10) & CAMINO)
Exit Sub
Err_Comando1_Click:Set newdb = New ADOX.Catalog
newdb.Create "provider=Microsoft.jet.OLEdB.4.0;" & "Data Source=" & CAMINO
DoCmd.TransferDatabase acExport, "Microsoft Access", _
CAMINO, acTable, "ENTRADAS", "ENTRADAS"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
CAMINO, acTable, "SALIDAS", "SALIDAS"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
CAMINO, acTable, "AREAS", "AREAS"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
CAMINO, acTable, "EXPEDIENTES", "EXPEDIENTES"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
CAMINO, acTable, "DATOSGL", "DATOSGL"
MsgBox ("COPIA DE SEGURIDAD EFECTUADA" & Chr(10) & CAMINO)
Valora esta pregunta
0
