Salut !
Voila quand j'essaie d'ouvrir mon formulaire, j'ai un message qui s'affiche "Incohérence de type...". Il fonctionnait bien hier quand je faisais des essais mais aujourd'hui première utilisation et... Planté
Je ne sais même pas ou chercher il y a deux procédure évènementielles et 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 Private Sub cmbSecteur_AfterUpdate() Dim lngIDSECTEUR As Long Dim SQL As String If Not IsNumeric(Me!cmbSecteur) Then Exit Sub lngIDSECTEUR = Me!cmbSecteur SQL = "SELECT IDville, ville, idsecteur FROM TVilles WHERE idSECTEUR =" & lngIDSECTEUR & " ORDER BY ville" cmbVILLE.RowSource = SQL cmbVILLE.Enabled = True cmbVILLE.SetFocus cmbVILLE.Dropdown End SubMACRO:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub cmbVILLE_AfterUpdate() Dim lngIDville As Long Dim SQL As String If Not IsNumeric(Me!cmbVILLE) Then Exit Sub lngIDville = Me!cmbVILLE SQL = "SELECT ID, nom, idville FROM contacTS WHERE idville =" & lngIDville & " ORDER BY nom" cmbNom.RowSource = SQL cmbNom.Enabled = True cmbNom.SetFocus cmbNom.Dropdown End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 ACTION : RechercherEnregistrement ARGUMENTS : ; ; Premier; ="[ID] = " & Str(Nz([Screen].[ActiveControl];0))
La dernière procédure évènementielle et la macro sont sur la même liste déroulante. Ça peut être pour ça ? Si c'est le cas quelle sont les solutions pour avoir les mêmes actions sans problèmes ?
Merci
Je viens de remarquer que la table a laquelle est liée le formulaire a aussi un ptit souci (plutot moi avec elle ) Elle me mets des clés primaire qui existe déjà comment ça se fait ? Donc g un message "Modifications non effectuées, risque de doublons...."
Merci
(j'espère que ce coup ci j'ai rien oublié -balises, etc- et que j'ai posté au bon endroit)
Partager