Hi, You have to change the way that you read the useraccess table. Add the useraccess dh. Declare an useraccess cursor with the SqlSystemdb flag Example: DH Code: Public CSR_UserRec As Integer Public serr_UserRec As Integer Public Sub Init_UserRec(ByRef x_Level As Integer, ByRef x_Cursor As Boolean) Call VBA_SetAddr("bUserRec", bUserRec, nUserRec, Lenb(bUserRec)) If x_Cursor = True Then Call SqlCursorEx(CSR_UserRec, x_Level + SqlSystemdb, "CSR_UserRec", "UserRec", "UserRec") End If End Sub Form1 Code: Private Sub Form1_Load() Call Init_UserRec(NOLEVEL, True) End Sub Method or Function Call: Call GetBufferValue("bpes.userid", sUserID) serr_UserRec = SqlFetch1(CSR_UserRec, "UserRec_Type_UserId" & SParm("U") & SParm(sUserID), bUserRec, LenB(bUserRec))
↧