Discussion :

[steph_p]

Bonjour,
J'ai créé un formulaire de vérification d'informations. Si l'utilisateur se rend compte qu'une erreur a été commise, il saisit alors la nouvelle valeur et clique sur un bouton de "Mise à jour".
Pour la mise à jour des champs numériques aucun problème, par contre pour les champs texte cela ne fonctionne plus.
En effet au cours de la comparaison, la valeur du champ est lu comme "dauphin commun" alors que la valeur par défaut (identique pourtant) est lu ""dauphin commun"".
Voici le code de Mise à Jour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
29
Private Sub Commande18_Click()
    If Texte2.Value <> Texte2.DefaultValue Then
        MsgBox ("Un changement doit être fait !")
        req2 = "UPDATE desc_age SET age =" & Texte2.Value & " Where num_collection =" & Texte0.Value & ";"
        DoCmd.RunSQL req2
        MsgBox ("Un changement a été fait !")
        End If
 
    If Texte4.Value <> Texte4.DefaultValue Then
        MsgBox ("Un changement doit être fait !")
        req2 = "UPDATE desc_sexe SET sexe =" & Texte2.Value & " Where num_collection =" & Texte0.Value & ";"
        DoCmd.RunSQL req2
        MsgBox ("Un changement a été fait !")
        End If
 
    If Texte6.Value <> Texte6.DefaultValue Then
        MsgBox ("Un changement doit être fait !")
        req2 = "UPDATE desc_age SET longueur =" & Texte6.Value & " Where num_collection =" & Texte0.Value & ";"
        DoCmd.RunSQL req2
        MsgBox ("Un changement a été fait !")
        End If
 
    If Texte11.Value <> Texte11.DefaultValue Then
        MsgBox ("Un changement doit être fait !")
        req2 = "UPDATE desc_espece SET espece = " & Texte11.Value & " Where num_collection =" & Texte0.Value & ";"
        DoCmd.RunSQL req2
        MsgBox ("Un changement a été fait !")
        End If
End Sub

Ainsi que le code permettant de remplir les cases par défaut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
rep.MoveFirst
        Texte2.DefaultValue = rep(0)
        ' text2 = Age
        Texte4.DefaultValue = rep(1)
        ' text4 = sexe
        Texte8.DefaultValue = """" & rep2(0) & """"
        ' texte8 = statut repro
        Texte6.DefaultValue = rep(3)
        ' texte6 = longueur
        Texte11.DefaultValue = """" & rep(2) & """"
        ' texte 11 = espece

Merci d'avance pour votre aide

[Taoueret]

IL te faut comparer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
"""" &me.texte11.value &"""" <> me.texte11.defaultValue

Mais pour ta requête de mise à jour, il ne faut pas oublier également les côtes ou les guillemets pour mettre à jour tes champs textes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
If Texte11.Value <> Texte11.DefaultValue Then
        MsgBox ("Un changement doit être fait !")
        req2 = "UPDATE desc_espece SET espece = '" & Texte11.Value & "' Where num_collection =" & Texte0.Value & ";"
        DoCmd.RunSQL req2
        MsgBox ("Un changement a été fait !")
End If

[steph_p]

Merci ça fonctionne parfaitement.