rq sql

Question

en faite j'ai crée un e requéte sql qui me permet de compter le nombre de fois ou un numéros est répéter dans le champ numéros et de mettre ce numéros la dans un textbox
ça marche bien quand je met le code dans un bouton de commande et que je click j'ai le n° qui s'affiche dans le textbox
maintenant quand je veux mettre le code dans le from_load pour que dés que j'excute le textbox affiche le nombre mais je réussi pas avec ce code
With d6
m = t1.Text
'.DatabaseName = chemin.RecordSource "select count(*) as Compte from echeancier where num_adher " & m & "  ;"
.Refresh
t8.Text = .Recordset!compte
End With

cs_frop01 · Answer

Est-ce que t1.Text contient une valeur au départ de Form_Load ??

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:)

cs_PhilippeE · Answer

Dans le cas présenté par frop01, il te faut gérer le problème ainsi (je mets des ~ pour l'indentation, c'est pas joli sinon) :

With d6
~~If t1.Text <> "" Then
~~~~m = t1.Text~~~~.RecordSource "select count(*) as Compte from echeancier where num_adher " & m & " ;"
~~Else
~~~~.RecordSource = "select count(*) as Compte from echeancier;"
~~End If
~~.Refresh
~~t8.Text = .Recordset!Compte
End With

cs_frop01 · Answer

pour l'identation tu peux utiliser 
les balises  

ex :

 

With d6
  If t1.Text <> "" Then
    m = t1.Text    .RecordSource "select count(*) as Compte from echeancier where num_adher " & m & " ;"
  Else
    .RecordSource = "select count(*) as Compte from echeancier;"
  End If
  .Refresh
  t8.Text = .Recordset!Compte
End With 



 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:)

cs_frop01 · Answer

oups apparement ca marche pas. il faudrait voir avec les adminCS

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:)

cs_frop01 · Answer

je veux juste essayer un truc



    hello
 Hello2



 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:)

cs_frop01 · Answer

ah voila donc ca marche 



With d6
  If t1.Text <> "" Then
    m = t1.Text    .RecordSource "select count(*) as Compte from echeancier where num_adher " & m & " ;"
  Else
    .RecordSource = "select count(*) as Compte from echeancier;"
  End If
  .Refresh
  t8.Text = .Recordset!Compte
End With 



 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:)

Rq sql

6 réponses

Discussions similaires