1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Private Sub ModifRemarqueConc_Click()
Dim Nouveau as String, champ as String
Nouveau = Me![selrq].Column(2)
champ = "REMARQUE_CONC"
Call Modifier(Nouveau, champ)
End Sub
Sub Modifier(Nouveau as String, champ as String)
Dim num
DoCmd.SetWarnings False
num = Me![seldos].Column(0)
If Nouveau = "" Then
MsgBox "Veuillez saisir l'information à modifier", 48, "ANOMALIE"
Else
sql = "UPDATE DOSSIERS SET DOSSIERS." & champ & " = '" & Replace(Nouveau, "'", "''") & "' "
sql = sql & "WHERE ((DOSSIERS.NUM_DOS)='" & Replace(num, "'", "''") & "');"
DoCmd.RunSQL (sql)
End If
Me.Refresh
Me![seldos].Requery
Call seldos_Change
End Sub |
Partager