Calcul de besoin de matière Première

Version imprimable

13/05/2010, 16h03
irada

1 pièce(s) jointe(s)

Calcul de besoin de matière Première

Bonjour

j ai besoin d'aide pour terminer mon projet de PFE

Voilà ce qui se passe j ai plein d erreur au niveau de compilation du fichier
y a t il qq1 qui porrait m eclaircir certaine choses

Merci d'avance
13/05/2010, 16h20
Invité

Bonjour

Il serait bon de détailler ce qui ne va pas, de plus ton zip est incomplet et tout le monde ne compilera pas pour toi.

Donc des détails sur le problème rencontré.

Philippe
13/05/2010, 16h48
irada

1 pièce(s) jointe(s)

oui désolé :)

au fait quand je clic sur commande 1 il faut qu'il me donne les données sur le fichier access dans la table imprimées, ensuite je choisis un code matière [combo1, 10C .....], ensuite cliquer sur commande 2 pour chercher dans la table Production [fichier Access] la répartition, le nombre d'exemplaire par feuille

Mais dés que je clic sur commande 2 j'obtiens un message d'erreur de débogage.

Je viens de uploader le fichier avec la base access
13/05/2010, 16h52
Invité

Re

Tu devrais donner plus d'explications avec le code à l'appui, car tout le monde ne télécharge pas les fichiers.

Philippe

dans le fichier Access il y a les tables qui contiennent les détails des articles
ceci est le code sources pour le calcul

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub Command1_Click()
Dim maconnexion As New ADODB.Connection
Dim sql1 As String
Dim sql4 As String
Dim sql2 As String
Dim sql3 As String
Dim rec1 As New ADODB.Recordset
Dim rec2 As New ADODB.Recordset
Dim rec3 As New ADODB.Recordset
Dim rec4 As New ADODB.Recordset
maconnexion.ConnectionString = "DSN=imprimerie2007"
maconnexion.Open
 
sql1 = "select code_imprimee from imprimée"
 
Set rec1 = maconnexion.Execute(sql1)
While (rec1.EOF = False)
Combo1.AddItem rec1.Fields(0)
a = Combo1.Text
rec1.MoveNext
Wend
rec1.Close
 
 
 
End Sub
 
Private Sub Command2_Click()
Dim maconnexion As New ADODB.Connection
 
Dim sql1 As String
Dim sql2 As String
Dim sql3 As String
 
Dim rec1 As New ADODB.Recordset
Dim rec2 As New ADODB.Recordset
Dim rec3 As New ADODB.Recordset
 
maconnexion.ConnectionString = "DSN=imprimerie2007"
maconnexion.Open
'"""""""""""""""""
sql1 = "select qantité from imprimée Where code_imprimee = combo1"
q = rec1
Set rec1 = maconnexion.Execute(sql1)
 
sql2 = "SELECT  FROM production WHERE ( code_imprimee= combo1)"
Set rec2 = maconnexion.Execute(sql2)
While code_imprimee = Combo1
Wend
x = rec2.Fields(4) * q / rec2.Fields(3)
While (rec3.EOF = False)
 
sql3 = " update besoin from matiere_1 Set besoin = besoin + x Where rc2.Fields(1) = code_matiére1"
Set rec3 = maconnexion.Execute(sql3)
   rec3.MoveNext
    Wend
 rec3.Close
 
 
End Sub

29/05/2010, 23h16
Invité

Bonsoir tt le monde,

je ne peux pas vraiment t'aider sur ton problème, malgré tout, une chose me choque: la présence de caractères accentués comme désignation de champs et de table. J'espère que tu trouveras la solution à ton problème
30/05/2010, 08h01
Delbeke

Dans ta table mprimée, as tu la valeur "combo1" qui existe dans ton champs "qantité ", si oui ta requête sql1 est incorrecte, si non elle est aussi incorrecte
voici comment tu l' écris

Code:

sql1 = "select qantité from imprimée Where code_imprimee = combo1"

Je pense qu'en fait tu devrais faire

Code:

sql1 = "select qantité from imprimée Where code_imprimee =" & combo1

Ce qui fonctionnera si ton combo1 contient une valeur numérique et que le champs "code_imprimee" est défini de type nombre. Il est plus probable que ce champ soit de type texte, il faudrait alors écrire

Code:

sql1 = "select qantité from imprimée Where code_imprimee = '" & combo1 & "' "

Ta requête sql2 a le même type de problème, mais en plus tu ne précise pas quel champs tu veux sélectionner, mets quelque chose de valide à la place des xxxxx

Code:

sql2 = "SELECT xxxxxx FROM production WHERE code_imprimee= '" & combo1 & "' "

Je pense que tu devrais avoir compris ce quil faut faire pour ta requête sql3

j'ai trouver la solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Dim maconnexion As New ADODB.Connection
 
Dim sql1 As String
Dim sql2 As String
Dim sql3 As String
Dim sql4 As String
Dim sql5 As String
 
Dim b As Integer
 
Dim rec1 As New ADODB.Recordset
Dim rec2 As New ADODB.Recordset
Dim rec3 As New ADODB.Recordset
Dim rec4 As New ADODB.Recordset
Dim rec5 As New ADODB.Recordset
 
maconnexion.ConnectionString = "DSN=imprimerie2007"
maconnexion.Open
sql5 = "update matiere_1 set besoin =  " & 0 & "" 
   Set rec5 = maconnexion.Execute(sql5)
 
sql1 = "select * from imprimée"
Set rec1 = maconnexion.Execute(sql1)
 
While rec1.EOF = False
 
q = rec1.Fields(1)
 
 
sql2 = "SELECT *  FROM production WHERE code_imprimee= '" & rec1.Fields(0) & "'"
Set rec2 = maconnexion.Execute(sql2)
 
While rec2.EOF = False
 
 
    x = rec2.Fields(3) * q / rec2.Fields(2)
 
   sql4 = "select * from matiere_1 where code_matiére1=" & rec2.Fields(1) & ""
   Set rec4 = maconnexion.Execute(sql4)
 
 
b = rec4.Fields(4)
b = b + x
 
   sql3 = "update matiere_1 set besoin =  " & b & " where code_matiére1=" & rec2.Fields(1) & ""
   Set rec3 = maconnexion.Execute(sql3)
 
 
   rec2.MoveNext
   Wend
   rec2.Close
   rec1.MoveNext
Wend
  rec1.Close

31/05/2010, 12h00
M E H D I

Salut,
Pense à cliquer sur la balise :resolu: , si ton problème est réglé.
31/05/2010, 23h30
irada

Bonjour

j ai besoin d'aide pour terminer mon projet de PFE

je voudrais savoir comment afficher un formulaire access à partir de visual basic 6.
je vous prie de les expliciter afin que je puisse saisir pleinement
merci de bien vouloir m'aider
01/06/2010, 00h29
Delbeke

C'est simple, on ne peut pas , à ma connaissance
01/06/2010, 04h06
Invité

Bonjour

Un formulaire Access étant obligatoirement contenu dans une fenêtre Access il faudrait pouvoir voir cette fenêtre dans une forme VB, et après mettre ce formulaire en plein écran pour masquer la fenêtre Access (pour cela il y a des possibilités dans le forum Access).

Le hic est de mettre Access dans une form VB, et de plus je ne sais pas si tu pourras intervenir dans ce formulaire, il sera vu comme un tout à mon avis.

Philippe
01/06/2010, 09h20
DarkVader

Bonjour,
Sauf à ce que je n'ai rien compris, il ne demande pas qu'Access soit totalement transparent.
S'il doit gérer un affichage, pourquoi ne pas utiliser DAO plutôt qu'Ado ?
=> .docmd.openform xxx

J'ai loupé un épisode
01/06/2010, 12h27
Invité

Re

Effectivement c'est loin d'être clair.

Pour information, la commande DoCmd appartient à l'objet application, donc à Access et cela n'a rien à voir avec DAO ou ADO qui permettent elles d'accéder directement aux tables.

Philippe
01/06/2010, 20h25
irada
slt
j'ai utiliser ce code pour afficher le formulaire qui me permet d'ajouter des données dans les tables
Code:

1 2 3 4 5 6 Dim maconnexion As New ADODB.Connection maconnexion.ConnectionString = "DSN=imprimerie2007" maconnexion.Open maconnexion.docmd.OpenForm ("frm_production")
mais toujours il ya un message d'erreur '3001': les arguments sont de type incorrect ,en dehors des limites autoriser ou en conflis les uns avec les autres
:(:(
02/06/2010, 09h12
DarkVader
Citation:

Envoyé par Philippe JOCHMANS

Re

Effectivement c'est loin d'être clair.

Pour information, la commande DoCmd appartient à l'objet application, donc à Access et cela n'a rien à voir avec DAO ou ADO qui permettent elles d'accéder directement aux tables.

Philippe

Merci. A force de penser qu'on me suit à tous coups dans mes raccourcis de langage,
il ne faut pas s'étonner que je ne me fasse pas comprendre.
En fait, je pensais que la sous couche des méthodes de Docmd pour accéder au recordset utilisait DAO
En clair, => Pour être cohérent avec docmd.OpenForm, autant utiliser les méthodes l'object Access.Application et abandonner l'accès aux données par ADO
Citation:
Envoyé par irada

slt
j'ai utiliser ce code pour afficher le formulaire qui me permet d'ajouter des données dans les tables

Code:

1 2 3 4 5 6 Dim maconnexion As New ADODB.Connection maconnexion.ConnectionString = "DSN=imprimerie2007" maconnexion.Open maconnexion.docmd.OpenForm ("frm_production")

mais toujours il ya un message d'erreur '3001': les arguments sont de type incorrect ,en dehors des limites autoriser ou en conflis les uns avec les autres
:(:(
Voir réponse ci-dessus
avec
Code:

1 2 3 4 5 6 dim oAcc as object Set oAcc=createobject("access.application") oAcc.OpenCurrentDatabase xxx oAcc.CurrentDb.Execute sql oAcc.DoCmd.OpenForm xxx
mais n'étant pas spécialiste des bases de données, ça n'engage que moi

j'ai utilisé ce code mais il y a toujours des message d'erreur:cry::cry: :

D
Code:

1 2 3 4 5 6 7 8 9 10 im DB As ADODB.Connection Dim RS As Recordset Dim oAcc As Object Set oAcc = CreateObject("access.application") oAcc.OpenCurrentDatabase xx = imprimerie2007 oAcc.CurrentDb.Execute oAcc.DoCmd.OpenForm frm_production
message d'rreur: microsoft office access n a pas pu ouvrir cette base pcq celle-ci est manquante , a ete ouverte par un autre utilisateur en mode exclusive

et si j'ajoute ce code
'Set DB = Openbase("d:\imprimerie2007.mdb")
message d'erreur : fonction nn defini