Discussion :

[fokaana]

Salut,

j'ai un souci avec l importation des images et le stockage tu chemin dans la BD, je suis confronté à cet erreur lorsque j utilise vba pour inserer en bd


j'ai mit les parenthèse et jusqu’à la rien n a changer

cdlt,

[hyperion13]

Un tuto ici

[fokaana]

Un tuto ici

desoler mais c 'est ca que j'ai utilisé. mais mon pb est au niveau de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

INSERT INTO Entreprise(Photo)VALUES("me.Photo")

que cet erreur apparaitre

svp aider moi

[User]

Bonsoir,

Si le code s'exécute dans votre formulaire, il faut constituer la chaîne SQL dans le code VBA, en mettant la référence au contrôle Photo, à l'extérieure et entre quotes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
...
DoCmd.RunSQL ("INSERT INTO Entreprise(Photo)VALUES('" & Me.Photo & "')")
...

Toutefois, je m'étonne que vous n'enregistrez pas le chemin de la photo directement dans une zone de texte liée au champ photo de la table Entreprise

Cdlt,

[fokaana]

COMME specifier ds le tutos ke propose hyperion13 il y a 2 boutons l'un permettant d uploader l image et charge l chemin ds l Control Photo et ce la ke j récupère pour mettre en bd avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 currentdb.excute req

et j ai l erreur ci dessus qui apparaît. j vais essayé celle ke tu me propose

[hyperion13]

Microsoft Office xx Object Library est-il bien actif dans votre vba ?
Vous pouvez copier/coller votre code ici ?

[fokaana]

okay

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 req = "INSERT INTO Entreprise (nomEntreprise, logoEntreprises, AdresseEntreprise, BoitePEntreprise, TeleEntreprise, websiteEntreprise ) VALUES('" & Me.nomEntre.Value & "', '" & Me.logoEntreprise.Value & "', '" & Me.AdresseEntre.Value & "', '" & Me.BoitePEntre.Value & "','" & Me.TeleEntre.Value & "','" & Me.websiteEntre.Value & "')"
        'CurrentDb.Execute req
        DoCmd.RunSQL (req)

Bonsoir,

Si le code s'exécute dans votre formulaire, il faut constituer la chaîne SQL dans le code VBA, en mettant la référence au contrôle Photo, à l'extérieure et entre quotes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
...
DoCmd.RunSQL ("INSERT INTO Entreprise(Photo)VALUES('" & Me.Photo & "')")
...

Toutefois, je m'étonne que vous n'enregistrez pas le chemin de la photo directement dans une zone de texte liée au champ photo de la table Entreprise

Cdlt,

La mm erreur persiste

[bertiny]

En réalité le tuto propose la gestion des images externes à access. L'étonnement de User est vrai car à partir du moment où le chemin d'accès à l'image est stocké dans un champ texte de la table, il suffit pour toi d'insérer un contrôle image dans ton formulaire et lui attribuer comme source contrôle le champ de la table et du coup l'image sera affiché. Pas vraiment besoin de passer par le vba. Peut-être juste pour gérer le chemin d'accès de l'image.

[hyperion13]

Un doute !
Votre form Paramètres en capture d'écran dans votre 1er post, est-il rattaché à une source tbl ou req ?
Parce que le mieux, puisque vous tournez sous Ak13 modifiez le type de données du champ photo de votre tbl en "Pièce jointe" et via la poignée dans le form vous parcourez l'emplacement de la photo pour la récupérer (voir capture d'écran)

[bertiny]

Sans toutefois m'opposer à hyperion, je pense que c'est préférable de stocker simplement les chimin d'accès dans la table à travers un formulaire lors de l'enregistrement d'un individu. Pas besoin de faire en pièce jointe et parcourir pour atteindre l'image afin de l'afficher. Un simple contrôle image suffit pour afficher une image dont le chemin d'accès est inscrit dans un champ d'une table.

[hyperion13]

Salut Bertiny,
Pas d'opposition, je préfère de loin désigner le chemin des photos que de les intégrer dans une tbl.
Un champ de type Texte dans la tbl et deux champs dans le form. L'un pour la zone de texte ayant pour source le champ de la tbl, l'autre un objet image ayant le même champ source que la zone de texte.

[bertiny]

je ne sais pas ce qui se passe avec ton code, si seulement je pouvait avoir la BD. j'ai fais un test et çà marche. je me suis occupé juste de la partie d'insertion du chemin. regarde un peu ceci Tester.rar

[fokaana]

okay merci je jettes un coup d oeil dessus

je ne sais pas ce qui se passe avec ton code, si seulement je pouvait avoir la BD. j'ai fais un test et çà marche. je me suis occupé juste de la partie d'insertion du chemin. regarde un peu ceci Tester.rar

Voici ma bd mon problem n est pas toujours resolu

[bertiny]

Dans la requête d'insertion

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.. ..  VALUES(..., ' & Me.logoEntreprise.Value  & ',..)

[fokaana]

OKay noter j vais modifié

Dans la requête d'insertion

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.. ..  VALUES(..., ' & Me.logoEntreprise.Value  & ',..)

ca ne fonctionne pas car c le nom de la variable soit & Me.logoEntreprise.Value & qui est stocké en db et non le chemin de l image

[bertiny]

C'est juste un problème de gestion du caractère spécial deux-points dont je n'ai pas pris le temps de regarder lors de l'affichage du message d'erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Pic As String 
. 
. 
. 
Pic = CurrentProjet.Path & "\images\tp.png"
Req  =...  VALUES (..., '" & Pic  & "',... )

[fokaana]

je trouves que c est pas toujours bon, ce que vous faites la c est pour l image pas défaut. or on voudrais une image uploader pas l utilisateur a n importe kel endroit de son PC. je ne sais pas si on se comprend.

A+

[bertiny]

C'est difficile de comprendre le concept d'autrui. Ton dernier post est mieux explicite. Voici une solution plus simple. bd.rar