Condividi:        

[Vba + Access] Confronto tra textbox & query

Problemi di HTML? Di PHP, ASP, .NET, JSP, Perl, SQL, JavaScript, Visual Basic..?
Vuoi realizzare programmi in C, C++, Java, Ruby o Smalltalk, e non sai da che parte cominciare?
Entra qui e troverai le risposte!

Moderatori: Anthony47, Triumph Of Steel, archimede

[Vba + Access] Confronto tra textbox & query

Postdi tommolo » 30/11/16 16:50

ciao ragazzi

ho scritto il seguente codice per aggiornare tramite una maschera la query2 da me creata.
L'unico problema che riscontro e' che, quando uso il tasto aggiorna che cambiare i valori del record,
non c'e' distinzione tra quando il valore viene assegnato e quando non succede niente.

Vi sottolineo la parte di codice interessata.
Vorrei isolare il caso in cui il codice(chiave primaria) inserito non sia presente nella tabella di origine e quindi non venga inserito.

Con questo codice ogni volta che si "Aggiorna" con un codice di formato corretto , appare il messaggio codice inserito.
In realta' la tabella di origine non accetta duplicati e si possono inserire solo codici gia' presenti nel db
Qualche idea?

Fatemi sapere se sono stato chiaro o no.
Codice: Seleziona tutto
Private Sub cmdAggiorna_Click()
       Dim Msg
     
       If Me.cmbColonna.Value = "" Or Me.cmbRiga.Value = "" Then
             Msg = MsgBox("Per modificare devi scegliere riga e colonna", vbOKOnly, "Errore")
       Else
              If Me.txtCodice.Value <> "" Then   
                    CurrentDb.Execute "UPDATE Query2 SET Codice_Viteria=" & Me.txtCodice &
                     " WHERE Riga=" & Me.cmbRiga & "AND Colonna=" & Me.cmbColonna
                      Msg = MsgBox("Codice inserito", vbOKOnly, "Inserimento")
             Else

                    CurrentDb.Execute "UPDATE Query2 " & _
                    " SET Codice_Viteria= null" & _
                    " WHERE Riga='" & Me.cmbRiga & "'" & _
                    " AND Colonna=" & Me.cmbColonna
                     Msg = MsgBox("Codice eliminato", vbOKOnly, "Eliminazione")
             End If
       End If
'pulisci gli spazi dopo ogni modifica
cmdPulisci_Click
'aggiorna i dati ad ogni modifica
InsertSub.Form.Requery
End Sub

ps non conosco il modo di indentare il codice sul forum quindi cerchero' di ordinarlo come posso
Avatar utente
tommolo
Utente Senior
 
Post: 241
Iscritto il: 03/12/10 00:02

Sponsor
 

Postdi archimede » 03/12/16 09:43

Hai provato ad aggiungere l'opzione dbFailOnError?

A parte questo, non credo sia possibile mettere a null un campo che è chiave primaria.

HTH.

Alessandro
archimede
Moderatore
 
Post: 2851
Iscritto il: 07/11/02 12:41
Località: Genova


Torna a Programmazione


Topic correlati a "[Vba + Access] Confronto tra textbox & query":


Chi c’è in linea

Visitano il forum: Nessuno e 4 ospiti

cron