Private Sub Form_BeforeInsert(Cancel As Integer)
    'Assign a primary key, since Access isn't smart enough to retrieve the
    'database-generated one (or ODBC provides no generic mechanism for doing so).
    If Not IsNull(Me.booking_id) Then
        Error (1)
    End If
    Me.booking_id = nextval("booking_booking_id_seq")
End Sub