Recordset with join involving 3 or more tables

Question

The initial value of form fields on this page are populated
by the following recordset containing a join:
SELECT *
FROM customers_cus, orders_ord
WHERE orders_ord.customerid_ord=customers_cus.customerid_cus
AND company_cus='" & Request.Form("companymenu") &"'
Whenever the database field orders_ord.customerid_ord is not
null, the form fields on the page preview fine. However, if
orders_ord.customerid_ord is null, I receive the following error
message:
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been
deleted. Requested operation requires a current record.
How do I make it that orders_ord.customerid_ord is able to be
null?

Answer 1

REPORT  Z_JOINS LINE-SIZE 350.
DATA: BEGIN OF I_KNA1 OCCURS 1,
      KUNNR LIKE KNA1-KUNNR,
      LAND1 LIKE KNA1-LAND1,
      NAME1 LIKE KNA1-NAME1,
      ORT01 LIKE KNA1-ORT01,
      END OF I_KNA1.
DATA: BEGIN OF I_VBAK OCCURS 1,
      KUNNR LIKE VBAK-KUNNR,
      VBELN LIKE VBAK-VBELN,
      ERDAT LIKE VBAK-ERDAT,
      ERNAM LIKE VBAK-ERNAM,
      END OF I_VBAK.
DATA: BEGIN OF I_VBAP OCCURS 1,
      VBELN LIKE VBAP-VBELN,
      POSNR LIKE VBAP-POSNR,
      MATNR LIKE VBAP-MATNR,
      CHARG LIKE VBAP-CHARG,
      END OF I_VBAP.
DATA: BEGIN OF I_MARA,
      MATNR LIKE MARA-MATNR,
      MBRSH LIKE MARA-MBRSH,
      MTART LIKE MARA-MTART,
      MEINS LIKE MARA-MEINS,
      END OF I_MARA.
DATA: BEGIN OF I_DEST OCCURS 1,
      KUNNR LIKE KNA1-KUNNR,
      LAND1 LIKE KNA1-LAND1,
      NAME1 LIKE KNA1-NAME1,
      ORT01 LIKE KNA1-ORT01,
      VBELN LIKE VBAK-VBELN,
      ERDAT LIKE VBAK-ERDAT,
      ERNAM LIKE VBAK-ERNAM,
      POSNR LIKE VBAP-POSNR,
      MATNR LIKE VBAP-MATNR,
      CHARG LIKE VBAP-CHARG,
      MBRSH LIKE MARA-MBRSH,
      MTART LIKE MARA-MTART,
      MEINS LIKE MARA-MEINS,
      END OF I_DEST.
SELECT KKUNNR KLAND1 KNAME1 KORT01 VVBELN VERDAT VERNAM PPOSNR
PMATNR PCHARG INTO TABLE I_DEST FROM KNA1 AS K INNER JOIN VBAK AS V ON
KKUNNR = VKUNNR INNER JOIN VBAP AS P ON VVBELN = PVBELN INNER JOIN
MARA AS M ON PMATNR = MMATNR.
LOOP AT I_DEST.
WRITE: / I_DEST-KUNNR, I_DEST-LAND1, I_DEST-NAME1, I_DEST-ORT01,
I_DEST-VBELN, I_DEST-ERDAT, I_DEST-ERNAM, I_DEST-POSNR, I_DEST-MATNR,
I_DEST-CHARG, I_DEST-MBRSH, I_DEST-MTART, I_DEST-MEINS.
ENDLOOP.
Cheers.