Access - comprobar si existe un fichero en varias carpetas

 
Vista:
sin imagen de perfil
Val: 30
Ha aumentado 1 puesto en Access (en relación al último mes)
Gráfica de Access

comprobar si existe un fichero en varias carpetas

Publicado por Didac (19 intervenciones) el 18/10/2018 15:45:12
Hola a todos;

A ver si alguno de vosotros me puede ayudar, por que llevo dias intentando encontrar una solución al problema pero no doy con ella.

Me gustaría poder controlar un fichero si existe en varias carpetas, como veis en el código, le paso el nombre de fichero a la variable pedido, Y despues lo marco para que el IF funcione, siempre funciona, pero despues me siguen saliendo los mensajes de las otras carpetas que no existe.

Lo que quisiera conseguir es que compruebe si el fichero que le paso por la variable pedidos, me lo busque en todas las rutas y si no esta que se muestre un mensaje, y si esta que se muestre otro mensaje

Alguien me puede ayudar por favor

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
Function moverfichero2()
Dim familia As String
Dim pedido As String
Dim control As String
 
Dim BT As String
'Dim BTC As String
Dim RT As String
Dim VPT As String
Dim MAC As String
Dim RS As String
Dim SEEFREE As String
 
 
familia = Me.Texto163
pedido = Me.BF
control = 0
 
RS = Dir("\\serverproduccio\Factory\S\DAT\Final\" & pedido & ".dat")
BT = Dir("\\serverproduccio\Factory\BT\DAT\Final\" & pedido & ".dat")
RT = Dir("\\serverproduccio\Factory\RT\DAT\Final\" & pedido & ".dat")
VPT = Dir("\\serverproduccio\Factory\VPT\DAT\Final\" & pedido & ".dat")
MAC = Dir("\\serverproduccio\Factory\MAC\DAT\Final\" & pedido & ".dat")
SEEFREE = Dir("\\serverproduccio\Factory\SEEFREE\DAT\Final\" & pedido & ".dat")
 
If RS = "" Then control = 1 Else control = 0
If BT = "" Then control = 1 Else control = 0
If RT = "" Then control = 1 Else control = 0
If VPT = "" Then control = 1 Else control = 0
If MAC = "" Then control = 1 Else control = 0
If SEEFREE = "" Then control = 1 Else control = 0
 
 
If RS = "" And control = 1 Then MsgBox "RS EL FICHERO NO ESTA EN LA CARPETA FINAL", vbExclamation
If BT = "" And control = 1 Then MsgBox "BT EL FICHERO NO ESTA EN LA CARPETA FINAL", vbExclamation
If RT = "" And control = 1 Then MsgBox "RT EL FICHERO NO ESTA EN LA CARPETA FINAL", vbExclamation
If VPT = "" And control = 1 Then MsgBox "VPT EL FICHERO NO ESTA EN LA CARPETA FINAL", vbExclamation
If MAC = "" And control = 1 Then MsgBox "MAC EL FICHERO NO ESTA EN LA CARPETA FINAL", vbExclamation
If SEEFREE = "" And control = 1 Then MsgBox "SEEFREE EL FICHERO NO ESTA EN LA CARPETA FINAL", vbExclamation
 
End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

comprobar si existe un fichero en varias carpetas

Publicado por jose (806 intervenciones) el 20/10/2018 19:17:31
Hola Didac
No se muy bien que pretendes, pero me da que tratas de usar access de forma poco convencional , porque los pedidos los grabas en un fichero .dat cuando éstos han de estar guardados en las tablas de access y despues buscarlos e imprimirlos cuando quieras.

los pedidos iran en dos tablas
una que contiene el numero del pedido , los datos de los clientes o proveedores, la fecha y los totales del pedido (resumen)
otra que contiene las lineas de articyulos que van en el pedido, .(detalle)

No se si te he ayudado o te he confundido mas

un abrazo

jose manuel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar