Seguridad..
Quiero que al abrir una forma verifique la existencia de dos archivos si están que abra la forma si no están los archivos que no la abra, es decir if archivo1 existe en c:\patk y archivo2 existe en c:\pilar\pico\ then open form, gracias nuevamente... Obviamente de error de no existir los archivos... Gracias..
1 Respuesta
Respuesta de telemaco
1
Estas lineas de código te servirán:
************************
Dim Archivo1 As String
Dim Archivo2 as String
Archivo1 = Dir("C:\patk\MiArchivo1.txt")
Archivo2 = Dir("C:\patk\MiArchivo2.txt")
If Archivo1 <> "" and Archivo2 <> "" then
Docmd.OpenForm "MiForm"
else
Msgbox "No se encontro los archivos"
end if
**************************
Y listo la función Dir (Devuelve el nombre del archivo SI EXISTE, de lo contrario devuelve vacío, por eso el if, pregunto si las dos variables están vacioas o no, si no, me abre el formulario.
Att:telemaco
************************
Dim Archivo1 As String
Dim Archivo2 as String
Archivo1 = Dir("C:\patk\MiArchivo1.txt")
Archivo2 = Dir("C:\patk\MiArchivo2.txt")
If Archivo1 <> "" and Archivo2 <> "" then
Docmd.OpenForm "MiForm"
else
Msgbox "No se encontro los archivos"
end if
**************************
Y listo la función Dir (Devuelve el nombre del archivo SI EXISTE, de lo contrario devuelve vacío, por eso el if, pregunto si las dos variables están vacioas o no, si no, me abre el formulario.
Att:telemaco
