Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Gosub? Is it possible?

Status
Not open for further replies.
Rmck87

Rmck87

Programmer
Jul 14, 2003
182
US
I was wondering if there was a way to like, Gosub. Because i have three private subs, but they are all pretty much the same and what i want to do is go to a private sub to run what i want done without having to write the same code three times.

Private Sub Form_Load()

If sortbybox = 1 Then
Combo48 = ""
Combo50 = 0
Combo52 = 0
Combo60 = 0
Combo62 = 0
Me!Combo50.Enabled = False
Me!Combo52.Enabled = True
Me!Combo60.Enabled = True
Me!Combo62.Enabled = True
ElseIf sortbybox = 2 Then
Combo48 = 0
Combo50 = ""
Combo52 = 0
Combo60 = 0
Combo62 = 0
Me!Combo48.Enabled = True
Me!Combo50.Enabled = False
Me!Combo52.Enabled = True
Me!Combo60.Enabled = True
Me!Combo62.Enabled = True
ElseIf sortbybox = 3 Then
Combo48 = 0
Combo50 = 0
Combo52 = ""
Combo60 = 0
Combo62 = 0
Me!Combo48.Enabled = True
Me!Combo50.Enabled = True
Me!Combo52.Enabled = False
Me!Combo60.Enabled = True
Me!Combo62.Enabled = True
Else
Combo48 = 0
Combo50 = 0
Combo52 = 0
Combo60 = ""
Combo62 = ""
Me!Combo48.Enabled = True
Me!Combo50.Enabled = True
Me!Combo52.Enabled = True
Me!Combo60.Enabled = False
Me!Combo62.Enabled = False
End If

End Sub

Private Sub sortbybox_AfterUpdate()

If sortbybox = 1 Then
Combo48 = ""
Combo50 = 0
Combo52 = 0
Combo60 = 0
Combo62 = 0
Me!Combo48.Enabled = False
Me!Combo50.Enabled = True
Me!Combo52.Enabled = True
Me!Combo60.Enabled = True
Me!Combo62.Enabled = True
ElseIf sortbybox = 2 Then
Combo48 = 0
Combo50 = ""
Combo52 = 0
Combo60 = 0
Combo62 = 0
Me!Combo48.Enabled = True
Me!Combo50.Enabled = False
Me!Combo52.Enabled = True
Me!Combo60.Enabled = True
Me!Combo62.Enabled = True
ElseIf sortbybox = 3 Then
Combo48 = 0
Combo50 = 0
Combo52 = ""
Combo60 = 0
Combo62 = 0
Me!Combo48.Enabled = True
Me!Combo50.Enabled = True
Me!Combo52.Enabled = False
Me!Combo60.Enabled = True
Me!Combo62.Enabled = True
Else
Combo48 = 0
Combo50 = 0
Combo52 = 0
Combo60 = ""
Combo62 = ""
Me!Combo48.Enabled = True
Me!Combo50.Enabled = True
Me!Combo52.Enabled = True
Me!Combo60.Enabled = False
Me!Combo62.Enabled = False
End If

End Sub

Private Sub sortbybox_BeforeUpdate(Cancel As Integer)

If sortbybox = 1 Then
Combo48 = ""
Combo50 = 0
Combo52 = 0
Combo60 = 0
Combo62 = 0
Me!Combo48.Enabled = False
Me!Combo50.Enabled = True
Me!Combo52.Enabled = True
Me!Combo60.Enabled = True
Me!Combo62.Enabled = True
ElseIf sortbybox = 2 Then
Combo48 = 0
Combo50 = ""
Combo52 = 0
Combo60 = 0
Combo62 = 0
Me!Combo48.Enabled = True
Me!Combo50.Enabled = False
Me!Combo52.Enabled = True
Me!Combo60.Enabled = True
Me!Combo62.Enabled = True
ElseIf sortbybox = 3 Then
Combo48 = 0
Combo50 = 0
Combo52 = ""
Combo60 = 0
Combo62 = 0
Me!Combo48.Enabled = True
Me!Combo50.Enabled = True
Me!Combo52.Enabled = False
Me!Combo60.Enabled = True
Me!Combo62.Enabled = True
Else
Combo48 = 0
Combo50 = 0
Combo52 = 0
Combo60 = ""
Combo62 = ""
Me!Combo48.Enabled = True
Me!Combo50.Enabled = True
Me!Combo52.Enabled = True
Me!Combo60.Enabled = False
Me!Combo62.Enabled = False
End If
End Sub


-----------------------------------------------------------


If i didnt explain this well enough, please let me know. I'm not quite sure how to explain it though because im a noob to VBA.
 
Sort by date Sort by votes
Hi Rmck87,

Just put your code in a new Sub and call it. I haven't checked out your code in detail so I may have missed some differences:

Code: 
Private Sub Form_Load()
Call NewSub
End Sub

Private Sub sortbybox_AfterUpdate()
Call NewSub
End Sub

Private Sub sortbybox_BeforeUpdate(Cancel As Integer)
Call NewSub
End Sub


Private Sub NewSub()
    If sortbybox = 1 Then
        Combo48 = ""
        Combo50 = 0
        Combo52 = 0
        Combo60 = 0
        Combo62 = 0
        Me!Combo48.Enabled = False
        Me!Combo50.Enabled = True
        Me!Combo52.Enabled = True
        Me!Combo60.Enabled = True
        Me!Combo62.Enabled = True
    ElseIf sortbybox = 2 Then
        Combo48 = 0
        Combo50 = ""
        Combo52 = 0
        Combo60 = 0
        Combo62 = 0
        Me!Combo48.Enabled = True
        Me!Combo50.Enabled = False
        Me!Combo52.Enabled = True
        Me!Combo60.Enabled = True
        Me!Combo62.Enabled = True
    ElseIf sortbybox = 3 Then
        Combo48 = 0
        Combo50 = 0
        Combo52 = ""
        Combo60 = 0
        Combo62 = 0
        Me!Combo48.Enabled = True
        Me!Combo50.Enabled = True
        Me!Combo52.Enabled = False
        Me!Combo60.Enabled = True
        Me!Combo62.Enabled = True
    Else
        Combo48 = 0
        Combo50 = 0
        Combo52 = 0
        Combo60 = ""
        Combo62 = ""
        Me!Combo48.Enabled = True
        Me!Combo50.Enabled = True
        Me!Combo52.Enabled = True
        Me!Combo60.Enabled = False
        Me!Combo62.Enabled = False
    End If
End Sub

Enjoy,
Tony

 
Upvote 0 Downvote
Usually, if a Sub doesn't require parameters, you can call it just by using its name (no quotes and no parentheses):
Code: 
Private Sub Form_Load()
   ResetAll
End Sub

Private Sub sortbybox_AfterUpdate()
   ResetAll
End Sub

Private Sub sortbybox_BeforeUpdate(Cancel As Integer)
   ResetAll
End Sub

Sub ResetAll()
	‘ Do stuff. . . objects will need to be explicitly referenced using their form name or sheet name . . .
End Sub
Hope that helps!


VBAjedi [swords]
 
Upvote 0 Downvote
Thanks Guys! It worked and thats exactly what I was looking for!

-Ryan
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

morechocolate
  • Locked
  • Question
run-tune error 3704 operation is not allowed when the object is codes: I don't think so.
Replies
7
Views
1K
morechocolate
morechocolate
remeng
  • Locked
  • Helpful tip
Microsoft Office 365 Word Macro Causing a Project is unviewable error
Replies
1
Views
1K
dhookom
dhookom
mohamadmh
  • Locked
  • Question
Improve speed of For i Loop ? Is is possible to use arrays
Replies
9
Views
405
Andrzejek
Andrzejek
dgillz
  • Locked
  • Question
Back coloring an entire row if a duplicate is found in a dynamic range 1
Replies
18
Views
595
SkipVought
S
Katto
  • Locked
  • Question
VBA create link to a module without running it 1
Replies
5
Views
229
SkipVought
S

Part and Inventory Search

Sponsor

Back
Top