Probleme pour ouvrir une forme contenant des donnéesRésolu

Question

Bonjour tout le monde

J'aurais besoin d'une aide pour finir mon code svp.

Voici ci dessus mon code

Option Explicit 
Dim cnx As ADODB.Connection 
Dim rst As ADODB.Recordset 
Dim cmado As New ADODB.Command 

Private Sub Form_Load() 

Set cnx = New ADODB.Connection 

Set rst = New ADODB.Recordset 

cnx.Provider = "Microsoft.Jet.Oledb.4.0" 
cnx.ConnectionString = App.Path & "\emailenvoy&#233;.mdb" 
cnx.Open 

cmado.ActiveConnection = cnx 

rst.CursorLocation = adUseClient 

rst.CursorType = adOpenDynamic 

rst.LockType = adLockOptimistic 

suivant.Enabled = Not Adodc1.Recordset.EOF 

auparavant.Enabled = Not Adodc1.Recordset.BOF 

Text4.Text = Adodc1.Recordset.RecordCount 

If Text4 = 0 Then 

MsgBox ("Aucune donn&#233;es entr&#233;e pour le moment") 

Else 

rst.Open "select * from email;", cnx 

Text1.Text = rst!Date 
Text2.Text = rst!Time 
Text3.Text = rst!destinataire 
Text7.Text = rst!messag 
Text6.Text = rst!objet 
Text5.Text = rst!numeroemail 

rst.MoveNext 

Me.Refresh 

End If 

End Sub

Voil&#224; mon probl&#232;me

Est que lorsque j'ouvre ma forme vb me lance 

Erreur d'execution
"variable objet ou bloc with non d&#233;finie"

Pourriez vous m'aider a r&#233;gler ce probl&#232;me.

Mercie d'avance de votre aide

Cordiallement

A bient&#244;t

developvbdebut · Accepted Answer

Bonsoir tout le monde

Mon probl&#232;me est r&#233;gl&#233; grace au chat du site

Voici les codes ci dessous

suivant.Enabled = Not rst.EOF


auparavant.Enabled = Not rst.BOF


Text4.Text = rst.RecordCount

Cordiallement

A bient&#244;t

mrdep1978 · Answer

Salut,

Je pense que &#231;a vient de la ligne
cmado.ActiveConnection = cnx 
il faut mettre
Set cmado.ActiveConnection = cnx 
car cnx est un objet

jpleroisse · Answer

Bonjour,

J'ai essay&#233; ton code, et le probl&#232;me vient de ces lignes:

A mon avis ces lignes ne doivent pas &#234;tre dans le code de liaison &#224; la
base de donn&#233;es, mais dans les proc&#233;dures des Commandbutton.



suivant.Enabled = Not Adodc1.Recordset.EOF 
auparavant.Enabled = Not Adodc1.Recordset.BOF 
Text4.Text = Adodc1.Recordset.RecordCount If Text4 0 Then  (If text4 "")

C'est le contr&#244;le Adodc qui pose probl&#232;me.





jpleroisse

jpleroisse · Answer

Re,

J'ai supprim&#233; ces lignes et ton code marche bien.

jpleroisse

developvbdebut · Answer

Bonsoir tout le monde

pouvez vous m'aider a modifier mon code pour que sa marche.

Car il faut que l'utilisateur puis voir combien de mail sont enregistrer, c'est pour ca que j'utilise Text4.Text = Adodc1.Recordset.RecordCount 

De plus, les code ci-dessous sont la pour bloquer les boutons quand la table est vide.

suivant.Enabled = Not Adodc1.Recordset.EOF 
auparavant.Enabled = Not Adodc1.Recordset.BOF 

Mercie pous votre aide!

Cordiallement

A bient&#244;t

Probleme pour ouvrir une forme contenant des données

5 réponses

Discussions similaires