If Statement,Change CheckBox,Use Same Supplier

[burrina]

I am trying to figure out a way so that if a user checks Option Group,(Check55 or Check57) then it will allow them to use the same supplier for every item purchased or else individually select a supplier for each item purchased. Of course I would need a vb yes/no to ask them what they wanted to do.Where should this code fire from? When they first select a product, i.e. ProductID or when they choose a Supplier for the first time?
Form name is CompanyOrderSubform


Check55 would be the YES, use same Supplier for every order. The default is No. Check57


Supplier is the bound control on the form
OptionGroup is unbound. Frame52

[alansidman]

In the after update event for the check box, you might include an IF-then -else statement.

for the true, you could then insert some code that is similar to this

Private Sub copyrecordbutton_Click()

On Error GoTo Err_copyrecordbutton_Click

Dim pown As Variant

Dim psource As Variant

Dim pclient As Variant

Dim ptax As Variant



pown = txtcurrent1.Value

psource = txtcurrent2.Value

pclient = txtcurrent3.Value

ptax = txtcurrent4.Value



RunCommand acCmdRecordsGoToNew



txtnew1.Value = pown

txt2new.Value = psource

txtnew3.Value = pclient

txtnew4.Value = ptax





Exit_copyrecordbutton_Click:

    Exit Sub



Err_copyrecordbutton_Click:

    MsgBox Err.Description

    Resume Exit_copyrecordbutton_Click

change the control names to meet you particular situation

[burrina]

So, since I use Frame52 and the option buttons are named 55 and 57, this is where I am at right now.
I assume the ONLY way this would work is for them to first select a Supplier? Yes/No ?

'SameSuppliermsgbox = MsgBox("Would You Like To Use Same Supplier For Entire Order?", vbInformation + vbYesNo, "CompanyOrderSubform")

If (SameSuppliermsgbox = vbYes) Then
DoCmd.SetWarnings False

If Me.Frame52 = 1 Then
Me.Supplier = 'Supplier Selected
Else
Me.Supplier = ""
End If
End Sub

[alansidman]

Have you tested? And does it give you expected results?

[burrina]

Yes, it helped but the code lost me. I will mark as resolved just as soon as I can make it work,

Thanks,

I am afraid my Access skills are not up to par, Sorry!

[alansidman]

Which code lost you? What needs to be explained? We are here to help and teach.

Alan

[burrina]

Unfortunately, Don't know how, I got stopped with a Join Error Message. I can't seem to get my 2 forms working, it's either one or the other.
One is for Buying products and the other Selling Products. Of course they both use the same Products table.

Anyway, i will get back to you on this challenge after the fires are put out on the other issue.

Thanks for your help and patience.

[alansidman]

If both forms are bound to the same table, then why not have the information on one form?

[burrina]

I originally tried having everything on one form but then it occurred to me that they would probably need to choose another Company/Customer for the next order and there is where it would get too crazy! Sounded good in theory tough. Example: The Company wanted to SELL products and then created a order on the form, but then a Customer needed to BUY products, can't do on the same form that I know of! Then you run thru the whole tabbed menu thing which can get confusing!
I am confused myself. So I have decided to split the db and link just some common tables between them and isolate any problems.

I will get back with you when I am through and see if it gets fixed.

Thanks,

[burrina]

I finally got to try the code, it gave me a error message; Object Required. I even had a supplier filled in already.???

[alansidman]

You may want to upload your db for analysis.

[burrina]

Thanks, I did upload it but forgot one macro to update the price when selecting a product.

Thanks so much!

[alansidman]

Where did you upload, there are no attachments in this thread.

[burrina]

Sorry, Other Post. https://www.accessforums.net/forms/f...tml#post150437