出現編譯錯誤:如題
Private Sub datOrder_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If Not (datOrder.Recordset.BOF Or datOrder.Recordset.EOF) Then
    If Not datOrder.Recordset.EditMode <> 0 Then
      frmVIP.datVIP.Recordset.MoveFirst
      frmVIP.datVIP.Recordset.Find "身分證號 = '" & datOrder.Recordset("會員編號") & "'"
      frmGoods.datGoods.Recordset.MoveFirst
      frmGoods.datGoods.Recordset.Find "編號 = '" & datOrder.Recordset("商品編號") & "'"
    End If
  End If
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()