Problem With Form To Form and Buttons

[louisrockzzz]

Hi. I am creating a database to log donations and the donors that gave the donation. I have a table for Donor_Information, which stores the donor number, name, company, address, etc., Donations_Given, which stores the number of the donor who gave the gift as well as other important gift information, as well as many other tables. I have created a split form for a donor search form. What I want to be able to do is use the search results, select one of them, which populates the Donor_Num text box automatically, put a button to add a new donation which would open the add a new donation form, take that donor that is selected and whose Donor_Num is auto populated in the box, and have their number be put into the donor_num field in the donation form so they do not have to enter one. I have tried several different methods and have done much googling but haven't been able to make it work. I'm sure its and easy fix and I am just missing it because I am googling the wrong thing. Any help would be appreciated.

[ssanfu]

I don't have A2016 and I don't use "split forms", but have you heard about the "OpenArgs" parameter of "Docmd.OpenForm" method?
Maybe it will help.

See http://www.datawright.com.au/access_..._arguments.htm
Example for using "OpenArgs" is at the bottom.... but read the whole thing...

[RuralGuy]

To add to Steve's suggestion, here's another example: http://www.baldyweb.com/OpenArgs.htm

[louisrockzzz]

I am getting subscript out of range errors. Heres some of my coding. Any help is appreciated.

This is for the button on the first form.
Private Sub Command116_Click()
DoCmd.OpenForm "Add A New gift", acNormal, , , acFormAdd, , "DonorNum" & Me.DonorNum
End Sub

Private Sub Form_Load()
'Use this version if the ID is a number
Dim strOpenArgs() As String

This is for the form I want to open when I click the button.
If Not IsNull(Me.OpenArgs) Then
strOpenArgs = Split(Me.OpenArgs, ";")
Me.DonNumBox = strOpenArgs(0)

Else


End If
End Sub


I am not sure what to put in the else to handle the the open args is the donor num box is blank. Thanks

[RuralGuy]

Change this line:
DoCmd.OpenForm "Add A New gift", acNormal, , , acFormAdd, , "DonorNum" & Me.DonorNum
...to...
DoCmd.OpenForm "Add A New gift", acNormal, , , acFormAdd, , Me.DonorNum

[louisrockzzz]

Yes I realized after I posted that that that was wrong. The issue I'm having now is when the field is empty I get an error as such I would like it to be able to either not load the form, or load a blank version of form. Also, I would like to set the focus to a different box when the from is opened.

[RuralGuy]

ALL values passed in the OpenArgs argument are STRINGS always. You will need to coerce the value into the DonNumBox control. What is the Data Type of the field to which the DonNumBox is bound? If it is an Integer then CInt(Me.DonNumBox = strOpenArgs(0)) should do it. As for the focus, the tab order can set that or you can just do a Me.YourControlName.SetFocus in the Load event.

[ssanfu]

@RG

Umm, shouldn't that be
Me.DonNumBox = CInt(strOpenArgs(0))

[louisrockzzz]

The Donor Num is all just numbers. The code works fine once I select a donor from the donor search form, but if I do not select one I encounter that error as stated above. So I need to know what I can do to either have it open a blank form or make it set that a donor must be selected before opening the form. Let me know if any further pictures or code will help answer.

Edit
I would prefer it just say that you must select a donor from the search box since I have the donor num on the gift form set to locked.

[RuralGuy]

@RG

Umm, shouldn't that be
Me.DonNumBox = CInt(strOpenArgs(0))

D'uh...absolutely! Thanks Steve.

[RuralGuy]

If Len(Me.DonorNum & "") <> 0 Then
   DoCmd.OpenForm "Add A New gift", acNormal, , , acFormAdd, , Me.DonorNum
Else
   Msgbox( "Please select a donor...etc"
End If