URGENT!!!!!!! Bug dans mon Programme : au lancement: "utilisation non autoriséeRésolu

Question

kikou,
Je dois cr&#233;er une interface permettant de g&#233;rer les stages dans une &#233;cole.
Dans mon prog j'ai 6 tables.
au lancement j'ai une feuille d'accueil permettant &#224; partir d'un menu d'ouvrir la saisie d'&#233;tudiants. Lors de l'ex&#233;cution de cette saisie, il y a un bug qui me dit: "utilisation non autoris&#233;e de null"

D'apr&#232;s moi le probl&#232;me vient du fait d'avoir cr&#233;er ma feuille &#233;tudiant o&#249; j'ai le choix du code postal avec une combobox

Dans la feuille &#233;tudiant j'ai deux data: etudiant et localite et un adodc

Le bug vient au niveau du odbc voici le code et le prob est mis en gras:

Private Sub Form_Load()
Dim adoConnection As ADODB.Connection
Dim adoRecordSet As ADODB.Recordset
Set adoConnection = New ADODB.Connection
Set adoRecordSet = New ADODB.Recordset
Dim ConnectionString As String
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & " Data Source=C:\Documents and Settings\cyrielle\Bureau\Projet_Stage_VB\Projet\Vers97.mdb"
adoConnection.Open ConnectionString
adoRecordSet.Open "TLocalite", adoConnection
Do Until adoRecordSet.EOF
Combocodepostal.AddItem adoRecordSet!Codpos
Combocodepostal.ListIndex = 0
adoRecordSet.MoveNext
Loop
adoRecordSet.Close
adoConnection.Close
Set adoConnection = Nothing
Set adoRecordSet = Nothing

Voil&#224; d'apr&#232;s le d&#233;buggage d'o&#249; vient le probl&#232;me mais j'ai modifi&#233; les relations dans la base access de mes tables pensant que c'&#233;tait &#224; cause des doublons mais apparemment &#231;a ne va pas alors ce serait vraiment cool si qqun pourrait m'aider rapidement car c'est pour un exam de passage et j'aimerais pouvoir finir ce prog assez rapidement
Merci d'avance
Cycy

mrdep1978 · Accepted Answer

Salut,
Pour un des enregistrements de ta table TLocalite, le champ Codpos n'est pas renseign&#233; (=Null). Pour corriger le probl&#232;me, tu peux faire :
Combocodepostal.AddItem adoRecordSet!Codpos & ""
(car la concatenation de Null et une chaine vide renvoie une chaine vide), mais tu verras une ligne vide apparaitre dans ta liste
Ou tester si le champ est null ou non
if Not IsNull(adoRecordSet!Codpos) Then
   Combocodepostal.AddItem adoRecordSet!Codpos
End if

PS : tu n'es pas oblig&#233;e de mettre ListIndex = 0 dans ta boucle. Tu peux la mettre apr&#232;s.

CYCY07 · Answer

Un grand merci c'est vraiment trop gentil je me suis cass&#233;e la t&#234;te pour peu de choses finalement mais ce d&#233;tail l&#224; fallait le savoir

URGENT!!!!!!! Bug dans mon Programme : au lancement: "utilisation non autorisée

2 réponses

Discussions similaires