Option Buttons

[Gasman]

Ok, here is my data base (or the parts you need) and in the frmItems you can double click on the item to edit it, but in frmItems I want a option group. As you can see, I have the start for one, but it doesnt work for a reason I do not know. Don't judge me yet, I haven't finished the data base, I have lots of excess query's, tables, forms, etc, etc.

Sorry I can only read up to 2003 databases.

 

[Infinite]

I would publish the data base in 2003 or 2000 format, but it says "You cannot save this database in an earlier version format, because it uses features that require the current file format"

 

[Gasman]

Yes, that is not your fault. It's mine, but I only have Office 2003 and cannot justify spending money at present on anything later.

Hopefully someone else will jump in.

 

[Infinite]

Ok, understandable. Hopefully (like you said) some one will take in the mantle of "help me "

 

[Infinite]

So, any one able to help me? Please?

 

[Infinite]

It looks like I should have some help, or at least some people that have looked at the data base. From what Gasman said it doesnt sound hard, and that is the annoying part of this.

 

[Gasman]

Try with a new post and paste the url for this thread as background info.

Really sorry I could not help more.

 

[Infinite]

Eh, its not your fault, you've tried more then most

 

[GinaWhipp]

This database has several issues that need to be addressed before anyone can look at it...

1. MISSING: AccessImagine.ocx

Not sure why you would need it but not only do I not have it (and I'm sure a lot of folks don't) I am not going to download to use your database.

2. Behind frmItems is...

Private Sub cmdClear_Click()
    Me.txtSearchI = Null
    Me.lstItems.Requery
End Sub ' cmdClear_Click
Private Sub cmdEventNewI_Click()
    Me.Visible = False
    DoCmd.OpenForm "frmItemsEdit1", acNormal, , , acFormAdd, acDialog
    Me.Visible = True
    Me.lstItems.Requery
End Sub ' cmdEventNewI_Click
[B][COLOR=red]Option Compare Database[/COLOR][/B]
[B][COLOR=red]Option Explicit[/COLOR][/B]
Private Sub cmdClearS_Click()
 
 
  Me.txtSearchI = ""
  Me.Refresh
 Frame16 = Null
End Sub

Wrong, these two lines...

Option Compare Database
Option Explicit

...need to be at the very top of the Module. And, that should be done for every Module as most were missing.

Behind the same frmItems are Controls that are not on the Form so I cannot Compile, so I then had to rem out all that just so I could get it to Compile.

3. You are using Reserved Words for Field Names in Tables, i.e.

Height
Name
Width

...plus a few more. Using these just causes issues, you need fix those now while you are still in the development stage. For the complete list see...

http://allenbrowne.com/AppIssueBadWord.html
http://www.utteraccess.com/forum/Access-Reserved-Words-t539419.html

If you adopt a Naming Convention you won't have to worry about Reserved Words. Here's a sample...

http://www.access-diva.com/d1.html


Now, on to what you are trying to do...

A fully working option button

They do work so what is it you want them to do? Are you trying to Filter your List Box based on the selection made in the Option Group? If so, the first order of business is make them match. Your Option Group is 1, 2 and 3 but the Status field on the Query is Retired, Current and Not Stocking. Will not work. The PK in tblStatus needs to be numeric, Autonumber will do and then you can Filter based on that. Understand?

 

[Infinite]

I grabbed that date base checker from one of your links, and im almost done with it, so close to 0 errors. 2nd,

They do work so what is it you want them to do? Are you trying to Filter your List Box based on the selection made in the Option Group? If so, the first order of business is make them match. Your Option Group is 1, 2 and 3 but the Status field on the Query is Retired, Current and Not Stocking. Will not work. The PK in tblStatus needs to be numeric, Autonumber will do and then you can Filter based on that. Understand?

I have the tblStatus, it has 2 field, field one is the Status name, and the 2nd field is the AutoNumber. With that set up, how would I go about setting it up to work with the option group?

 

[GinaWhipp]

Is that new? Because the one I have, tblStatus, does not have an Autonumber field.

 

[Infinite]

Yes, that is new. Added it on. I can upload the current fixed data base if you want.

 

[GinaWhipp]

That would be good, so we can make sure all is right in the world before we move on

 

[Infinite]

wait, do I need to remove AccessImagine.ocx? And if so, how?

 

[GinaWhipp]

It's okay... I'll remove it.

 

[Infinite]

Ok, cause here is my current data base that is fixed.

 

[GinaWhipp]

Hmm, I'm still a little worried about these Tables as they do not appear properly normalized and this will cause issues later on. And now I see another problem...

In your Query you have 21 fields
In your List Box you have 20 fields (as seen in the Properties window)
In the Properties window for the List Box you list 19 columns

These need to match. So, you must have same amount in all three places. After that you need to add tblStatus to the Row Source and add the Status (numeric field) to the query and adjust the above accordingly. Fix that and send it back.

 

[Infinite]

In your Query you have 21 fields
In your List Box you have 20 fields (as seen in the Properties window)
In the Properties window for the List Box you list 19 columns

Fixed that.

These need to match. So, you must have same amount in all three places. After that you need to add tblStatus to the Row Source and add the Status (numeric field) to the query and adjust the above accordingly. Fix that and send it back.

Could I set its width to 0 and will it still work?

If I can have it set to 0, I dont have it set to that in this Data base, but I would like to If I can.

 

[GinaWhipp]

Umm, the query (Row Source) is still not fixed, it now has 22 fields. All three must match.

To answer your question, yes, you can set a Column Width to 0.

 

[Infinite]

Wait, I know I should fix all this, but, is that going to help at all with the option group?