Buenas, muchas gracias por tu repuesta hora voy a ver que honda si me sirve..
muchas gracias
saludos
muchas gracias
saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúIf IsNumeric(Text1) = False Or Val(Text1) < 1 Or Text1 = "" Then
MsgBox "INGRES UN CODIGO"
Text1 = ""
Text1.SetFocus
Else
Call abrir
x = "Select * from plan_de_cuentas where numero_cta like " & Val(Text1) & ""
apertura.Open x, conectar
If apertura.EOF = True And apertura.BOF = True Then
If Text2.Enabled = False Then
Text1 = ""
Text1.SetFocus
Else
End If
Else
Text1 = ""
End If
End If
Call cerrar
CitarNo puedo ver las imágenes :\ ni usando la url ..
Shell "notepad.exe" App.Path & \ archivo.txt \
Shell notepad.exe App.Path & \ archivo.txt \
Shell notepad.exe & App.Path & "\ archivo.txt \"