Universal Form for different sources

[theperson]

I have an option group where the user reads a question and either has to select yes or no. There are multiple questions on this form. If the user selects 'No' I'd like a "why" form to pop up and allow the user to write a reasoning down and have it saved in a record in a table (the same table that the yes or no answer is saved in).



Right now I have it working, but my method will force me to make a specific why form for each question (which will be over 50). This doesn't seem very efficient.

Is there a way to have a universal 'why' form pop up when 'no' is selected for each question?

If anything doesn't make sense, let me know and I'll explain further.

Thanks!

[pbaldy]

Probably, but it would help to know your structure. Offhand you can probably adapt this:

http://www.baldyweb.com/WrappedForm.htm

[theperson]

I've attached an example database. If you go to the Questions form and select the "No" option, it should open the "Why" form up. This the is the form i want to be universal to work for both those questions and save the record separately in that table.

[pbaldy]

There is no attachment. If you didn't already, try compacting the db and then zipping it before attaching here.

[theperson]

Sorry, I attached it to the original post not the reply. I also attached it again to this reply.

[pbaldy]

Duh, I didn't look up that far. Feel free to say "hey dummy, look up!"

Your design isn't normalized, and you may have trouble with it in the future. I've never done a survey/questionnaire db, but I've heard this is a good sample:

http://www.rogersaccesslibrary.com/f...ey_topic3.html

[theperson]

I will look at that survey database. But I'm not really creating a 'survey' perhaps, but a checklist. I work at a manufacturing plant and they have to go through this checklist and say yes or no if something was done for a process. Right now if they say no, there's no 'reason' field on the paper version and there's no accountability so pencil whipping is prevalent. The feature I'm trying to accomplish would force them to put a reason if no was the answer because they couldn't move forward in the database without stating a reason something was not done or whatever and thus making that 'why' form disappear so they could move on to the next item on the checklist.

[John_G]

If you don't expect or require a great deal of explanation, you could use the InputBox function to get the answer. It takes a question as a parameter, and you can specify the window title as well. Because it is a function, you can put the result straight into a variable or form field:

strReason = inputbox("Please indicate the reason(s) for...","Window title")

[pbaldy]

I will look at that survey database. But I'm not really creating a 'survey' perhaps, but a checklist.

The principle is similar though. If you get a new checklist item, it shouldn't require a redesign of forms, reports, etc. Yours will.

[theperson]

So I put that inbox box code in for the no option in the Questions form. It works but I'm confused as to where the response to the inputbox goes. I'm currently googling to learn about input boxes but maybe you could explain better quicker.

In my attachment to this reply, when no is selected in the why1 option group and the inputbox pops up, I want that answer to go to the why1 field in the table (or form if we need it to go into form version before it gets saved into the table). How can I make that work?

Thanks!

[pbaldy]

The expectation would be that there would be a textbox bound to the reason field, and you would put the answer there:

Me.TextboxName = InputBox(...)

[John_G]

To put it into a form field, just use the form control name instead of the variable strReason:

me![why1] = inputbox("Please indicate the reason(s) for...","Window title")

If the control is bound to a table field, you don't need to do anything else, otherwise you will need a bit of VBA code. Where do you want to keep the "reason" responses?

[theperson]

I think it worked! I used the following code:

strReason = InputBox("Please indicate the reason(s) for...", "Window title")
DoCmd.OpenForm "Table", acNormal, "", "", acEdit, acHidden
DoCmd.GoToRecord acForm, "Table", acLast
Forms!Table!why1 = InputBox("Please indicate the reason(s) for...", "Window title")

It probably doesn't make sense but for a lot of what I do for information input into an access field I open a form that records information to a table of the same name. I'm not sure of a better way to do it since access is a self-learned skill I've been learning overtime.

[pbaldy]

You already have a form open to that record, so why not just add a textbox to that form? It can be hidden.