Discussion :

[ineouck]

bonjour la famille svp jai besoin daide. avec mes 2 fichier gestion stock et DT stock. jai ajouter une rubrique LISTE DES PURCHASE ET ORDER (PO), jai du mal a le codifier je suis entrain dessayer et cest vraiment complexe besoin daide.svp. il fonctionne un peut comme liste de materiel sauf que la cest liste des PO.
en piece joint les 2 fichier ACCESS et les 2 fichier des tables purchase order et utilisateur.

[Jean-Philippe André]

Bonjour,

tes dessins nous permettent de comprendre vers quoi tu veux t'orienter.

Sur quelle etape bloques tu actuellement ?
- la creation graphique de ton interface ?
- ton interface est faite mais tu n'arrives pas a l'alimenter ?
- ton alimentation fonctionne mais tu n'arrives pas a coder le VBA des boutons ?

Dis nous en un peu plus sur ton etat d'avancement pour que l#on puisse etre efficaces dans nos pistes

[ineouck]

la creation graphique est faite sauf pour la fiche PO ou il faut modifier. le code aussi jai commence a codifier, je suis bloquer.. jai envie que vous maidiez a realiser la liste des PO Purchase order. jai envie de mettre en en piece jointes les 2 fichiers ACCESS comment fait?
grand merci

[ineouck]

je veux que vous maidiez a codifier liste des Purchase Order. en image un apercu

[ineouck]

personne pour maider????

[ineouck]

jai commencer a codifier mais vraiment....
help me help me

Code :

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

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
61
62
63
64
65
66
67
68
69
70
Option Compare Database
Private Const SW_SHOWDEFAULT = 10
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMINNOACTIVE = 7
Private Const SW_SHOWNA = 8
Private Const SW_SHOWNOACTIVATE = 4
Private Const SW_SHOWNORMAL = 1
 
#If Win64 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
Private Sub Btn_Effacer_Click()
    Me.F_Pre -receiptsheet.Value = Null
    Me.F_Famille.Value = Null
    Me.F_Container.Value = Null
    Me.F_Description.Value = Null
    Me.F_PO.Value = Null
 
End Sub
 
 
Private Sub Btn_Recherche_Click()
'
' Fonction attachée au bouton permettant de modifier les filtres sur la recherche d'articles
'
On Error Resume Next
Dim SQL_String As String
SQL_String = "SELECT DT_Purchase_order.* FROM DT_Purchase_order"
'
' Initialisation du filtre afin de determiner si la concaténation de la châine commence par un where ou un and
'
Filtre_Actif = False
'
' Filtre désignation 'dans la châine'
'
CF_Filtre = Me.F_Pre - receiptsheet
If IsNull(CF_Filtre) Or CF_Filtre = "" Then CF_Filtre = ""
Select Case CF_Filtre
Case Is > ""
    Select Case Filtre_Actif
    Case True
        SQL_String = SQL_String & " AND ((DT_Purchase_order.Purchase_order_Pre -receiptsheet) Like " & Chr(34) & "*" & CF_Filtre & "*" & Chr(34) & ")"
    Case False
        SQL_String = SQL_String & " WHERE (((DT_Purchase_order.Purchase_order_Pre -receiptsheet) Like " & Chr(34) & "*" & CF_Filtre & "*" & Chr(34) & ")"
    End Select
    '
    Filtre_Actif = True
End Select
'
' Filtre Numero de container
'
CF_Filtre = Me.F_Container
If IsNull(CF_Filtre) Or CF_Filtre = "" Then CF_Filtre = ""
Select Case CF_Filtre
Case Is > ""
    Select Case Filtre_Actif
    Case True
        SQL_String = SQL_String & " AND ((DT_Purchase_order.Purchase_order_Container) = " & Chr(34) & CF_Filtre & Chr(34) & ")"
    Case False
        SQL_String = SQL_String & " WHERE (((DT_Purchase_order.Purchase_order_Container) = " & Chr(34) & CF_Filtre & Chr(34) & ")"
    End Select
    '
    Filtre_Actif = True
End Select
'
' Filtre Numero PO
'

.....................???????????????????????????

[bertiny]

Le problème c'est que tu n'es vraiment pas explicite sur ce que tu veux faire. C'est donc difficile pour qu'on puisse t'aider. On ne sait pas exactement ce que tu veux faire.

[ineouck]

J'aimerais que vous m'aidiez à codifier ##LISTE DES PURCHASE ORDER(PO)##
comme ilustrer sur le dessin. de telles sortes quon puissent filtrer les pre-receipt sheet, ctn, po, description famille tous en creant de nouveau PO avec un sous formulaire Fiche PO et une liste de PO comme inventaire.
plus haut il ya le dessin graphique du sous formulaire Nouveau PO et celui de Liste PO, reference a linventaire.

[ineouck]

de laide pour la codification complete de longlet
Liste des purchases order svp svp en pieces jointes les 2 fichiers zipper