Je recois tout le temp ce message d'erreur la....que dois-je faire
"impossible de faire référence à une propriété ou la définir pour un
controle si ce dernier n'est pas activé"
pourtant il es activé dans le s propriété
Private Sub NomEntreprise_Change()
Dim temp As String
Dim tempNo As Integer
Dim rs As New ADODB.Recordset
Dim Cn As ADODB.Connection
Set Cn = Application.CurrentProject.Connection
temp = NomEntreprise.Text
sql = "select * from Info_Entreprise_Generale where nomentreprise = " +
"'" + temp + "'"
rs.Open sql, Cn, 3, 3
If rs.RecordCount > 0 Then
With rs
.Update
If !NoMembre <> "" Then
NoMembre.Text = !NoMembre erreur
Else
NoMembre.Text = "N/A" erreur
End If
.Update
rs.Close
Set rs = Nothing
End With
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond
Bonsoir.
Text est une propriété et non une valeur. à la limite utiliser .value
If !NoMembre <> "" Then NoMembre.Text = !NoMembre erreur Else NoMembre.Text = "N/A" erreur End If
If !NoMembre <> "" Then NoMembre = !NoMembre Else NoMembre = "N/A" erreur End If
!NoMembre et NoMembre ne représenteraient-ils pas la même donnée ? si non ne pas donner de nom identique, si oui il y a problème.
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Jac" a écrit dans le message de news:
Je recois tout le temp ce message d'erreur la....que dois-je faire
"impossible de faire référence à une propriété ou la définir pour un controle si ce dernier n'est pas activé"
pourtant il es activé dans le s propriété
Private Sub NomEntreprise_Change() Dim temp As String Dim tempNo As Integer Dim rs As New ADODB.Recordset Dim Cn As ADODB.Connection Set Cn = Application.CurrentProject.Connection temp = NomEntreprise.Text sql = "select * from Info_Entreprise_Generale where nomentreprise = " +
"'" + temp + "'" rs.Open sql, Cn, 3, 3 If rs.RecordCount > 0 Then With rs .Update If !NoMembre <> "" Then NoMembre.Text = !NoMembre erreur Else NoMembre.Text = "N/A" erreur End If .Update rs.Close Set rs = Nothing End With End If End Sub
Text est une propriété et non une valeur. à la limite utiliser .value
If !NoMembre <> "" Then
NoMembre.Text = !NoMembre erreur
Else
NoMembre.Text = "N/A" erreur
End If
If !NoMembre <> "" Then
NoMembre = !NoMembre
Else
NoMembre = "N/A" erreur
End If
!NoMembre et NoMembre ne représenteraient-ils pas la même donnée ? si non ne
pas donner de nom identique, si oui il y a problème.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Jac" <jean-francois.guenet@stablex.com> a écrit dans le message de
news:ujuLdg7dDHA.2324@TK2MSFTNGP12.phx.gbl...
Je recois tout le temp ce message d'erreur la....que dois-je faire
"impossible de faire référence à une propriété ou la définir pour un
controle si ce dernier n'est pas activé"
pourtant il es activé dans le s propriété
Private Sub NomEntreprise_Change()
Dim temp As String
Dim tempNo As Integer
Dim rs As New ADODB.Recordset
Dim Cn As ADODB.Connection
Set Cn = Application.CurrentProject.Connection
temp = NomEntreprise.Text
sql = "select * from Info_Entreprise_Generale where nomentreprise = "
+
"'" + temp + "'"
rs.Open sql, Cn, 3, 3
If rs.RecordCount > 0 Then
With rs
.Update
If !NoMembre <> "" Then
NoMembre.Text = !NoMembre erreur
Else
NoMembre.Text = "N/A" erreur
End If
.Update
rs.Close
Set rs = Nothing
End With
End If
End Sub
Text est une propriété et non une valeur. à la limite utiliser .value
If !NoMembre <> "" Then NoMembre.Text = !NoMembre erreur Else NoMembre.Text = "N/A" erreur End If
If !NoMembre <> "" Then NoMembre = !NoMembre Else NoMembre = "N/A" erreur End If
!NoMembre et NoMembre ne représenteraient-ils pas la même donnée ? si non ne pas donner de nom identique, si oui il y a problème.
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Jac" a écrit dans le message de news:
Je recois tout le temp ce message d'erreur la....que dois-je faire
"impossible de faire référence à une propriété ou la définir pour un controle si ce dernier n'est pas activé"
pourtant il es activé dans le s propriété
Private Sub NomEntreprise_Change() Dim temp As String Dim tempNo As Integer Dim rs As New ADODB.Recordset Dim Cn As ADODB.Connection Set Cn = Application.CurrentProject.Connection temp = NomEntreprise.Text sql = "select * from Info_Entreprise_Generale where nomentreprise = " +
"'" + temp + "'" rs.Open sql, Cn, 3, 3 If rs.RecordCount > 0 Then With rs .Update If !NoMembre <> "" Then NoMembre.Text = !NoMembre erreur Else NoMembre.Text = "N/A" erreur End If .Update rs.Close Set rs = Nothing End With End If End Sub
