:dipser: io avrei bisogno di sapere come fare per evitare che ,ogni volta che inserisco un valore stringa in una variabile ,es.(a) nella mia query di aggiornamento,mi continua ad uscire una mascherina di messaggio di access che mi chiede:
"immissione valore parametro"
Ci tengo a precisare che succede solo quando richiedo di aggiornare valori alfanumerici.
Mi spiego meglio....
ho una maschera dove ho inserito caselle di testo che mi permettono di vedere i miei record della tabella.
poi ho inserito tre caselle di testo aggiuntive che utilizzo per l'aggiornamento,di cui la prima la uso per inserire il valore per fare la ricerca uguale a quel valore
es:tutti i valori uguali a scheda numero...
poi la seconda dove inserisco il valore numerico da aggiornare e nella terza il valore alfanumerico che,ad ogni esecuzione ,dopo che ho inserito il testo nella casella ,mi appare sempre la famosa casellina messaggio che ho detto sopra.
sotto vi lascio un codice dove ho provato un po di tutto e chiedo se c'è un modo per evitare che appaia sempre la finestrella messaggio e che inserisca il valore da me scritto in una casella di testo oppure che prenda il valore stringa di una variabile.
Private Sub Comando12_Click()
Controllo_Stato_Immobili_X_PraticaY
Me.Refresh
End Sub
Public Function Controllo_Stato_Immobili_X_PraticaY()
On Error GoTo Err_Controllo_Stato_Immobili_X_PraticaY
a = "PIPPPPPPPPPPPP2"
strSQL = "UPDATE TabImmobili SET TabImmobili.Codice_Immobile = " & Me.val_Codice_Immobile & ",TabImmobili.IntestatariCespitiCauzionali = " & a & " WHERE (((TabImmobili.SchedaDD)= " & Me.valSchedaDD & " ))"
DoCmd.RunSQL strSQL
Exit Function
Err_Controllo_Stato_Immobili_X_PraticaY:
If Err.Number = 3021 Then
Controllo_Stato_Immobili_X_PraticaY = 1
End If
End Function
"immissione valore parametro"
Ci tengo a precisare che succede solo quando richiedo di aggiornare valori alfanumerici.
Mi spiego meglio....
ho una maschera dove ho inserito caselle di testo che mi permettono di vedere i miei record della tabella.
poi ho inserito tre caselle di testo aggiuntive che utilizzo per l'aggiornamento,di cui la prima la uso per inserire il valore per fare la ricerca uguale a quel valore
es:tutti i valori uguali a scheda numero...
poi la seconda dove inserisco il valore numerico da aggiornare e nella terza il valore alfanumerico che,ad ogni esecuzione ,dopo che ho inserito il testo nella casella ,mi appare sempre la famosa casellina messaggio che ho detto sopra.
sotto vi lascio un codice dove ho provato un po di tutto e chiedo se c'è un modo per evitare che appaia sempre la finestrella messaggio e che inserisca il valore da me scritto in una casella di testo oppure che prenda il valore stringa di una variabile.
Private Sub Comando12_Click()
Controllo_Stato_Immobili_X_PraticaY
Me.Refresh
End Sub
Public Function Controllo_Stato_Immobili_X_PraticaY()
On Error GoTo Err_Controllo_Stato_Immobili_X_PraticaY
a = "PIPPPPPPPPPPPP2"
strSQL = "UPDATE TabImmobili SET TabImmobili.Codice_Immobile = " & Me.val_Codice_Immobile & ",TabImmobili.IntestatariCespitiCauzionali = " & a & " WHERE (((TabImmobili.SchedaDD)= " & Me.valSchedaDD & " ))"
DoCmd.RunSQL strSQL
Exit Function
Err_Controllo_Stato_Immobili_X_PraticaY:
If Err.Number = 3021 Then
Controllo_Stato_Immobili_X_PraticaY = 1
End If
End Function
