[Ph0eNiX]

First let me start off by saying I am totally new to both access and vb...that being said here is my problem:
in access I have a database created with 3 forms on it.... the main form we will call phaFRM on the pha form there is a gender section, what i would liek to be able to do is when you check th ebox next to male the corresponding form (maleFRM), and if the female box is checked then the corresponding form (femaleFRM) to open ... if they have to open in a seperate window thats ok, but it would be awesome to figure out how to get them to open in the subform section... is this possible or am I totally crazy??Any help at all (even a point to a tutorial on line) would be greatly appreciated... and by the ay I'm not askin for someoen to do the work for me... just point me in the right direction is all. Thanks
Ph0eNiX

[Advertisements]

You need to write the code to open the form in the OnClick event of each checkbox. You have to double-click each checkbox, to open the code window. E.g. lets choose chkMl (Checkbox for male).

OnClick for chkMl:

If (chkMl.Checked) Then ' The checkbox is checked
   Load maleFRM ' We load the form
   maleFRM.Visible = True ' And make it visible
  End If

You need to do the same for chkFm

[Comnir]

You need to write the code to open the form in the OnClick event of each checkbox. You have to double-click each checkbox, to open the code window. E.g. lets choose chkMl (Checkbox for male).

OnClick for chkMl:

If (chkMl.Checked) Then ' The checkbox is checked
   Load maleFRM ' We load the form
   maleFRM.Visible = True ' And make it visible
  End If

You need to do the same for chkFm

[Ph0eNiX]

Private Sub malechk_Click()
If (malechk.Checked) Then ' The checkbox is checked
   Load frm_male ' We load the form
   frm_male.Visible = True ' And make it visible
  End If
End Sub

Creates the following error
when i click ok then the line Private Sub malechk_Click() is highlighted as well.

Edited by Ph0eNiX, 28 May 2006 - 01:38 PM.

[Comnir]

Sorry, checkbox doesn't have the 'checked' property but 'value'. Hence, you should check:

If (malechk.Value) Then

[Ph0eNiX]

Did that got this:
Run-Time error '424'
Object required, clicked ok and the "Load frm_male ' We load the form" line was highlighted.... I played around with it a bit and actually got a macro to do what i wanted to do... thank you though for the help. I really do appreciate it.

Edited by Ph0eNiX, 28 May 2006 - 11:31 PM.

[Comnir]

Are you sure it wasn't supposed to be 'maleFRM'? It seems to be the problem, according to the error message. Anyway, you are welcome :-D.

[Ph0eNiX]

Im back!.... turns out that didn't really fix anything.... the check boxes werent being saved and the data wasn't being transferred... made a drop down menu instead.... now the original problem is back.I have the drop down menu named [Gender], i have 3 forms. frm_male, frm_female, and frm_pha... the [Gender] is on frm_pha, how do I get it to open the corresponding form when the gender is selected? (ie if they pick male the male form opens up)???????????????????????

Edited by Ph0eNiX, 10 June 2006 - 11:23 PM.

[Hai Mac]

Hello,
I am not exactly VBA, but I do VB. Firstly, I would like to revert to the original idea of yours. I would say that it would be nice if a subsection of the form appeared instead of a new form appeared. Why?

• firstly, it is annoying
• secondly, it makes data transfer between the two forms complicated
• thirdly and most importantly, I don't think it is possible to open multiple forms in VBA

Now how to do it:

Enlarge your form so that you can accommodate the two extra subsections with the additional gender options. Create a FRAME for each. Now place your neccessary controls on both frames. In the Property Window, select the property Visible and set it false for both frames. You will still see them while designing, but when you run it, they disappear. Now add this code to your ComboBox

Private Sub ComboBox1_Change()
	If ComboBox1.Value = "Male" Then
		Frame1.Visible = True
		Frame2.Visible = False
	ElseIf ComboBox1.Value = "Female" Then
		Frame1.Visible = False
		Frame2.Visible = True
	End If
End Sub

I hope the code is self-explanatory. If in doubt, just ask

[Ph0eNiX]

BEAUTIFUL! Everything is going perfect so far, one last tiny problem (ain't that what we always say?)
Let's say I have to fields on a form, one is a date box (we will call it date), and the other is a result box (we will call it result). What I am tryin to do is this: The result box needs to be blacked out(still visible but not active) until the date box is filled in. Now I thought ok no problem... I figured out how to do a "if isnull", and getting other fields to black out was figured out, why not try this: By the way I put this "On Current" for the form

Private Sub Form_Current()
If IsNull([lipid]) Then
[cholesterol].Visible = False
[triglyceride].Visible = False
[ldl].Visible = False
[hdl].Visible = False
Else
[cholesterol].Visible = True
[triglyceride].Visible = True
[ldl].Visible = True
[hdl].Visible = True
End If
End Sub

Obviously it didn't quite work out for me or else I wouldn't be coming to the great geek gods for help.... anyone have any suggestions?

Edited by Ph0eNiX, 15 June 2006 - 09:48 PM.

[Hai Mac]

Try If lipid.text = "" then instead of IsNull. Null and an empty string can be different things...

[Ph0eNiX]

Back yet again, some weird stuff happening with this... I got it all fixed to work the way I want... started entering the info and when I got to the second patient it says someone else change the form since I save it last...no matter what I pick (drop changes, save changes, copy to clipboard) when the message goes away all of the english text gets turned into chinese characters.... is there anyone out there willing to take a look at the database an see if they can figure out what is wrong with it? if so please email me @ [email protected] and I wil email you the database to look at... its only about 2mb (no info is in it) thanks in advance to anyone willing to help.

[Hai Mac]

That is really weird . I am not sure if the problem is with VB or Access, maybe you should check the language settings of your Access file. This does not look like a VB problem...

btw, they'll remove your email...