Numero de facturación
Buenas mi pregunta es la siguiente: realice una pequeña aplicación donde se elboran unas facturas cuya numeración me la da en esta forma: 1 - 2- 3- 4 etc y la necesito de esta manera 0001 - 0002 - 0003 etc me podrían ayudar al respecto, este es mi código:
Private Sub Timer1_Timer()
Dim criterio As String
criterio = "XX ='" & Text19 & "'"
Data4.Recordset.Edit
Data4.Recordset.XX = Text1.Text
Text18.Text = Data4.Recordset.CONTROL
Data4.Recordset.Update
Text18.Text = Val(Text18.Text) + 1
Timer1.Enabled = False
End Sub
Pero no me lo hace...
Private Sub Timer1_Timer()
Dim criterio As String
criterio = "XX ='" & Text19 & "'"
Data4.Recordset.Edit
Data4.Recordset.XX = Text1.Text
Text18.Text = Data4.Recordset.CONTROL
Data4.Recordset.Update
Text18.Text = Val(Text18.Text) + 1
Timer1.Enabled = False
End Sub
Pero no me lo hace...
1 Respuesta
Respuesta de jneutron
1
Creo que text18 es el num de factura
Bueno de ser así lo que tendrías que hacer es lo siguiente poner el valor en una variable en lugar de directamente al textbox incrementas en uno y después lo despligas así
Private Sub Timer1_Timer()
Dim criterio As String
criterio = "XX ='" & Text19 & "'"
Data4.Recordset.Edit
Data4.Recordset.XX = Text1.Text
Text18.Text = Data4.Recordset.Control
Data4.Recordset.Update
Text18.Text = Val(Text18.Text) + 1
Text18.Text = "000" & textt18.Text
Timer1.Enabled = False
End Sub
O si puedes mandarme el archivo yo te ayudo a corregirlo
Bueno de ser así lo que tendrías que hacer es lo siguiente poner el valor en una variable en lugar de directamente al textbox incrementas en uno y después lo despligas así
Private Sub Timer1_Timer()
Dim criterio As String
criterio = "XX ='" & Text19 & "'"
Data4.Recordset.Edit
Data4.Recordset.XX = Text1.Text
Text18.Text = Data4.Recordset.Control
Data4.Recordset.Update
Text18.Text = Val(Text18.Text) + 1
Text18.Text = "000" & textt18.Text
Timer1.Enabled = False
End Sub
O si puedes mandarme el archivo yo te ayudo a corregirlo
