Object doesn't support this property or method occuring beacuse of Query why?

[nkechifesie]

after doing the select statement as you asked me to, that is to put distinct, the error above has started reoccuring again. I did a check by removing the data connection to this query and the error did not occur, how can I resolve this?
This is how i did the join using visual basic to the Access Database

DVehQry.DatabaseName = App.Path & "\VEHICLE_TRACKER.mdb"
DVehQry.RecordSource = "VEH_QRY"
 

then to the various text box that would display the data in the field of the Db, i used this code

    Text1(3).DataField = "VEHICLE_TYPE"
    Text1(6).DataField = "VEHICLE_NO"
    Text1(4).DataField = "ENGINE_NO"
    Text1(5).DataField = "CHASIS_NO"
    Text2(0).DataField = "VEH_LIC_ISST"
    Text2(1).DataField = "VEH_LIC_EXPT"
    Text2(2).DataField = "H_PER_ISST"
    Text2(3).DataField = "H_PER_EXPT"
    Text2(4).DataField = "RD_WORTH_ISST"
    Text2(5).DataField = "RD_WORTH_EXPT"
    Text2(6).DataField = "INS_CERT_ISST"
    Text2(7).DataField = "INS_CERT_EXPT"
    Text2(8).DataField = "MOB_ADV_ISST"
    Text2(9).DataField = "MOB_ADV_EXPT"
    Text2(10).DataField = "H_DUTY_PER_ISST"
    Text2(11).DataField = "H_DUTY_PER_EXPT"
 

[sashi]

after doing the select statement as you asked me to, that is to put distinct, the error above has started reoccuring again. I did a check by removing the data connection to this query and the error did not occur, how can I resolve this?
This is how i did the join using visual basic to the Access Database

DVehQry.DatabaseName = App.Path & "\VEHICLE_TRACKER.mdb"
DVehQry.RecordSource = "VEH_QRY"
 

then to the various text box that would display the data in the field of the Db, i used this code

    Text1(3).DataField = "VEHICLE_TYPE"
    Text1(6).DataField = "VEHICLE_NO"
    Text1(4).DataField = "ENGINE_NO"
    Text1(5).DataField = "CHASIS_NO"
    Text2(0).DataField = "VEH_LIC_ISST"
    Text2(1).DataField = "VEH_LIC_EXPT"
    Text2(2).DataField = "H_PER_ISST"
    Text2(3).DataField = "H_PER_EXPT"
    Text2(4).DataField = "RD_WORTH_ISST"
    Text2(5).DataField = "RD_WORTH_EXPT"
    Text2(6).DataField = "INS_CERT_ISST"
    Text2(7).DataField = "INS_CERT_EXPT"
    Text2(8).DataField = "MOB_ADV_ISST"
    Text2(9).DataField = "MOB_ADV_EXPT"
    Text2(10).DataField = "H_DUTY_PER_ISST"
    Text2(11).DataField = "H_DUTY_PER_EXPT"
 

Hi there,

Please provide the SQL statement used, as it would ease in providing solutions. Good luck & Take care.

[nkechifesie]

Hi there,

Please provide the SQL statement used, as it would ease in providing solutions. Good luck & Take care.

the SQl statement used is

 SELECT DISTINCT  
H_DUTY_PER.H_DUTY_PER_ISST, 
H_DUTY_PER.H_DUTY_PER_EXPT, 
H_PER.H_PER_ISST, 
H_PER.H_PER_EXPT, 
INS_CERT.INS_CERT_ISST, 
INS_CERT.INS_CERT_EXPT, 
MOB_ADV.MOB_ADV_ISST, 
MOB_ADV.MOB_ADV_EXPT, 
RD_WORTH.RD_WORTH_ISST, 
RD_WORTH.RD_WORTH_EXPT, 
VEH_DESCRIPTION.VEHICLE_NO, 
VEH_DESCRIPTION.ENGINE_NO, 
VEH_DESCRIPTION.CHASIS_NO, 
VEH_LIC.VEH_LIC_ISST, 
VEH_LIC.VEH_LIC_EXPT, 
VEH_TYPE.VEHICLE_TYPE
 FROM  
H_DUTY_PER , 
H_PER, INS_CERT, 
MOB_ADV, 
RD_WORTH, 
VEH_DESCRIPTION, 
VEH_LIC, VEH_TYPE
 WHERE
 VEH_DESCRIPTION.VEHICLE_ID=VEH_TYPE.VEHICLE_ID And VEH_DESCRIPTION.VEHICLE_NO=VEH_LIC.VEHICLE_NO AND VEH_DESCRIPTION.VEHICLE_NO=H_DUTY_PER.VEHICLE_NO AND VEH_DESCRIPTION.VEHICLE_NO=H_PER.VEHICLE_NO AND VEH_DESCRIPTION.VEHICLE_NO=INS_CERT.VEHICLE_NO AND VEH_DESCRIPTION.VEHICLE_NO=MOB_ADV.VEHICLE_NO AND VEH_DESCRIPTION.VEHICLE_NO=RD_WORTH.VEHICLE_NO;