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 derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

open a global form in vb (MS Project 2010)

Status
Not open for further replies.
remeng

remeng

Technical User
Joined
Jul 27, 2006
Messages
526
Location
US
Hi all;

I am trying to open a global form from the quick launch ribbon. I have created the form named "calculate". I have written the script to open the form up, however, when I execute the form, the Task Information screen opens instead of the form I am calling. I have changed the form name to see if there are any conflicts, but the same thing happens. I have tried the oncmd.openform command, but nothing happens except an error. Here is the current code.

Code: 
Public Sub open_form()

form("calculate")

End Sub


The form is located under Global.MPT

Thank you for the assist.
 
Sort by date Sort by votes
>Project 2010 does not support creating or using custom forms

It doesn't even support them if you loaded an older version of Project that has existing custom forms.

So I can only assume that you must actually be referring to a VBA User Form (a somewhat different beast) - and these are not shown in the same way as the old custom forms. e.g.

Load calculate
calculate.Show
 
Upvote 0 Downvote
HI strongm,

thanks! That was exactly it.

I knew it was something really simple. Now however, when I click the close button with the Unload calculate command that previously worked, it doesn't. What is causing the new error?

Thanks,

Mike
 
Upvote 0 Downvote
Dunno ... not without actually seeing the code ...
 
Upvote 0 Downvote
Here is all the code:

Code: 
Sub open_calculate()
    
   Load calculate
   calculate.Show
    
    
End Sub

Code: 
Private Sub calculate_Click()


'_________________________

' Days to Hours (8 hours = 1 day)


If day_box1 = "" Then

hour_box1 = ""

ElseIf IsNumeric(day_box1) = True Then

        If day_box1 > 0 Then
        
        hour_box1 = Format(day_box1 * 8, "0.000")
        
        
        ElseIf day_box1 = 0 Then
        
        hour_box1 = 0
        
        
        ElseIf day_box1 < 0 Then
        
        hour_box1 = "Value < 0"

        End If
ElseIf IsNumeric(day_box1) = False Then

End If

'_________________________

' Hours to Days (8 hours = 1 day)


If hour_box2 = "" Then

day_box2 = ""

ElseIf IsNumeric(hour_box2) = True Then


        If hour_box2 > 0 Then
        
        day_box2 = Format(hour_box2 / 8, "0.000")
        
        
        ElseIf hour_box2 = 0 Then
        
        day_box2 = 0
        
        
        ElseIf hour_box2 < 0 Then
        
        day_box2 = "Value < 0"
        
        End If

ElseIf IsNumeric(hour_box2) = False Then

End If

'_________________________

' Days to % Hours (8 hours = 1 day)


If day_percent_enter = "" Then

percent_hour_return = ""

ElseIf IsNumeric(day_percent_enter) = True Then

        If day_percent_enter > 0 Then
        
        percent_hour_return = Format((day_percent_enter) * 100, "0")
        
        ElseIf day_percent_enter < 0 Then
        
        percent_hour_return = "Value < 0"
        
        End If

ElseIf IsNumeric(day_percent_enter) = False Then

End If

 
'_________________________

' Hours to % days (8 hours = 1 day)


If hour_percent_enter = "" Then

percent_day_return = ""

ElseIf IsNumeric(hour_percent_enter) = True Then

        If hour_percent_enter > 0 Then
        
        percent_day_return = Format((hour_percent_enter) / 8 * 100, "0")
 
        ElseIf hour_percent_enter < 0 Then
        
        percent_day_return = "Value < 0"
        
        End If

ElseIf IsNumeric(hou_percent_enter) = False Then

End If

'_____________________________________________________________________
'_____________________________________________________________________

'Days to hours (24 hours = 1 day)


If day_box1_24 = "" Then

hour_box1_24 = ""

ElseIf IsNumeric(day_box1_24) = True Then

        If day_box1_24 > 0 Then
        
        hour_box1_24 = Format(day_box1_24 * 24, "0.000")
        
        
        ElseIf day_box1_24 = 0 Then
        
        hour_box1_24 = 0
        
        
        ElseIf day_box1_24 < 0 Then
        
        hour_box1_24 = "Value < 0"
        
        End If

ElseIf IsNumeric(day_box1_24) = False Then

End If

'_________________________

' Hours to Days (24 hours = 1 day)


If hour_box2_24 = "" Then

day_box2_24 = ""

ElseIf IsNumeric(hour_box2_24) = True Then

        If hour_box2_24 > 0 Then
        
        day_box2_24 = Format(hour_box2_24 / 24, "0.000")
        
        
        ElseIf hour_box2_24 = 0 Then
        
        day_box2_24 = 0
        
        
        ElseIf hour_box2_24 < 0 Then
        
        day_box2_24 = "Value < 0"
                
        End If

ElseIf IsNumeric(day_box2_24) = False Then

End If

'_________________________

' Days to % Hours (24 hours = 1 day)


If day_percent_enter_24 = "" Then

hour_percent_return_24 = ""

ElseIf IsNumeric(day_percent_enter_24) = True Then

        If day_percent_enter_24 > 0 Then
        
        hour_percent_return_24 = Format((day_percent_enter_24) * 100, "0")
        
        ElseIf day_percent_enter_24 < 0 Then
        
        hour_percent_return_24 = "Value < 0"
        
        End If
 
 ElseIf IsNumeric(day_percent_enter_24) = False Then
 
 End If
 
'_________________________

' Hours to % days (24 hours = 1 day)


If hour_percent_enter_24 = "" Then

day_percent_return_24 = ""

ElseIf IsNumeric(hour_percent_enter_24) = True Then

        If hour_percent_enter_24 > 0 Then
        
        day_percent_return_24 = Format((hour_percent_enter_24) / 24 * 100, "0")
        
        ElseIf hour_percent_enter_24 < 0 Then
        
        day_percent_return_24 = "Value < 0"
        
        End If

ElseIf IsNumeric(hour_percent_enter_24) = False Then

End If

End Sub

Code: 
Private Sub close_button_Click()

'closes the calculator

Unload calculate



End Sub

Code: 
Private Sub reset_button_Click()

'Reset all fields

day_box1 = ""
hour_box1 = ""
hour_box2 = ""
day_box2 = ""
day_percent_enter = ""
percent_hour_return = ""
hour_percent_enter = ""
percent_day_return = ""
day_box1_24 = ""
hour_box1_24 = ""
hour_box2_24 = ""
day_box2_24 = ""
day_percent_enter_24 = ""
hour_percent_enter_24 = ""
day_percent_return_24 = ""
hour_percent_return_24 = ""


End Sub

 
Upvote 0 Downvote
You have a Form named "calculate", so I understand you can do:
[tt]
Load calculate
calculate.Show
[/tt]
What I do not understand is: "when I click the close button with the Unload calculate command that previously worked, it doesn't. What is causing the new error?"

In your code when you state:
[tt]
Unload calculate
[/tt]
You just unloading your Form "calculate". That's it.
What do you want to happen when [tt]Unload calculate[/tt] line of code is run?

Have fun.

---- Andy
 
Upvote 0 Downvote
Before I used the Load command, when I use the close button, the Unload command would actually close the form which is what I want to happen. Is there a second command that I need to add that will close the form before it unloads?
 
Upvote 0 Downvote
Well, in theory Unload should indeed hide the form.
 
Upvote 0 Downvote
...Hide the Form and Unload it, unless you have any code after the Unload, which may reload the Form again just to excecute the lines of code after Unload.

"the Unload command would actually close the form which is what I want to happen"
So it is NOT what happens now? What does it do?

Have fun.

---- Andy
 
Upvote 0 Downvote
Hi Andy,

I get a run time error 361 "Can't load or unload this object". When I go to debug,
Code: 
Unload calculate
is the highlighted code.

Code: 
Private Sub close_button_Click()

'closes the calculator

Unload calculate



End Sub

Thanks,

Mike
 
Upvote 0 Downvote
I figured it out. The code solution is:

Code: 
Unload Me
 
Upvote 0 Downvote
>Private Sub [red]calculate[/red]_Click()

You have a control, a button, on the form that has the same name as the form. Unload is trying to unload it ... hence the error message.
 
Upvote 0 Downvote
And that's why I always use prefixes: frmSomeForm for Form, cmdButton for command buttons, optMyOption for option buttons, lblABC for labels, etc.

Have fun.

---- Andy
 
Upvote 0 Downvote
Thanks Andy for the great naming convention tip. I made the change just so that later on I don't forget it. I was wondering, is there a way to clean this code up or should I just leave it as is?

Code: 
Private Sub reset_button_Click()

'Reset all fields

day_box1 = ""
hour_box1 = ""
hour_box2 = ""
day_box2 = ""
day_percent_enter = ""
percent_hour_return = ""
hour_percent_enter = ""
percent_day_return = ""
day_box1_24 = ""
hour_box1_24 = ""
hour_box2_24 = ""
day_box2_24 = ""
day_percent_enter_24 = ""
hour_percent_enter_24 = ""
day_percent_return_24 = ""
hour_percent_return_24 = ""


End Sub
 
Upvote 0 Downvote
Assuming that you want to reset all the text controls on the form ...

Code: 
[blue]Private Sub Reset_Click()
    Dim myControl As Control
    For Each myControl In Controls
        If TypeName(myControl) = "TextBox" Then myControl.Text = ""
    Next
End Sub[/blue]
 
Upvote 0 Downvote
I do what all the text boxes to be reset. Thank you strongm. That worked. I have one more question. I noticed that when I open the macro via a button on the ribbon and I am just using a local file it works and launches the macro. When I am connected to a EPM server the ribbon button does not work. The macro is saved in the Global.MPT location. I also noticed that the macro name also changes to Global.MPT!open_calculator from open_calculator (local and not connected to the server). Is there a way to make the ribbon button open the macro while either local or connected to the server?
 
Upvote 0 Downvote
Afraid I'm not familiar enough with Project and it's interaction with EPM to be able to comment
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

Andrzejek
  • Locked
  • Question Question
Open Word as ReadOnly
Replies
6
Views
1K
Chriss Miller
C
remeng
  • Locked
  • Helpful tip Helpful tip
Microsoft Office 365 Word Macro Causing a Project is unviewable error
Replies
1
Views
2K
dhookom
dhookom
remeng
  • Locked
  • Solved
Combine two working macros into one for MS Word
Replies
7
Views
2K
strongm
strongm
sal21
  • Locked
  • Question Question
scrping in listbox in a web page
Replies
0
Views
750
sal21
sal21
Submeg
  • Question Question
Selecting shapes based on its name and then arranging them in a circle
Replies
2
Views
444
Andrzejek
Andrzejek

Part and Inventory Search

Sponsor

Back
Top