Option Compare Database
Private argomenti As Variant
Private Chiudi As Boolean
Private StrQuery As String
Private Sub Form_AfterDelConfirm(Status As Integer)
Me.ElencoScadenze.Requery
End Sub
Private Sub Form_Current()
Me.ElencoScadenze.RowSource = StrQuery
Me.ElencoScadenze.Requery
End Sub
Private Sub Form_Load()
Dim x As Variant
Dim strUNICO, xNome, xCognome, xRagione, xTipo, xnTipo As String
Chiudi = False
'Se i parametri esistono, li usano
If Len(Me.OpenArgs) > 0 Then
'Split crea una matrice in base zero dalla stringa di input
x = Split(Me.OpenArgs, "|")
argomenti = x
Me.TotFatt = CCur(x(1))
prova = CLng(x(0))
Me.IDDocumento = prova
'Me.ElencoScadenze.Requery
StrQuery = "SELECT * FROM tbPagamento WHERE [IDocumento] = " + CStr(prova) + " ORDER BY [ScadPagamento], [Descrizione];"
strUNICO = DLookup("[idUNICO]", "[tbDocumento]", "[ID] = " & Me.IDDocumento)
xTipo = DLookup("[TipoDocumento]", "[tbDocumento]", "[ID] = " & Me.IDDocumento)
xnTipo = DLookup("[TIPO]", "[tbTipoDoc]", "[IDTipoDoc] = '" & xTipo & "'")
If Left(strUNICO, 3) = "SOC" Then
xNome = DLookup("[Nome]", "[tbSoci]", "UNICO = '" & strUNICO & "'")
xCognome = DLookup("[Cognome]", "[tbSoci]", "UNICO = '" & strUNICO & "'")
xRagione = xNome + " " + xCognome
Else
xRagione = DLookup("[Ragione Sociale]", "[tbFornitori]", "UNICO = '" & strUNICO & "'")
End If
Me.ScadTitolo.Caption = xRagione
Me.ScadTitolo2.Caption = xnTipo + " " + DLookup("[NumeroDoc]", "[tbDocumento]", "[ID] = " & Me.IDDocumento)
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
If (CCur(Me.ResScad.Value) = 0) Then
Chiudi = True
Else
MsgBox "attenzione è necessario inserire tutte le scadenze prima di chiudere la maschera"
Chiudi = False
End If
'MsgBox "finito"
'Cancel = (Not Chiudi)
End Sub
Private Sub ScadPagamento_AfterUpdate()
'MsgBox "ok"
If Not (Me.IDDocumento > 0) Then
identifica = CLng(argomenti(0))
Me.IDDocumento = identifica
End If
End Sub
questo è il codice...
la listbox è elencoscadenze