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