If quantità_d >= quantità_r Then
Dim Msg, Style, Title, Response, MyString
Msg = "Confermare il prestito ? " ' Definisce il messaggio.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Definisce i pulsanti.
Title = "Conferma Prestito..." ' Definisce il titolo.
' Visualizza il messaggio.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
Testo63.Requery
If Response = vbYes Then ' L'utente sceglie il pulsante Sì.
If Testo63 = 0 Then
MyString = "" ' Esegue un'azione.
DoCmd.OpenQuery "Registra Prestito"
DoCmd.OpenQuery "Aggiorna Disponibilità 1" 'Ricerca il campo , e aggiunge la quantità
Else
DoCmd.OpenQuery "Aggiorna Prestito"
DoCmd.OpenQuery "Aggiorna Disponibilità 1"
End If
[Forms]![Descrizione]![Articolo].[Form]![Elenco41].Requery
[Forms]![Descrizione]![Articolo].[Form]![Elenco45].Requery
[Forms]![Descrizione]![Articolo].[Form]![Quantità_Articolo] = [Forms]![Descrizione]![Articolo].[Form]!Elenco45.Column(0, 0)
Else ' L'utente sceglie il pulsante No.
MyString = "No" ' Esegue un'azione.
MsgBox "Registrazione Interrotta"
Ecco il codice : dalla maschera principale DESCRIZIONE , che contiene la sottomaschera ARTICOLO , posso , premento il bottone PRESTA , prestare un articolo .
Premendo questo bottone viene aperta la procedura scritta sopra.
Eseguendo passo passo con il Debug le istruzioni , noto che funzionano tutte correttamente , solo che , quando torno alla schermata della maschera principale, mi vien detto che un altro utente ha carcato di inserire o modificare i dati nel data base e mi chiedi di salvarli negli appunti , salvare il record o annullare...
Come mai tutto ciò ???
HELP , devo consegnare il programma a breve !!!
Rispondi quotando
