Buongiorno,
Mi corre l'obbligo di chiedere scusa a quanti hanno visionato/risposto alla precedente mia, poiché non sono stato stato esplicito.
Trattasi de gestione ricambi per auto. Software ad uso non fiscale.
Maschera Magazzino_Articoli_Clienti e Sottomaschera Magazzino_Articoli_Scarico Sottomaschera.
Inserendo, nella maschera, il nome di un cliente, N° Doc , Data Doc e Tipo Doc., si passa alla
Sottomaschera
Cliccando sulla sull'icona di ricerca si apre una videata, non in popup e sincrona, che evidenzia solo le righe di merce (con UM, Qta, Prezzo di Acq, quest'ultimo, ovviamente sarà variato in fase di chiusura del documento stesso) di quel cliente (specificando con una lettera se G(iacente) oppure V(enduto). Cliccando sull'icona Invia, l'intera riga è scritta, oppure più righe, sul documento di uscita, riportando anche da chi è il fornitore di detta merce.
Ovviamente, nella videata di selezione righe di merce, è attiva la ricerca, per contenuto, per Codice e Descrizione.
Se, per errore avesse cliccato su un rigo che attualmente non è stato installato, basterà cliccare su quello stesso rigo, della videata di selezione merce acquistata, e sarà ripristinato il valore G(iacenza) e cancellato il rigo dal documento di uscita.
Fin qui il software risponde bene, almeno fino ad ora.
Nuova soluzione:
Vorrei che, in caso di errore, senza rientrare nella videata di selezione merce acquistata, cliccando sull'icona cancella, fosse cancellato il rigo in questione e ripristinato lo stato G(iacenza), ecco il perché della lettera G nel codice findfirst.
Il Problema è che la lettera G deve essere riportata in un'altra tabella avente nome Magazzino_Articoli_Carico ad un preciso ID.
Spero di essere stato più esaustivo che non in preceddenza.
Grazie a Voli tutti,
Nicola
Private Sub Aggiorna_Record_Click()
Testo53 = ID_Mag_Art_Forn
Dim Scadenzario_RIba_2021_03_23_10_03_Natale As DAO.Database ' Apertura di un collegamento db
Dim Magazzino_Articoli_Carico As DAO.Recordset ' Apertura di un collegamento a tabella
Set Scadenzario_RIba_2021_03_23_10_03_Natale = CurrentDb ' Apre il collegamento sul DBCorrente
Set Magazzino_Articoli_Carico = Scadenzario_RIba_2021_03_23_10_03_Natale.OpenRecordset("Magazzino_Articoli_Carico", dbOpenDynaset) ' Apertura tabella/query
Magazzino_Articoli_Carico.FindFirst "[ID_Mag_Art_Forn ]=" & Testo53 ' Cerca il primo dato con con il campo ID=MiaVariabile
Magazzino_Articoli_Carico.FindFirst "[ID_Mag_Art_Forn] =" & Me.Testo53
If Magazzino_Articoli_Carico.NoMatch Then ' Controllo
MsgBox "Record not found."
GoTo Chiusura
Else
Do While Not Magazzino_Articoli_Carico.NoMatch
MsgBox "Customer name: " & Magazzino_Articoli_Carico!ID_Mag_Art_Forn
Magazzino_Articoli_Carico.FindNext "[ID_Mag_Art_Forn]=" & Me.Testo53
Magazzino_Articoli_Carico.Edit ' Abilita la modifica del record
Loop
End If
Magazzino_Articoli_Carico.Fields("Venduto") = "G" ' Imposta valore del campo
Magazzino_Articoli_Carico.Update ' Aggiorna valore del campo
DoCmd.RunCommand acCmdSaveRecord ' Aggiorna record
Chiusura:
Magazzino_Articoli_Carico.Close ' Chiusura Tabella
Scadenzario_RIba_2021_03_23_10_03_Natale.Close ' Chiusura DB
End Sub