Codigo visual
On Error GoTo ema
Dim Aux As Recordset
Set Aux = Datos.OpenRecordset("select * from tbl_facturas_digital where str_factura = " & Text1.Text & "")Text2.Text = Aux!str_ciudad
Text3.Text = Aux!str_fecha
Text4.Text = Aux!str_cliente
Text5.Text = Aux!str_nit
Text6.Text = Aux!str_direccion
Text7.Text = Aux!str_tipo_pagoText8.Text = Aux!str_cantidad1
Text9.Text = Aux!str_descripcion1
Text10.Text = Aux!str_valor_u1
Text11.Text = Aux!str_valor_t1
Text15.Text = Aux!str_cantidad2
Text14.Text =Aux!str_descripcion2
Text13.Text = Aux!str_valor_u2
Text12.Text = Aux!str_valor_t2
Text19.Text = Aux!str_cantidad3
Text18.Text = Aux!str_descripcion3
Text17.Text =Aux!str_valor_u3
Text16.Text = Aux!str_valor_t3
Text23.Text = Aux!str_cantidad4
Text22.Text = Aux!str_descripcion4
Text21.Text = Aux!str_valor_u4
Text20.Text = Aux!str_valor_t4Text27.Text = Aux!str_cantidad5
Text26.Text = Aux!str_descripcion5
Text25.Text = Aux!str_valor_u5
Text24.Text = Aux!str_valor_t5
Text31.Text = Aux!str_cantidad6
Text30.Text= Aux!str_descripcion6
Text29.Text = Aux!str_valor_u6
Text28.Text = Aux!str_valor_t6
Text35.Text = Aux!str_cantidad7
Text34.Text = Aux!str_descripcion7
Text33.Text =Aux!str_valor_u7
Text32.Text = Aux!str_valor_t7
Text39.Text = Aux!str_cantidad8
Text38.Text = Aux!str_descripcion8
Text37.Text = Aux!str_valor_u8
Text36.Text = Aux!str_valor_t8Text43.Text = Aux!str_cantidad9
Text42.Text = Aux!str_descripcion9
Text41.Text = Aux!str_valor_u9
Text40.Text = Aux!str_valor_t9
Text44.Text = Aux!str_subtotalExit Sub
ema:
MsgBox Err.Description
End Sub
Private Sub Label13_Click()
Form2.Label8.Caption = Text2.Text & " - " & Text3.Text
Form2.Label10.Caption = Text4.Text...
Regístrate para leer el documento completo.