Problem in VB

[Shailja]

Hi,

Dim objtmp As Control

Public Function OnLoad(ByVal frmobj1 As Form)
    For Each objtmp In frmobj1.Controls
        If TypeOf objtmp Is TextBox Then
          objtmp.Enabled = False   
        End If
    Next tmp
End Function

I have created this function in my project. But it doesnt work. What is wrong with the above code? Please tell me as soon as possible.

Thanks

[vijaydiwakar]

Hi,

Dim objtmp As Control

Public Function OnLoad(ByVal frmobj1 As Form)
For Each objtmp In frmobj1.Control s
If TypeOf objtmp Is TextBox Then
objtmp.Enabled = False
End If
Next tmp
End Function

I have created this function in my project. But it doesnt work. What is wrong with the above code? Please tell me as soon as possible.

Thanks

just one extra word
replace next tmp by next or next objtmp

[Shailja]

just one extra word
replace next tmp by next or next objtmp

Still its not working. Plz suggest me how to code it in other way?

[vijaydiwakar]

Still its not working. Plz suggest me how to code it in other way?

the code is write to call the function u have to write onload me this will solve the problem
or
put this code in form and call in formload evnt

Private Sub Form_Load()
LockTextBoxes
End Sub

Private Sub LockTextBoxes()
Dim ctrl As Control
For Each ctrl In Me
    If TypeOf ctrl Is TextBox Then ctrl.Enabled = False
Next
End Sub

[hariharanmca]

Still its not working. Plz suggest me how to code it in other way?

Dim objtmp as Control
Public Function OnLoad(ByVal frmobj1 As Form)
For Each objtmp In frmobj1
If TypeOf objtmp Is TextBox Then
objtmp.Enabled = False 
End If
Next 
End Function

Just Try this

[Shailja]

the code is write to call the function u have to write onload me this will solve the problem
or
put this code in form and call in formload evnt

Private Sub Form_Load()
LockTextBoxes
End Sub

Private Sub LockTextBoxes()
Dim ctrl As Control
For Each ctrl In Me
    If TypeOf ctrl Is TextBox Then ctrl.Enabled = False
Next
End Sub

See, I have two forms in my project
1) frmSales
2) frmConn

From frmSales form, I need to call procedure written in frmConn. Below is the procedure in frmConn.

Dim objctl As Control
Public Sub OnLoad(ByVal frmobj1 As Form)
    For Each objctl In frmobj1.Controls
        If TypeOf objctl Is TextBox Then
             objctl.Enabled = False
        End If
    Next
End Sub

Now from frmSales form I want to call this procedure. I have written following statment to call above procedure.

frmConn.OnLoad(Me)

When I run the form frmSales, Type Mismatch error is coming. What is the correct code to call procedure? What do i need to write to instead of Me.
Plz help me out.

[vijaydiwakar]

See, I have two forms in my project
1) frmSales
2) frmConn

From frmSales form, I need to call procedure written in frmConn. Below is the procedure in frmConn.

Dim objctl As Control
Public Sub OnLoad(ByVal frmobj1 As Form)
For Each objctl In frmobj1.Control s
If TypeOf objctl Is TextBox Then
objctl.Enabled = False
End If
Next
End Sub

Now from frmSales form I want to call this procedure. I have written following statment to call above procedure.

frmConn.OnLoad( Me)

When I run the form frmSales, Type Mismatch error is coming. What is the correct code to call procedure? What do i need to write to instead of Me.
Plz help me out.

See first of all the code is right so i'm not getting any error ok.
Secondly if u like to make such function then just make these function global i.e. place them in module as
in frmSales just call Onload me
put the code in module1

 
Public Sub OnLoad(ByVal frmobj1 As Form)
Dim objctl As Control
For Each objctl In frmobj1.Controls
If TypeOf objctl Is TextBox Then
objctl.Enabled = False
End If
Next
End Sub

this will generalise the procedure for any form
k.........

[sukeshchand]

Dear Friend Try this code.

Public Sub OnLoad(ByVal frmobj1 As Form)
Dim objctl As Control
For Each objctl In frmobj1.Controls
        If UCase(TypeName(objctl))="TEXTBOX" Then
                  objctl.Enabled = False
         End If
Next
End Sub

[Shailja]

Dear Friend Try this code.

Public Sub OnLoad(ByVal frmobj1 As Form)
Dim objctl As Control
For Each objctl In frmobj1.Controls
        If UCase(TypeName(objctl))="TEXTBOX" Then
                  objctl.Enabled = False
         End If
Next
End Sub

Thanks for the code but it doesnt work.

[vijaydiwakar]

Show thy code

[Shailja]

Dear Friend Try this code.

Public Sub OnLoad(ByVal frmobj1 As Form)
Dim objctl As Control
For Each objctl In frmobj1.Controls
        If UCase(TypeName(objctl))="TEXTBOX" Then
                  objctl.Enabled = False
         End If
Next
End Sub

An error is coming when I execute the statment
frmMain.OnLoad( Me)
I am writting this statment into other form and calling function written into frmMain. Whats wrong with above statment?

[vijaydiwakar]

The codes given are absolutly correct just show how and where did u write d code paste code

[Shailja]

The codes given are absolutly correct just show how and where did u write d code paste code

The statment I am writting on Form load event of frmSales. In this form i am calling function written in frmMain

Private Sub Form_Load()
frmMain.OnLoad (Me)
End Sub

[Farina]

code posted without explanation or comments.

[vijaydiwakar]

The statment I am writting on Form load event of frmSales. In this form i am calling function written in frmMain

Private Sub Form_Load()
frmMain.OnLoad (Me)
End Sub

which form is opened first ? are u showing frmsales modally?
now tell me the execution flow of thy programm