'****************************************************************** '* Value(s)passed: ..... '* Value(s)returned: ..... '* Date: 10-12-2002 '* Author: Ahmad E. Ashparie '* ___________________________________________ '* Modification Log '* Date Author Description '* ------ -------- ------------- '* '******************************************************************* Public Function ReadPersonTable(selectedItem As String) As Boolean Dim Resultset As rdoResultset Dim strSql As String Dim tableName Dim NoOfRecords As Long Dim SelectedSSN 'get person ssnid SelectedSSN = GetPersonID(selectedItem) 'set SQL string strSql = "select * from tb_db_person where person_id = " _ & (SelectedSSN) & "" 'set resultset to populate person info Set Resultset = myDB.OpenResultset _ (strSql, rdOpenForwardOnly, rdConcurReadOnly) 'check if record exists If Resultset.EOF Then 'if not display msg, close resutlset and exit MsgBox "Details for selected record is not available ...!", vbCritical Resultset.Close Set Resultset = Nothing ReadPersonTable = False Exit Function Else 'if record exists,populate controls With Resultset frmSearchUsers_tb.ProgressBar1.Value = 20 frmSearchUsers_tb.txtPersonId.Text = Trim(SelectedSSN) & "" frmSearchUsers_tb.txtLastName.Text = Trim(!prsn_Last_Name) & "" frmSearchUsers_tb.txtFirstName.Text = Trim(!prsn_first_name) & "" frmSearchUsers_tb.txtMI.Text = Trim(!prsn_mi) & "" frmSearchUsers_tb.MskSSN.Mask = "" frmSearchUsers_tb.MskSSN.Text = (!prsn_ssn) & "" frmSearchUsers_tb.txtAge.Text = Trim(!prsn_age) & "" End With 'close resultset Resultset.Close Set Resultset = Nothing End If End Function

-