Problème lors d'un insert into

Question

Bonjour,

J'ai le message suivant qui s'affiche: <You entered an expression that has an invalid reference to the property Page.>
Visiblement il prend mon attribut PAGE pour un integer alors qu'il est déclaré comme Text dans la base.....


Private Sub Command12_Click()
Dim rs1 As ADODB.Recordset
Dim rs1bis As ADODB.Recordset
Dim strsql1 As String
Dim strsql1bis As String
Dim v_sex As Integer
Dim v_message As String


' See if the Sex is present in the DEMOG panel '
strsql1 = "SELECT SEX" & _
          " From LAB_DEMO_DEMOG_ALL" & _
          " where PATID = '" & Me.PATID & "'"
Set rs1 = CurrentProject.Connection.Execute(strsql1)

If Not rs1.EOF Then
  v_sex = NoNull(rs1("SEX").Value)
End If

If v_sex = 0 Then
v_message = "The sex is missing for patient " & Me.PATID & ". The sex is mandatory to retrieve lab normal ranges."
strsql1bis = "INSERT INTO Error_message_table (Study, Patid, Visit, Page, Message) " & _
             "VALUES ('" & Me.STUDY & "','" & Me.PATID & "','" & Me.BLOCK & "','" & Me.PAGE & "','" & v_message & "'); "
Set rs1bis = CurrentProject.Connection.Execute(strsql1bis)
End If

End Sub

Avec l'outil debug il me met bien les bonnes valeurs dans toutes les variables sauf dans PAGE.....
Qqn a une idée ??

Merci beaucoup !

cs_Jack · Answer

Salut
Es-tu s&#251;r que le champ Page dans lequel tu veux ins&#233;rer Me.Page soit un champ de type texte ?
S'il est num&#233;rique, il ne faut pas de ' pour encadrer la valeur.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

D'autre part, la m&#233;thode correcte pour r&#233;cup&#233;rer des donn&#233;es dans un RecordSet sous ADBODB est :
monRecordSet.Open maCdeSQL, maConnexionDB, ...

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Problème lors d'un insert into

2 réponses

Discussions similaires