quiero limpiar los text...
Amigos...Mando a llamar informacion a los text y cuando presione un boton aque se borre esa informacion..
le di text1.text=""
no me funciono
le di text1.text=""
no me funciono
Hola Isela,
eso te debería funcionar Text1.Text = ""
Pon aki tu código de todas formas a ver que está pasando...
salu2
sdemingo
eso te debería funcionar Text1.Text = ""
Pon aki tu código de todas formas a ver que está pasando...
salu2
sdemingo
Private Sub nuevo_Click()
On Error GoTo manejador
Adodc2.Refresh
'Instruccion de adodc para agregar un registro
textos frmmantto, True
Text6.Text = ""
Text14.Text = ""
Text3.Text = ""
Text12.Text = ""
Text13.Text = ""
Text1.SetFocus
Adodc1.Recordset.AddNew
'llamamos al Modulo botones
botones frmmantto, False
opciones frmmantto, True
checks frmmantto, True
guardar.Enabled = True
cancelar.Enabled = True
bencarg.Enabled = True
cencarg.Enabled = True
operactual.Enabled = True
opermant.Enabled = True
cn.Open "inventario", "", ""
rst1.CursorType = adOpenDynamic
rst1.LockType = adLockOptimistic
rst1.Open "SELECT max(omnord) as orden from ordenesmntto", cn, , , adCmdText
While Not rst1.EOF
'MsgBox (rst1!orden)
enc = 1
norden = rst1!orden + 1
Text3.Text = norden
rst1.MoveNext
Wend
If enc <> 1 Then
norden = 1
Text3.Text = norden
End If
'If rst1.EOF Then
'orden = 1
'Else
'oredenesmntto = rst1!omnord + 1
'Text3.Text = orden
'End If
Set rst1 = Nothing
Set cn = Nothing
Exit Sub
manejador:
Set rst1 = Nothing
Set cn = Nothing
MsgBox (Err.Description)
End Sub
On Error GoTo manejador
Adodc2.Refresh
'Instruccion de adodc para agregar un registro
textos frmmantto, True
Text6.Text = ""
Text14.Text = ""
Text3.Text = ""
Text12.Text = ""
Text13.Text = ""
Text1.SetFocus
Adodc1.Recordset.AddNew
'llamamos al Modulo botones
botones frmmantto, False
opciones frmmantto, True
checks frmmantto, True
guardar.Enabled = True
cancelar.Enabled = True
bencarg.Enabled = True
cencarg.Enabled = True
operactual.Enabled = True
opermant.Enabled = True
cn.Open "inventario", "", ""
rst1.CursorType = adOpenDynamic
rst1.LockType = adLockOptimistic
rst1.Open "SELECT max(omnord) as orden from ordenesmntto", cn, , , adCmdText
While Not rst1.EOF
'MsgBox (rst1!orden)
enc = 1
norden = rst1!orden + 1
Text3.Text = norden
rst1.MoveNext
Wend
If enc <> 1 Then
norden = 1
Text3.Text = norden
End If
'If rst1.EOF Then
'orden = 1
'Else
'oredenesmntto = rst1!omnord + 1
'Text3.Text = orden
'End If
Set rst1 = Nothing
Set cn = Nothing
Exit Sub
manejador:
Set rst1 = Nothing
Set cn = Nothing
MsgBox (Err.Description)
End Sub
mmm, supongo que estás en el mismo formulario donde tienes los text ¿no?
Prueba a hacerlo enteponiendo el nombre del formulario donde están los text, por ejemplo:
Form2.Text6.Text = ""
Salu2
sdemingo
Prueba a hacerlo enteponiendo el nombre del formulario donde están los text, por ejemplo:
Form2.Text6.Text = ""
Salu2
sdemingo