XL 2010 Erreur exécution 3021 BOF ou EOF

  • Initiateur de la discussion Initiateur de la discussion GHISLAIN
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

GHISLAIN

XLDnaute Impliqué
Bonjour les exceliens

je rencontre un problème lors de la saisie en ADO . Effectivement lorsque mon champs est vide j'ai une erreur d'exécution du type 3021 BOF ou EOF est égale a true .

ci dessous le code que j'utilise


Private Sub UserForm_Initialize()
'alimente la listbox a l'initialise
Fichier = "Article4.xls"
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
répertoire = ThisWorkbook.Path & "\"
cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & répertoire & Fichier
Set rs = cnn.Execute("SELECT DISTINCT NOM FROM BD WHERE NOM<>'' ORDER BY NOM")
a = rs.GetRows
Permis.ComboBox1.List = Application.Transpose(a)
end sub

Private Sub CommandButton1_Click()
repertoire = ThisWorkbook.Path & "\"
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & repertoire & Fichier & ";Extended Properties=Excel 8.0;"
Set rs = New ADODB.Recordset
rs.Open "SELECT * from BD WHERE PRENOM='" & Permis.ListBox1 & "'", cnn, adOpenDynamic, adLockOptimistic



rs(14) = Permis.ComboBox2
rs(18) = Permis.ComboBox2'
rs(19) = Permis.ComboBox3
rs(17) = Permis.ComboBox4
rs(16) = Permis.ComboBox5
rs(15) = Permis.ComboBox6

Unload Me



rs.Update
rs.Close
cnn.Close
end sub



Merci a tous de vos suggestions et aide apportée sur fil

Cordialement

Ghislain
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
180
Réponses
8
Affichages
771
Réponses
8
Affichages
11 K
Retour