none
completar codigo access RRS feed

  • Pregunta

  • Buenas noches grupo!!

    Tengo el siguiente codigo para leer y crearme un nuevo fichero estructurado a partir de otro fichero que genero desde una aplicación distinta de access. El problema que tengo es que cuando el valor del campo "Modpor" =Auto, el sistema crea automaticamente otro registro igual que el anterior, con dos variaciones (solo se dan estas dos variantes). Si lo crea a la misma hora, minuto y segundo (campo Hora), el valor del campo N_Con, vale 02 (01 es el regisrtro bueno). Si crea el nuevo registro con un segundo de diferencia el valor del campo N_Con es 01. Yo no quiero pasar al nuevo fichero estos registros que crea el solo. ¿Como puedo modificar el programa para evitarlo?

    Private Sub Comando0_Click()
      Open "l:\modif.txt" For Input As #1
      Open "l:\modif_ok.txt" For Output As #2
       Do While Not EOF(1)    
          Line Input #1, a$      
          Select Case Left$(a$, 4)      
          Case "Mod."
            N_Reg = 1
          Case "Fech"
            N_Reg = 2
          Case "Tmpo"
            N_Reg = 3
          Case "NºCo"
            N_Reg = 4
           End Select      
          Select Case N_Reg
          Case 1
            If Left$(a$, 1) = " " Then        
             Modpor = Mid$(a$, 2, 7) & Space(7 - Len(Mid$(a$, 2, 7)))
            End If
          Case 2
            If Left$(a$, 1) = " " Then
             Fecha = Mid$(a$, 2, 10)
            End If
          Case 3
            If Left$(a$, 1) = " " Then
             Hora = Mid$(a$, 2, 8)
            End If
          Case 4
            If Left$(a$, 1) = " " Then
             N_Con = Mid$(a$, 2, 4)
            End If
          
             Print #2, Modpor; Fecha; Hora; N_Con
             Modpor = ""
             Fecha = ""
             Hora = ""       
             N_Con="" 	       
          End Select
       Loop  
      Close #1, #2
      MsgBox "PROCESO TERMINADO", vbInformation
      
    End Sub
    
    Gracias
    miércoles, 25 de agosto de 2010 19:28