data base access 2007

[linea3000]

Salve ragazzi ho un probblema con il data base access 2007

devo eliminare dalla routin la parte che mi obbliga a verificare se il prodotto è disponibile in inventario o (magazzino)
il codice sotto è quello collegato al pulsante fattura,

avete un consiglio semplice ........

Private Sub cmdCreateInvoice_Click()
Dim OrderID As Long
Dim InvoiceID As Long

OrderID = Nz(Me![ID ordine], 0)

' Se la fattura è già stata creata, l'operazione non verrà eseguita
If OrdiniClienti.IsInvoiced(OrderID) Then
If MsgBoxYesNo(OrderAlreadyInvoiced) Then
OrdiniClienti.PrintInvoice OrderID
End If
ElseIf ValidateOrder(Invoiced_CustomerOrder) Then

' Crea record fattura
If OrdiniClienti.CreateInvoice(OrderID, 0, InvoiceID) Then

' Contrassegna come fatturati tutti gli articoli dell'ordine
' È necessario modificare lo stato di inventario da Sospeso a Venduto
Dim rsw As New WrapperRecordset
With rsw.GetRecordsetClone(Me.sbfOrderDetails.Form.Reco rdset)
While Not .EOF
If Not IsNull(![ID inventario]) And ![ID stato] = OnHold_OrderItemStatus Then
rsw.Edit
![ID stato] = Invoiced_OrderItemStatus
rsw.Update
Inventario.HoldToSold ![ID inventario]
End If
rsw.MoveNext
Wend
End With

' Stampa la fattura
OrdiniClienti.PrintInvoice OrderID

SetFormState
End If
End If

[comas17]

Dal Regolamento, punto 1)

In questo forum NON si parla di alcune funzionalità peculiari di Microsoft Access (macro, maschere, report, etc) che continueranno ad essere trattate nel forum "Windows e software"

Sposto in Software