Necesito ayuda para solucionar el error en el código de programación de mi programa en Visual Basic
Hola, el error que tengo radica en esta parte del código,
Set Rec2 = New ADODB.Recordset
With Rec2
Set .ActiveConnection = Con
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Source = "select * from LEGALIZACIONES where LEGALIZACION = " & lblLegalizacionNo
.Open
End With
If Rec2.EOF Or Rec2.BOF Then
txtValorLegalizacion.Text = ""
Else
txtValorLegalizacion.Text = FormatCurrency(Rec2!VALORLEGALIZACION)
lblTotal2.Caption = FormatCurrency(Rec2!TOTAL)
End If
Y esto sucede al oprimir el botón guardar
Set Rec2 = New ADODB.Recordset
With Rec2
Set .ActiveConnection = Con
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Source = "select * from LEGALIZACIONES where LEGALIZACION = " & lblLegalizacionNo
.Open
End With
If Rec2.EOF Or Rec2.BOF Then
txtValorLegalizacion.Text = ""
Else
txtValorLegalizacion.Text = FormatCurrency(Rec2!VALORLEGALIZACION)
lblTotal2.Caption = FormatCurrency(Rec2!TOTAL)
End If
Y esto sucede al oprimir el botón guardar
1 Respuesta
Respuesta de Roberto Alvarado
1
Hola, el error aparece en,
Set Rec2 = New ADODB.Recordset
With Rec2
Set .ActiveConnection = Con
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Source = "select * from LEGALIZACIONES where LEGALIZACION = " & lblLegalizacionNo
.Open
End With
If Rec2.EOF Or Rec2.BOF Then
txtValorLegalizacion.Text = ""
Else
txtValorLegalizacion.Text = FormatCurrency(Rec2!VALORLEGALIZACION)
lblTotal2.Caption = FormatCurrency(Rec2!TOTAL)
End If
Set Rec2 = New ADODB.Recordset
With Rec2
Set .ActiveConnection = Con
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Source = "select * from LEGALIZACIONES where LEGALIZACION = " & lblLegalizacionNo
.Open
End With
If Rec2.EOF Or Rec2.BOF Then
txtValorLegalizacion.Text = ""
Else
txtValorLegalizacion.Text = FormatCurrency(Rec2!VALORLEGALIZACION)
lblTotal2.Caption = FormatCurrency(Rec2!TOTAL)
End If
¿Existe la tabla LEGALIZACIONES?
¿Existe el campo LEGALIZACIÓN en la mencionada tabla?
Considero que debes colocar : lblLegalizacionNo. Caption
¿Al fin no me dices cual es el mensaje de error?
¿Existe el campo LEGALIZACIÓN en la mencionada tabla?
Considero que debes colocar : lblLegalizacionNo. Caption
¿Al fin no me dices cual es el mensaje de error?
Muchas gracias Ralvaradot, pero ya pude solucionar el problemas, muchas gracias por tu interés, ya que cree una función Display2 para colocar esa parte del código y llamarla cuando se necesite. Muchas Gracias.
