'9/13/98    datMBTI.Refresh
'12/21/98     datMBTI.Recordset.AddNew
'12/21/98     gChange = 1 '10/28/98
'12/21/98     cmdRaw.Enabled = False '10/28/98
'12/21/98     SSCommand1.Enabled = False '10/28/98
'12/21/98     SSCommand4.Enabled = False '10/28/98
    
'12/21/98     txtTakeDate(19).Text = Date
'12/21/98     datMBTI.Recordset![GroupID] = gGroupID
'12/21/98     gAddNew = 1

'revised 9/20/98
'12/21/98     txtFirstName(1).Text = " "
'12/21/98     txtLastName(3).Text = " "
'12/21/98     If datMBTI.Recordset![EI] <> Null Then txtEI(4).Text = datMBTI.Recordset![EI]
'12/21/98     If datMBTI.Recordset![EISCORE] <> Null Then txtEIScore(8).Text = Str(datMBTI.Recordset![EISCORE])
    If datMBTI.Recordset![SN] <> Null Then txtSN(2).Text = datMBTI.Recordset![SN]
    If datMBTI.Recordset![SNSCORE] <> Null Then txtSNScore(9).Text = Str(datMBTI.Recordset![SNSCORE])
    If datMBTI.Recordset![TF] <> Null Then txtTF(6).Text = datMBTI.Recordset![TF]
    If datMBTI.Recordset![TFSCORE] <> Null Then txtTFScore(11).Text = Str(datMBTI.Recordset![TFSCORE])
    If datMBTI.Recordset![JP] <> Null Then txtJP(5).Text = datMBTI.Recordset![JP]
    If datMBTI.Recordset![JPSCORE] <> Null Then txtJPScore(13).Text = Str(datMBTI.Recordset![JPSCORE])
    txtEIDiscrep(7).Text = Val("")
    txtSNDiscrep(10).Text = Val("")
    txtTFDiscrep(12).Text = Val("")
    txtJPDiscrep(3).Text = Val("")
    txtGender(18) = " "
    txtRace = " "
    txtPosition = " "
    txtEducation = " "
    txtNotes(14) = " "
    txtBirthDate = ""

'added the following 9/13/98
    Text1(0).Text = datMBTI.Recordset![ERaw]
    Text1(1).Text = datMBTI.Recordset![IRaw]
    Text1(2).Text = datMBTI.Recordset![SRaw]
    Text1(3).Text = datMBTI.Recordset![NRaw]
    Text1(4).Text = datMBTI.Recordset![TRaw]
    Text1(5).Text = datMBTI.Recordset![FRaw]
    Text1(6).Text = datMBTI.Recordset![JRaw]
    Text1(7).Text = datMBTI.Recordset![PRaw]
    Text1(8).Text = datMBTI.Recordset![ERawDiscrep]
    Text1(9).Text = datMBTI.Recordset![IRawDiscrep]
    Text1(10).Text = datMBTI.Recordset![SRawDiscrep]
    Text1(11).Text = datMBTI.Recordset![NRawDiscrep]
    Text1(12).Text = datMBTI.Recordset![TRawDiscrep]
    Text1(13).Text = datMBTI.Recordset![FRawDiscrep]
    Text1(14).Text = datMBTI.Recordset![JRawDiscrep]
    Text1(15).Text = datMBTI.Recordset![PRawDiscrep]


'    datMBTI.UpdateRecord
    '12/14/98 SSCommand1.Enabled = False
    '12/14/98 SSCommand4.Enabled = False
    datMBTI.Enabled = False
' 12/14/98    SSDBData1.Enabled = False
    '12/14/98 cmdRaw.Enabled = False
    cmdScoring.Enabled = False
'9/12/98    datMBTI.Refresh
