Chapter 8, Problem 6SCG

Explanation of Solution

a.

Deleting query in the table “OWNER”:

Public Function Owner_Delete(I_OWNER_NUM)

    Dim strSQL As String

    strSQL = "DELETE FROM OWNER WHERE OWNER_NUM = '"

    strSQL = strSQL & I_OWNER_NUM

    strSQL = strSQL & "'"

    DoCmd.RunSQL strSQL

End Function

 Explanation:

• Create a function named as “Owner_Delete” and pass an argument “I_OWNER_NUM”.
• Set the strSQL string variable to “DELETE FROM OWNER WHERE OWNER_NUM = '” and make everything necessary in the command including the single quotation mark preceding the order number...

Explanation of Solution

b.

Updating query:

Public Function Owner_Update(I_OWNER_NUM, I_LAST_NAME)

    Dim strSQL As String

    strSQL = "UPDATE OWNER SET LAST_NAME = '"

    strSQL = strSQL & I_LAST_NAME

    strSQL = strSQL & "' WHERE OWNER_NUM = '"

    strSQL = strSQL & I_OWNER_NUM

    strSQL = strSQL & "'"

    DoCmd.RunSQL strSQL

End Function

 Explanation:

• Create a function named as “Owner_Update” and pass the arguments “I_OWNER_NUM” and “I_LAST_NAME”.
• Set the strSQL string variable to “UPDATE OWNER SET LAST_NAME = '” and make everything necessary in the command including the single quotation mark preceding the order number...

Explanation of Solution

c.

Retrieving the list in the table “CONDO_UNIT”:

Public Function Find_Condos(I_SQR_FT)

    Dim rs As New ADODB.Recordset

    Dim cnn As ADODB.Connection

    Dim strSQL As String

    Set cnn = CurrentProject.Connection

    strSQL = "SELECT LOCATION_NUM, UNIT_NUM, CONDO_FEE, OWNER_NUM FROM CONDO_UNIT WHERE SQR_FT = "

    strSQL = strSQL & I_SQR_FT

       rs.Open strSQL, cnn, adOpenStatic, , adCmdText

    Do Until rs.EOF

        Debug.Print (rs!LOCATION_NUM)

        Debug.Print (rs!UNIT_NUM)

        Debug.Print (rs!CONDO_FEE)

        Debug.Print (rs!OWNER_NUM)

        rs.MoveNext

    Loop

End Function

 Explanation:

• Create a function named as “Find_Condos” and pass an argument “I_SQR_FT”...