Discussion :

[Bertrand90]

Bonsoir,

J'ai un message d'erreur sur un bouton et je ne comprends pas pourquoi, lors de l'appui du bouton "nouvell", 3 requêtes sql se lancent pour créer un texte, un élément et une carte sachant que le texte est relié à l'élément et l'élément est relié à la carte.

Voici mon message d'erreur :
l expression Sur clic entree comme parametre de la propriete de type evenement est a l origine d une erreur. Erreur d acces de fichier. La connexion reseau a peut etre ete perdue.

*le resultat de l expression n est pas le nom d une macro, le nom d une fonction definie par l utilisateur ou [event procedure]
*une erreur a peut-etre etait commise lors de l evaluation d une fonction, d un evenement ou d une macro>

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Option Compare Database
Private Sub active(auto As Integer)
Dim strFiltre As String
 
If auto = 1 Then
    Me.ajout.Enabled = True
    Me.CarteElement.Visible = True
    strFiltre = "([ID_CARTE] LIKE '" & Nz(DMax("id_carte", "ELEMENT"), 0) & "')"
 
    With Me.ClientCommandeCarte.Form
       .Filter = strFiltre
       .FilterOn = True
    End With
End If
End Sub
 
Private Sub ajout_Click(bob As Integer)
Dim rqSQL1 As String
Dim rqSQL3 As String
Dim couleur As String
Dim police As String
 
couleur = DLookup("CODE_RVB", "COULEUR", "NOM_COU=" & Chr(34) & Me.COU & Chr(34))
police = DLookup("ID_POLICE", "POLICE", "NOM_POL=" & Chr(34) & Me.POL & Chr(34))
 
 
If Not IsNull(Me.CON) And IsNumeric(Me.TAI) And IsNumeric(Me.PV) And IsNumeric(Me.PH) Then
        rqSQL1 = ("INSERT INTO TEXTE(ID_TEXTE,CODE_RVB,ID_POLICE,CONTENU_TEX,TAILLE_TEX) VALUES('" & Nz(DMax("id_texte", "TEXTE"), 0) + 1 & "'," & couleur & "," & police & ",'" & Me.CONTENU_TEX & "','" & Me.TAILLE_TEX & "')")
        rqSQL3 = ("INSERT INTO ELEMENT(ID_CARTE,ID_ELEMENT,ID_TEXTE,VERTICAL_ELE,HORIZONTAL_ELE) VALUES('" & Nz(DMax("id_carte", "CARTE"), 0) & "', '" & Nz(DMax("id_element", "ELEMENT"), 0) + 1 & "','" & Nz(DMax("id_texte", "TEXTE"), 0) & "', '" & Me.PV & "','" & Me.PH & "')")
        DoCmd.RunSQL (rqSQL)
        DoCmd.RunSQL (rqSQL3)
        active (1)
    Else
       MsgBox "Valeur érronée ou manquante"
    End If
End Sub
 
Private Sub nouvelle_Click()
Dim rqSQL1 As String
Dim rqSQL2 As String
Dim rqSQL3 As String
Dim couleur As String
Dim police As String
 
couleur = DLookup("CODE_RVB", "COULEUR", "NOM_COU=" & Chr(34) & Me.COU & Chr(34))
police = DLookup("ID_POLICE", "POLICE", "NOM_POL=" & Chr(34) & Me.POL & Chr(34))
 
If Not IsNull(Me.CON) And IsNumeric(Me.TAI) And IsNumeric(Me.PV) And IsNumeric(Me.PH) Then
        rqSQL1 = ("INSERT INTO TEXTE(ID_TEXTE,CODE_RVB,ID_POLICE,CONTENU_TEX,TAILLE_TEX) VALUES('" & Nz(DMax("id_texte", "TEXTE"), 0) + 1 & "'," & couleur & "," & police & ",'" & Me.CONTENU_TEX & "','" & Me.TAILLE_TEX & "')")
        rqSQL2 = ("INSERT INTO CARTE(ID_CARTE) VALUES('" & Nz(DMax("id_carte", "CARTE"), 0) + 1 & "')")
        rqSQL3 = ("INSERT INTO ELEMENT(ID_CARTE,ID_ELEMENT,ID_TEXTE,VERTICAL_ELE,HORIZONTAL_ELE) VALUES('" & Nz(DMax("id_carte", "CARTE"), 0) & "', '" & Nz(DMax("id_element", "ELEMENT"), 0) + 1 & "','" & Nz(DMax("id_texte", "TEXTE"), 0) & "', '" & Me.PV & "','" & Me.PH & "')")
        DoCmd.RunSQL (rqSQL1)
        DoCmd.RunSQL (rqSQL2)
        DoCmd.RunSQL (rqSQL3)
        active (1)
    Else
       MsgBox "Valeur érronée ou manquante"
    End If
End Sub

Merci d'avance!

[Bertrand90]

Résolu désolé pour le dérangement

edit :

Par contre j'ai un autre soucis, Me.POL et ME.COU sont des zones déroulantes ou je choisis le nom_police et nom_couleur, les variables couleur et police doivent prendre donc la valeur des id des tables c'est à dire couleur = id_couleur et police = id_police. Par contre, peu importe les champs que je choisis dans mes zones déroulantes me.pol et me.cou je rentre toujours dans la condition "else" ca veut dire que couleur = variable = 0 et je comprends donc pas pourquoi les variables ne prennent pas les valeur des id que j'ai choisis avec les zones déroulantes.

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
Private Sub Nouvelle_Click()
Dim rqSQL1 As String
Dim couleur As String
Dim police As String
 
couleur = Nz(DLookup("CODE_RVB", "COULEUR", "NOM_COU=" & Chr(34) & Me.COU & Chr(34)), 0)
police = Nz(DLookup("ID_POLICE", "POLICE", "NOM_POL=" & Chr(34) & Me.POL & Chr(34)), 0)
 
If couleur <> 0 And police <> 0 Then
        rqSQL1 = ("INSERT INTO TEXTE(ID_TEXTE,CODE_RVB,ID_POLICE,CONTENU_TEX,TAILLE_TEX) VALUES(" & Nz(DMax("id_texte", "TEXTE"), 0) + 1 & "," & couleur & "," & police & ",'" & Me.CON & "'," & Me.TAI & ")")
        DoCmd.RunSQL (rqSQL1)
Else
MsgBox "erreur"
End If
 
End Sub

merci de votre aide