Visual Basic - data

Holas holas

Alguno sabe que funcion o evento se utiliza para que cuando se carge el formulario con los textbox
no me permita tocar los datos que trajo de la base sino hasta que yo clikee un boton modificar por ej que esten bloqueados.

Gracias
Que tengan buen dia

mira hace algo asi:
cuando cargas el recordset de la bd
busql = "select apellido,nombre,direccion,tel,saldopen,interes from cliente where idcliente=" & txtcod.Text & ""
rs13.Open busql, cn, adOpenKeyset, adLockOptimistic
If rs13.RecordCount < 1 Then
MsgBox "El Cliente No Existe", vbOKOnly, "Información"
'txtcod.SetFocus
MSFlexGrid1.Clear
configurar_grilla
GoTo sale:
End If
carga ' llamas a una funcion llamada carga
private sub carga()
txtapyno.Text = rs13(0)
'txtnom.Text = rs13(1)
txtdire.Text = rs13(2)
txttele.Text = rs13(3)
end sub
fijate si lo podes meter a los text en un frame y al frame lo pones enabled=false por defecto despues en el boton modificar pones
Private Sub cmdmodifica_Click()
frame.enable=true
End Sub
cualquier cosa avisa exitos

where idcliente=" & txtcod.Text & ""
Se supone que idcliente es un campo numérico (incrementable) le sobran comisas a la consulta.

rs13 no sabemos lo que es ya que no esta declarado previamente.

del MsFlexgrid1 nadie lo escribió ¿a que viene eso?

configurar_grilla tampoco sabemos lo que es (suponemos que una procedure o una function pero como tampoco aparece en tu codigo, solo nos lo suponemos)

Goto sale: ¿donde llamas esa etiqueta???

y cómo va ha salir del procedure u function si nunca le pones un exit...????

"y cómo va ha salir del procedure u function si nunca le pones un exit...???? "

¿Es forzoso poner Exit Sub? Por si acaso no lo sabes, "se sale" de un Sub o Function al llegar al final del mismo (al encontrarse el End Sub o End Function).

Si acaso siempre has usado Exit Sub/Function, has codificado de más.
"Exit Sub" o "Exit Function" son necesarios cuando quieres o necesitas salir antes de llegar al final (obviamente, de acuerdo a alguna condición).

Fede estoy trabajando con data pero gracias igual

Saludos.

En form load:

Dim I ' Declara la variable.
For I = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(I) Is TextBox Then
Me.Controls(I).Locked= True
End If
Next I

En el boton de desbloquear:

Dim I ' Declara la variable.
For I = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(I) Is TextBox Then
Me.Controls(I).Locked= False
End If
Next I

Grande fer, sos un groso.

Muchas Gracias. Saludos