Discussion :

[le_dilem]

Bonjour tout le monde voila j'ai un petit probleme que je n'arrive pas a comprendre, j'ai une table stock qui contient QTE et Prod ,probleme quand je veux faire une MAJ je saisie le code prod et la qtesaisie ca bloc voici le programme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande6_Click()
 Dim aa As Recordset, ssql As String
 ssql = "select last(qte) as qtes from stock where  " & _
       "prod='" & texte2 & "' ;"
 Set aa = CurrentDb.OpenRecordset(ssql)
  If qtes < qtesaisie Then
   MsgBox " Quantité indisponible"
    qtesaisie.SetFocus
  Else
   DoCmd.GoToRecord , , acNewRec
    qte = qtes - qtesaisie
  End If
End Sub

[jacou]

Ca irait probablement mieux!

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
 
Private Sub Commande6_Click()
 
  Dim aa As DAO.Recordset, ssql As String
 
  ssql = "select last(qte) as qtes from stock where " & _
    "prod='" & texte2 & "' ;"
 
  Set aa = CurrentDb.OpenRecordset(ssql)
 
  If aa!qtes < me.qtesaisie Then
    MsgBox " Quantité indisponible"
    me.qtesaisie.SetFocus
  Else
    DoCmd.GoToRecord , , acNewRec
 
'
'   supposons que qte est le contrôle du formulaire lié 
'   au champ de la table: stock!qte
'
    me.qte = aa!qtes - me.qtesaisie
 
  End If
'
  aa.close
  set aa=nothing
End Sub

[pgz]

Bonjour.

Pour lire une seule valeur dans une table, il y a aussi : DLookUp.

Bon courage,

PGZ

[le_dilem]

aucune mise a jour ne se fait après de docmd.gotorecodr , , acneaw

le me.qte ne l'accepte pas sachant que qte c'est le champ de ma table stock

Me.qte = aa!qtes - Me.qtesaisie

End If
aa.Close
Set aa = Nothing
End Sub

merci pour votre aide

[le_dilem]

Bonjour, le programme marche bien jusqu'au niveau du DoCmd.GoToRecord , , acNewRec , aucune mise à-jour qui se fait !!!

quelqu'un peut mexliquer svp ... merci pour vos lumiers

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
Private Sub Commande6_Click()
 
  Dim aa As DAO.Recordset, ssql As String
 
  ssql = "select last(qte) as qtes from stock where " & _
    "prod='" & texte2 & "' ;"
 
  Set aa = CurrentDb.OpenRecordset(ssql)
 
  If aa!qtes < me.qtesaisie Then
    MsgBox " Quantité indisponible"
    me.qtesaisie.SetFocus
  Else
    DoCmd.GoToRecord , , acNewRec
 
'
'   supposons que qte est le contrôle du formulaire lié 
'   au champ de la table: stock!qte
'
   qte = aa!qtes - me.qtesaisie
 
  End If
'
  aa.close
  set aa=nothing
End Sub

[jacou]

Je n'ai pas bien compris le but de ta démarche ou ton algorithme.
je devine que tu veux mettre à jour la quantité d'un produit lorsque aa!qtes >= me.qtesaisie ?

Alors ceci pourrait être une solution:

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
 
Private Sub Commande6_Click()
 
  dim dQty as double
  Dim db As DAO.Database
  Dim aa As DAO.Recordset, ssql As String
 
  Set db = CurrentDb
 
  ssql = "SELECT qte AS qtes FROM stock WHERE " & _
    "prod = '" & me.texte2 & "';"
 
  Set aa = db.OpenRecordset(ssql)
  if(aa.EOF) then
    dQty  = 0
  else
    dQty  = Nz(aa!qtes)
  end if
'
  aa.close
  set aa=nothing
'
  If (dQty < Nz(me.qtesaisie)) Then
    MsgBox " Quantité indisponible"
    me.qtesaisie.SetFocus
  Else
'   DoCmd.GoToRecord , , acLast
 
'
'  metrre à jour la table via DAO-SQL:
'
   dQty = dQty - Nz(me.qtesaisie)
'
   ssql = "UPDATE stock" _
     & " SET qte = " & dQty _
     & " WHERE prod = '" & me.texte2 & "';"
   db.Execute ssql, dbFailOnError
'
'  MàJ le formulaire en question s'il est lié à la table stock:
'        
'  qte = aa!qtes - me.qtesaisie
'
   Me.requery
' 
  End If
'
  Set db = Nothing
'
End Sub

[le_dilem]

je ne veux pas ecraser l'ancien enregistrement (prod) c'est pour ça que j'ai mis last(qte),il me selectionne la derniere qte du meme produit,via ce dernier je créee un nouveau enregistrement. le prod et la nouvelle quantité qui est l'ancienne quantité - la quatité saisite.
le probleme qui se pose je n'arrive pas a comprendre pourquoi il ne veut pas faire de mise à jour apres le docmd.gotrecord ,, acnew .

[jacou]

Il te faut ajouter, sur le formulaire de l'évènement, un contrôle nommé qte => me.qte, qui est lié au champ du même nom de la table stock, ie, stock.qte , la table stock est le .RecordSource de ce premier (formulaire) quand tu crées ce formulaire.

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
 
Private Sub Commande6_Click()
 
  dim dQty as double
  Dim db As DAO.Database
  Dim aa As DAO.Recordset, ssql As String
 
  Set db = CurrentDb
 
  ssql = "SELECT LAST(qte) AS qtes FROM stock WHERE " & _
    "prod = '" & me.texte2 & "';"
 
  Set aa = db.OpenRecordset(ssql)
  if(aa.EOF) then
    dQty  = 0
  else
    dQty  = Nz(aa!qtes)
  end if
'
  aa.close
  set aa=nothing
'
  Set db = Nothing
'
  If (dQty < Nz(me.qtesaisie)) Then
    MsgBox " Quantité indisponible"
    me.qtesaisie.SetFocus
  Else
'
    DoCmd.GoToRecord , , acNewRec  
'
'  mettre à jour la valeur sur le formulaire, qui sera répercutée sur 
'  la table automatiquement par Access ...
'
   me.qte = dQty - Nz(me.qtesaisie)
' 
  End If
'
End Sub

[le_dilem]

merci Jacou ça marche , c'est possible d'avoir independance total entre ma table et mon formulaire sinon a quoi bon faire tout ce programme un simple if suffira ....!!!!