Access - pb remplacement valeur dans subform
Résolu/Fermé
ibill
Messages postés
4
Date d'inscription
samedi 10 mai 2008
Statut
Membre
Dernière intervention
14 mai 2008
-
10 mai 2008 à 16:10
ibill Messages postés 4 Date d'inscription samedi 10 mai 2008 Statut Membre Dernière intervention 14 mai 2008 - 14 mai 2008 à 13:11
ibill Messages postés 4 Date d'inscription samedi 10 mai 2008 Statut Membre Dernière intervention 14 mai 2008 - 14 mai 2008 à 13:11
A voir également:
- Access - pb remplacement valeur dans subform
- Coco chat remplacement - Accueil - Réseaux sociaux
- Remplaçant de Coco : quelles solutions pour tchater gratuitement en ligne ? - Accueil - Réseaux sociaux
- Remplacer dans word - Guide
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Remplacement disque dur par ssd - Guide
2 réponses
ibill
Messages postés
4
Date d'inscription
samedi 10 mai 2008
Statut
Membre
Dernière intervention
14 mai 2008
10 mai 2008 à 17:34
10 mai 2008 à 17:34
Première tentative...
Private Sub cmdSupZone_Click()
Dim SQL As String
SQL = "UPDATE T_ZONES INNER JOIN T_ECOLES "
SQL = SQL + "ON T_ZONES.IDZONE = T_ECOLES.IDZONE "
SQL = SQL + "SET T_ECOLES.IDZONE = 'non affecté'"
SQL = SQL + " WHERE ((([Formulaires]![F_ECOLES]![IDECOL])"
SQL = SQL + "=[T_ECOLES]![IDECOL]));"
DoCmd.RunSQL SQL
End Sub
Mais ça ne marche pas... Il me demande un paramètre (?), puis met à jour 0 lignes !
Merci de m'aider à y voir plus clair :)
Private Sub cmdSupZone_Click()
Dim SQL As String
SQL = "UPDATE T_ZONES INNER JOIN T_ECOLES "
SQL = SQL + "ON T_ZONES.IDZONE = T_ECOLES.IDZONE "
SQL = SQL + "SET T_ECOLES.IDZONE = 'non affecté'"
SQL = SQL + " WHERE ((([Formulaires]![F_ECOLES]![IDECOL])"
SQL = SQL + "=[T_ECOLES]![IDECOL]));"
DoCmd.RunSQL SQL
End Sub
Mais ça ne marche pas... Il me demande un paramètre (?), puis met à jour 0 lignes !
Merci de m'aider à y voir plus clair :)
ibill
Messages postés
4
Date d'inscription
samedi 10 mai 2008
Statut
Membre
Dernière intervention
14 mai 2008
14 mai 2008 à 13:11
14 mai 2008 à 13:11
Pour au final en arriver tout simplement à :
Me.IDZONE = "non affecté" Me.Requery
13 mai 2008 à 11:05
Private Sub cmdSupZone_Click()
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Set DB = CurrentDb
Set RS = DB.OpenRecordset("ECOLES", dbOpenDynaset)
RS.Edit
RS("IDZONE") = "non affecté"
RS.Update
RS.Requery
Set RS = Nothing
Set DB = Nothing
End Sub
C'est toujours pas bon !!
Please help...