O FORM POSSUI CERTO OBJETO????

CAJU 22/04/2004 14:34:07
#21947 Resposta escolhida

if not form.controls.count = 0 then mgbox "possui controles"

para saber se exite textbox:

Dim Ctl As Control
For Each Ctl In Me.Controls
If TypeOf Ctl Is TextBox Then MsgBox "existe"
Next

CAJU 22/04/2004 15:10:35
#21974

Public Function fExiste() As Boolean

On Error GoTo Erro_fExiste


Dim clt As Control
For Each clt In Screen.ActiveForm
If TypeOf clt Is Data Then
MsgBox "existe"
If clt.Enabled = True Then MsgBox "abilitado"
End If
Next

Exit Function

Erro_fExiste:

fExiste = False

End Function