[Catégorie modifiée .Net - VBA] comment stocker la valeur des champs d'une tabl

Question

Bonjour,
je suis entrain de travailler sur un projet et depuis un moment je bloque sur une partie qui m'empêche d'avancer. en effet je voudrais à partir de la table "[0 - 00 - Société Juridique analysée]" stocker les valeur des enregistrement du champs "société " dans une variable en VBA.
voici ce que j'ai déjà eu à faire, mais j'ai un problème d'incompatibilité de type:

Public Function alimentation()

Dim rst As ADODB.Recordset
Dim sql As String
Dim A As String

sql = "SELECT société FROM [0 - 00 - Société Juridique analysée]"
Set rst = CurrentDb.OpenRecordset(sql)
If rst.EOF = False Then
  A = rst("société")
  
Else
  A = Not found
  rst.Close
End If
MsgBox A

End Function

Merci de me proposer des solutions pour que je puisse avancer.
cdt.

NHenry · Answer

Bonjour,

A=rst("société").Value
ça passe ?

Mon site

armel13 · Answer

@NHenry 
merci, j'ai essayé ça mais ca marche toujours pas. Apparemment le problème se pose à ce niveau:
Set rst = CurrentDb.OpenRecordset(sql). J'ai à chaque fois un message d'incompatibilité de types

armel13 · Answer

Problème résolu :

Public Function alimentation()

Dim rst As DAO.Recordset
Dim sql As String
Dim A As String

sql = "SELECT société FROM [0 - 00 - Société Juridique analysée]"
Set rst = CurrentDb.OpenRecordset(sql)
If rst.EOF = False Then
A = rst("société")

Else
A = Not found
rst.Close
End If
MsgBox A

End Function 


Après avoir coché dans outil\référence, l'importation de la librairie DAO...

Merci à toi NHenry de t'être penché sur le problème.

moonlight2011 · Answer

Bonjour;
Moi aussi j'ai ptit souci avec Access/Excel. en fait je suis débutrice en VBA jai fait une application qui exporte une feuille Excel en une table qui se crée automatiquement dans une base de donné. le prob qui se pose c'est que j'ai des champs qui sont vides alors que ça bug des qu'il trouve un champ vide donc il naccepte pas la valeur Null. le Prob c que je peux pas m'amuser à modifier les caractéristique des champs de  la table car j'en ai une soixantaine? est ce qu'il ya une commande à ajouter sur VBA lors de la création de la table pour mettre par défaut que les champs vides sont tolérés? 
Merci pour votre aide

NHenry · Answer

Bonjour,

armel13, pour information, DAO est obsolète depuis plusieurs années, je suppose que tu es en VBA Access, donc tu n'as pas le choix.

moonlight2011, hormis changer les caractéristiques des tables, je ne vois pas de solution.

Mon site

moonlight2011 · Answer

Merci beaucoup pour ta réponse

[Catégorie modifiée .Net -> VBA] comment stocker la valeur des champs d'une tabl

6 réponses

Votre réponse

Discussions similaires