Trigger event by changing field programmaticly

[ano]

the more you try to explain the more confusion is created .
i understand : - you are familar with using 2 databases same time
- you are using a function in after update
- you like to use that function in vba
- why you need a trigger if you activate the function?


if you need the function in the other database i would use recordset for the 2nd database so i can use the function from the 1st database

[Anna987]

for this to work, you (not another user) would have the have database2 open from within database1(and to be clear - you mean a front end, not a database which is the back end) and the relevant form open as well to be able to reference the control.

All depends what your function is supposed to do but perhaps a data macro is the way to go....

I'll try the data macro, thanks CJ.

[ano]

this code change textbox from database 2dab using database bonus and database prodloca
2dab is new database with form containing text0 & text2
so edit/update is easy to build in.
also is there example how to communicate with extern form

Option Compare DatabaseOption Explicit


Private Sub Text0_AfterUpdate()
Debug.Print "bon upd 0";
End Sub


Private Sub Text0_Change()
Debug.Print "bon ch0";
End Sub


Private Sub Text2_AfterUpdate()
Debug.Print "loc upd 2"
End Sub


Private Sub Text2_Change()
Debug.Print "loc chg2"
End Sub


Private Sub Text2_Enter()
Dim db1 As Database
Dim rs1 As Recordset
Set db1 = OpenDatabase("C:\Users\arnol\OneDrive\Documents\bonus.accdb")
Set rs1 = db1.OpenRecordset("select * from [annual bonus]")
rs1.MoveLast
rs1.MoveFirst
If Forms![2dab]!Text0 = "bon" & rs1.Fields(1) Then
Forms![2dab]!Text0 = "bon" & rs1.Fields(0)
End If
Debug.Print "bon"; rs1.RecordCount
Dim db2 As Database
Dim rs2 As Recordset
Set db2 = OpenDatabase("C:\Users\arnol\OneDrive\Documents\prodloca.accdb")
Set rs2 = db2.OpenRecordset("select * from tbllocation")
rs2.MoveLast
rs2.MoveFirst
If Forms![2dab]!Text2 = "loc" & rs2.Fields(1) Then
Forms![2dab]!Text2 = "loc" & rs2.Fields(0)
Else
Forms![2dab]!Text2 = "loc" & rs2.Fields(1)
End If
Debug.Print "loc"; rs2.RecordCount
End Sub

[Minty]

If it's in another database, then a data macro would be the most appropriate method, as it works when the table data is updated, no matter when or how the update is made.

I'm not sure of the relationship between the two tables or databases, but it might not be possible across two systems,

[Anna987]

If it's in another database, then a data macro would be the most appropriate method, as it works when the table data is updated, no matter when or how the update is made.

I'm not sure of the relationship between the two tables or databases, but it might not be possible across two systems,

Thanks Minty

[Anna987]

Hello Ano,

I have tested the TestfromAccess and the TargetDatabase. This can work for me, i have to try it further but until now , i like it.
Many Tahnks.

Regards.