Want Form A field to flood into Form B Field (1 Viewer)

[hardhitter06]

Hi,

I'm trying to flood the ContractNo from FormA into the ContractNo for FormB with an onclick command.

My syntax is probably off and was wondering if someone could assit?

 stDocName = "FormBSearch"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    [COLOR="Red"]Forms!FormBSearch!Me.ContractNo = Me.FormB.ContractNo[/COLOR]
    DoCmd.Close acForm, "SearchFormAFormB"

SearchFormAFormB is where the number is coming from.
FormBSearch is where I would like the field data to display

Thank you

 

[pr2-eugin]

Hello hardhitter06, you are using DoCmd.OpenForm method, but there is no stLinkCriteria defined? Is that something you have missed or is the criteria below is the one you are trying to use?

Also you say FormBSearch, but the code does not speak anything of it. This is how it should actually be.

DoCmd.OpenForm "FormBSearch", _
               WhereCondition:="[B][COLOR=Red]theControlOnFormBSearch [/COLOR][/B]= " & Me.[B][COLOR=Blue]ContractNumberControlOnFormA[/COLOR][/B]

 

[pr2-eugin]

I just re-read your question, do you want to pass the contract number from FormA to FormB? If so use OpenArgs method.

DoCmd.OpenForm "yourFormName", OpenArgs:= Me.ContractNumberControlOnFormA

In the Form Load/Current you can check if the OpenArg is set or not. If set, then use that as the value for the control on FormB.

Private Sub Form_Current()
    If Len(Me.OpenArgs & vbNullStirng) = 0 Then _
        Me.yourFormBControlName = Me.OpenArgs
End Sub

Or am I not understanding your requirement properly?

 

[hardhitter06]

I just want the ContractNo from the first search on the first form to show up in the ContractNo field on the 2nd form from the 2nd search.

Basically FormA's ContractNo to flood into FormB's ContractNo.

 

[pr2-eugin]

Okay ! That's what I thought, check the Post#3 I posted it while you were responding to this thread.

 

[hardhitter06]

Thanks Paul but it isn't working

Private Sub Command56_Click()
DoCmd.OpenForm "FormBSearch", OpenArgs:=Me.ContractNo
End Sub

Private Sub Form_Current()
If Len(Me.OpenArgs & vbNullStirng) = 0 Then _
        Me.ContractNo = Me.OpenArgs
End Sub

 

[pr2-eugin]

Me and my silly coding. Lol. Change the = to <> it needs to be not equals 0. Sorry.

Private Sub Form_Current()
If Len(Me.OpenArgs & vbNullStirng) [COLOR=Red][B]<>[/B][/COLOR] 0 Then _
        Me.ContractNo = Me.OpenArgs
End Sub

Just to be clear, the FormCurrent will be for FormB, also depending on the need you might need to consider moving it into another method like Open or Load. As the way the Form Current works is it will be triggered everytime it navigates to a record.

 

[hardhitter06]

Beautiful! That did it.

Thanks Paul!

 

[pr2-eugin]

No problem ! Good Luck !