[Ryan_esx7]

[size=4][font=Times New Roman]
Hi
i need help
in the visual basic you get with windows office professional 2003
i have created a spreadsheet (excel project) i have many user forms
i would like one user form to take me to another and i would like on button on there to be hidden when it appears, how do i do this??

Awaiting help
Thanx in advance!

[Advertisements]

you can set the visibility property on that button to be off untill a certain action happens...

generally under the option expllicit portion of the code on that form you would do something like

cmd1.hide


then say....if they have this checkbox checked the allow the button

if chck1 = yes then cmd1.show


my syntax is probably horribly wrong...but...this is the general idea

i

[dsenette]

you can set the visibility property on that button to be off untill a certain action happens...

generally under the option expllicit portion of the code on that form you would do something like

cmd1.hide


then say....if they have this checkbox checked the allow the button

if chck1 = yes then cmd1.show


my syntax is probably horribly wrong...but...this is the general idea

i

[Ryan_esx7]

Hey, thanx for your reply

Got more info on the problem, i want to click a button on one user form, it takes me to another but i have 4 buttons on that userform and i only want 3 to be displayed!

i have tried lots of editing the code on the bit for the 'actual first button' i click, but i cannot seem to get that button to go away when the next user from appears

HELP!!

[dsenette]

why do you have 4 buttons if you only need 3?

[Ryan_esx7]

here is a better description of the problem, with print-screens to help explain it!!

hope someone knows

LOL

Ryan

Attached Thumbnails

• 

[dsenette]

ok gotcha...


you need to have the final confirm button set to invisible by default....usually when the page loads

so up at the top you would do finalconfirm.cmd.hide

then in the code for the confirm button... put finalconfirm.cmd.show...that way that button is invisble untill you press the confirm button

[Ryan_esx7]

thanx but it didn't work
here was the error it gave me

Attached Thumbnails

• 

[dsenette]

don't put it on the button for new customer that form has no idea what button you're talking about

you need to put taht at the top of the code for the second form...underneath the option explicit..

[Ryan_esx7]

hi soz to be an idiot

but i'm new at this, could u take me through it step by step?

Thanks for you patience

Ryan

[dsenette]

could you copy and paste the code from the second form into y our next post...i'll point out where to put the stuff

[Ryan_esx7]

Private Sub Cancel_Button_Click()

UserForm_New_Customer.Hide
UserForm_Customer.Show

End Sub

Private Sub Clear_button_Click()
UserForm_New_Customer("TextBox_Surname").Text = ""
UserForm_New_Customer("TextBox_Forename").Text = ""
UserForm_New_Customer("TextBox_Address1").Text = ""
UserForm_New_Customer("TextBox_Address2").Text = ""
UserForm_New_Customer("TextBox_PostCode").Text = ""
UserForm_New_Customer("TextBox_City").Text = ""
UserForm_New_Customer("TextBox_Telephone").Text = ""


End Sub

Private Sub CommandButton1_Click()

End Sub

Private Sub Confirm_button_Click()

Final_Confirm_Button2.Hide

Sheets("Customer ID's").Select

Sheets("Customer ID's").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown

Range("A5").Select
ActiveCell.FormulaR1C1 = "=R[1]C+1"
Comment1 = "Your customer identity number is "
TextBox_ID = Comment1 & Range("A5").Value


Range("B5").Value = TextBox_Forename.Text
Range("C5").Value = TextBox_Surname.Text
Range("D5").Value = TextBox_address1.Text
Range("E5").Value = TextBox_address2.Text
Range("F5").Value = TextBox_City.Text
Range("G5").Value = TextBox_PostCode.Text
Range("H5").Value = TextBox_Telephone.Text


UserForm_New_Customer("TextBox_Forename").Text = ""
UserForm_New_Customer("TextBox_Surname").Text = ""
UserForm_New_Customer("TextBox_address1").Text = ""
UserForm_New_Customer("TextBox_address2").Text = ""
UserForm_New_Customer("TextBox_City").Text = ""
UserForm_New_Customer("TextBox_PostCode").Text = ""
UserForm_New_Customer("TextBox_Telephone").Text = ""

Confirm_button.Visible = False
Cancel_Button.Visible = False
Clear_button.Visible = False
Final_Confirm_Button2.Visible = True

Sheets("Thank you").Select



End Sub



this is all the code from the second user form

Thanks

[dsenette]

option explicit
Final_Confirm_Button2.Visible = false

Private Sub Cancel_Button_Click()

UserForm_New_Customer.Hide
UserForm_Customer.Show

End Sub

Private Sub Clear_button_Click()
UserForm_New_Customer("TextBox_Surname").Text = ""
UserForm_New_Customer("TextBox_Forename").Text = ""
UserForm_New_Customer("TextBox_Address1").Text = ""
UserForm_New_Customer("TextBox_Address2").Text = ""
UserForm_New_Customer("TextBox_PostCode").Text = ""
UserForm_New_Customer("TextBox_City").Text = ""
UserForm_New_Customer("TextBox_Telephone").Text = ""


End Sub

Private Sub CommandButton1_Click()

End Sub

Private Sub Confirm_button_Click()


Sheets("Customer ID's").Select

Sheets("Customer ID's").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown

Range("A5").Select
ActiveCell.FormulaR1C1 = "=R[1]C+1"
Comment1 = "Your customer identity number is "
TextBox_ID = Comment1 & Range("A5").Value


Range("B5").Value = TextBox_Forename.Text
Range("C5").Value = TextBox_Surname.Text
Range("D5").Value = TextBox_address1.Text
Range("E5").Value = TextBox_address2.Text
Range("F5").Value = TextBox_City.Text
Range("G5").Value = TextBox_PostCode.Text
Range("H5").Value = TextBox_Telephone.Text


UserForm_New_Customer("TextBox_Forename").Text = ""
UserForm_New_Customer("TextBox_Surname").Text = ""
UserForm_New_Customer("TextBox_address1").Text = ""
UserForm_New_Customer("TextBox_address2").Text = ""
UserForm_New_Customer("TextBox_City").Text = ""
UserForm_New_Customer("TextBox_PostCode").Text = ""
UserForm_New_Customer("TextBox_Telephone").Text = ""

Confirm_button.Visible = False
Cancel_Button.Visible = False
Clear_button.Visible = False
Final_Confirm_Button2.Visible = True

Sheets("Thank you").Select



End Sub



you had it pretty close

[Ryan_esx7]

Hi, just got to the point of wanting to put my fist through the screen

it doesn't want to let me put it where i need to.

u want a look!

Ryan

Attached Files

•  DVD_Rental_sheet.zip   18.67KB   419 downloads

[dsenette]

here ya go.....
what i did was change the properties on the final confirm button to default to invisble...then basically left your code how it was...i believe i removed the formclick..thing aat the end..

[Ryan_esx7]

hey, thanks very much

u've helped me at my A-Levels, and saved my screen from a rather big hole in the middle.

Thank you very much, u are very very clever, and you certainly know what ur doing.

Thank you once again

Ryan

P.S. if i have any more probs, you know i'm coming to you now, lol

Thanx again