Bonjour,
Le contexte se situe dans un champ de sous-formulaire sur lequel j'ai
branché ma macro. Le sous-formulaire correspond au détail d'une commande qui
se présente sous forme d'une table avec notamment les champs DEDESIGN pour
Désignation de l'article commandé (rattaché à table DETAILCOM sur lequel
s'appuie le sous-formulaire) et PUHT pour le prix unitaire qui est une
colonne indépendante.
Je voudrais qu'en choisissant mon article s'affiche dans PUHT le prix
unitaire de celui-ci. J'ai donc, sur le champ DEDESIGN rattaché ma macro
dont voici le code ci-dessous : Il y a sûrement des coquilles, je débute
dans ce genre de programmation :
Sub Main
Dim DatabaseContext as object
Dim DataSource as object
Dim Connection as object
Dim InteractionHandler as object
Dim Statement as object
Dim ResultSet as object
Dim CleCom as integer
Dim CleDisp as integer
Dim VPUHT as Currency
DatabaseContext = createUnoService ("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("Stock")
Connection = DataSource.GetConnection("","")
MsgBox ("BDD Connectée.")
Statement = Connection.createStatement()
ResultSet = Statement.executeQuery ("SELECT DIPRIXHT FROM DISPO WHERE
DISPO.DICLEUNIK = DETAILCOM.DICLEUNIK")
VPUHT = DISPO.DIPRIXHT
PUHT = VPUHT
MsgBox ("PUHT = "+PUHT)
Lorsque je saisi mon article, rien ne se passe au niveau du résultat
escompté, alors, j'ai testé en direct mon code sous le générateur de code.
Sur la ligne "ResultSet = Statement.executeQuery ...", j'obtient un message
d'erreur qui m'indique que la colonne DETAILCOM.DICLEUNIK n'a pas été
trouvée alors que c'est un champ de la table DETAILCOM !!! Pour tout dire,
c'est même la clé de relation de la table.
Second problème, le champ DICLEUNIK du sous-formulaire (pourtant rattaché à
la table DISPO ne se met pas à jour), je pensais que ce serait fait
automatiquement.
L'un d'entre-vous a t-il déjà programmé ce genre de traitement ? Aidez-moi
s'il vous plaît, je ne sais pas trop comment faire.... Merci beaucoup
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
