De adata aceasta am urmatoarea situatie:
Am tabelul useri cu: user_id(integer), own_records_view(yes/no)
Am form-ul comenzi: order_id(integer),order_createdby_id(integer)
In momentul in care se logheaza se creeaza 2 variabile temporare :
Cod: Selectaţi tot
Set rs = CurrentDb.OpenRecordset("tbl1Employees", dbOpenSnapshot, dbReadOnly)
TempVars("iduser") = rs!ID.Value
TempVars("orv") = rs!own_records_view.Value
Daca TempVars("orv")=False(-1) sa nu filtreze nimic
Daca TempVars("orv")=True(0) sa filtreze astfel sa apara doar rezultatele unde: order_createdby_id=TempVars("iduser")
Am incercat sa il pun pe Macro OnLoad dar nu functioneaza, imi apare eroare: "Run-time Error '2753':
A problem occurred while Microsoft Access was communicating with the OLE server. Close the OLE server and restart it outside of Microsoft Access. Then try the original operation again in Microsoft Access."
Daca nu pun si prima conditie functioneaza fara probleme. Daca o pun, imi apare eroarea.
Va rog sa ma ajutati pentru ca imi scapa ceva minuscul si nu stiu ce.
Va multumesc anticipat tuturor.