Copiar dato
Publicado por Patricio (47 intervenciones) el 20/05/2010 03:03:56
Estimados
Tengo la siguiente aplicaciòn en el form1 y necesito que el dato del text2 se copie en el form2 en el textbox llamado txt_codigo, quiero que esto ocurra cuando le digo Yes al Msgbox ("desea imprimir etiquetas")
Favor si me pueden decir como lo hago
desde ya gracias
Private Sub Command1_Click()
cod = Val(Text2)
If codigo > 0 Then
With tabla
.AddNew
!codigo = Text2
!Orden = Text7
!Fecha = DTPicker1
!Tipo = Combo1
!Documento = Text6
!Proveedor = Text1
!Nombre = Text3
!Unidad = Text4
!Cantidad = Text5
.Update
MsgBox "Datos Almacenados", vbInformation, "AVISO"
If MsgBox("Desea imprimir etiquetas?", vbYesNo + vbQuestion, "Consulta") = vbYes Then
Unload Form1
Form11.Show
End If
End With
Else
MsgBox "Debe agregar un codigo para iniciar", vbCritical, "CUIDADO"
Text2.SetFocus
End If
End Sub
Tengo la siguiente aplicaciòn en el form1 y necesito que el dato del text2 se copie en el form2 en el textbox llamado txt_codigo, quiero que esto ocurra cuando le digo Yes al Msgbox ("desea imprimir etiquetas")
Favor si me pueden decir como lo hago
desde ya gracias
Private Sub Command1_Click()
cod = Val(Text2)
If codigo > 0 Then
With tabla
.AddNew
!codigo = Text2
!Orden = Text7
!Fecha = DTPicker1
!Tipo = Combo1
!Documento = Text6
!Proveedor = Text1
!Nombre = Text3
!Unidad = Text4
!Cantidad = Text5
.Update
MsgBox "Datos Almacenados", vbInformation, "AVISO"
If MsgBox("Desea imprimir etiquetas?", vbYesNo + vbQuestion, "Consulta") = vbYes Then
Unload Form1
Form11.Show
End If
End With
Else
MsgBox "Debe agregar un codigo para iniciar", vbCritical, "CUIDADO"
Text2.SetFocus
End If
End Sub
Valora esta pregunta


0