Cita:
Iniciado por soriketes es un textbox que realiza una accion numerica
If (Not Recordset.BOF) And (Not Recordset.EOF) Then
Text1 = Recordset("campo1")
Else
MsgBox "La tabla no contiene registros"
Dim pos As Integer
If (Not IsNumeric(Text5.Text)) Then
Text5.Text = 0
End If
Text6.Text = Format(CLng(CDbl(Text5.Text)) * 50 / 100, "##,##0.00")
pos = Text5.SelStart
If (CDbl(Text5.Text) / 1000 >= 1) Then
pos = pos + 1
End If
Text5.Text = Format(Text5.Text, "##,##0.00")
Text5.SelStart = pos
Dejame ver si te entendi, lo k kieres hacer es averiguar si la tabla esta vacia no?
bueno si es asi aki va el codigo:
Código:
With RS
If .Bof and :Eof Then
MsgBox "La Tabla Esta Vacia"
Else
Text1.Text = !Campo1
End If
End With