copying and paste a value with a click between two forms

[irade92]

Hi
I have a from with two columns. I like with a click of a mouse (double click) to transfer value from from one field to another field in another form. Is it possible?

 

[arnelgp]

say you want to xfer Column1 to Column2 in another Form.(those are the names of the textbox).

Private Sub Column1_DblClick(Cancel As Integer)
If syscmd(acSysCmdClearStatus,acform,"theOtherFormName") > 0 Then _
    [Forms]![theOtherFormName]!Column2 = Me.Column1
End Sub

 

[irade92]

Thanks..I will try a little later and let you know..

 

[irade92]

If syscmd(acSysCmdClearStatus,acform,"theOtherFormName") > 0 Then _ [Forms]![theOtherFormName]!Column2 = Me.Column1

 

[arnelgp]

what I said is like this:

If syscmd(acSysCmdClearStatus,acform,"theOtherFormName") > 0 Then _
[Forms]![theOtherFormName]!Column2 = Me.Column1

you replace theOtherFormName with the correct name of the other form.

 

[irade92]

the value I want to transfer has to go into the field in a subform of main form

 

[arnelgp]

modify the second line of code:

[Forms]![theOtherFormName]![theSubformName].[Form]!Column2 = Me.Column1

 

[irade92]

the value I want to transfer has to go into the field in a subform of main form

Sorry to bother you!!
I tried this but seems not to work..Am I making mistake somewhere

Code Tags Added by UG
Please use Code Tags when posting VBA Code
Please feel free to Remove this Comment
https://www.access-programmers.co.u...e-use-code-tags-when-posting-vba-code.240420/

Private Sub E_BROJ_DblClick(Cancel As Integer)
  
    If SysCmd(acSysCmdClearStatus, acForm, "[Forms]![frmSMETKI_MAIN_3]![fsubSMETKI_MAIN_3]") > 0 Then
     
       [Forms]![frmSMETKI_MAIN_3]![fsubSMETKI_MAIN_3]![br_recept] = E_BROJ
       [Forms]![frmSMETKI_MAIN_3]![fsubSMETKI_MAIN_3]![br_recept].Requery
       [Forms]![frmSMETKI_MAIN_3]![fsubSMETKI_MAIN_3]![br_recept].SetFocus
      
    End If
End Sub

 

[arnelgp]

slightly, yes

Private Sub E_BROJ_DblClick(Cancel As Integer)

If SysCmd(acSysCmdClearStatus, acForm, "frmSMETKI_MAIN_3") > 0 Then

[Forms]![frmSMETKI_MAIN_3]![fsubSMETKI_MAIN_3].Form![br_recept] = Me![E_BROJ]
'[Forms]![frmSMETKI_MAIN_3]![fsubSMETKI_MAIN_3]![br_recept].Requery
'[Forms]![frmSMETKI_MAIN_3]![fsubSMETKI_MAIN_3]![br_recept].SetFocus

End If
End Sub

 

[irade92]

slightly, yes

Private Sub E_BROJ_DblClick(Cancel As Integer)

If SysCmd(acSysCmdClearStatus, acForm, "frmSMETKI_MAIN_3") > 0 Then

[Forms]![frmSMETKI_MAIN_3]![fsubSMETKI_MAIN_3].Form![br_recept] = Me![E_BROJ]
'[Forms]![frmSMETKI_MAIN_3]![fsubSMETKI_MAIN_3]![br_recept].Requery
'[Forms]![frmSMETKI_MAIN_3]![fsubSMETKI_MAIN_3]![br_recept].SetFocus

End If
End Sub

Thanks a lot

 

[arnelgp]

you're welcome.