Discussion :

[Virgile59]

Voilà j'ai une boite de message qui si oui lance une requète d'ajout puis le formulaire et si non lance le formulaire seul.

Mais voilà disons que cette requête d'ajout doit être éxecutée uniquement si elle n'a pas déjà été faite.

Si dans ma table "Commandes" il n'y a pas d'enregistrements présents à la date saisie sur mon formulaire "F_Date_Saisie" zone "Date" alors lancer la boite de message

J'espère que c'est compréhensible comme explication.
Merci d'avance pour l'aide !

[loutente]

Rien compris du tout

[Virgile59]

lol

On peut mettre une condition à l'affichage d'une boite de message non ?

Si oui ma condition serait d'aller regarder dans une table si une date est présente.

Aller voir dans la table Commandes si à la date du 12/12/1986 il y a le client Total, si oui ne rien faire si non lancer la boite de message qui demanderai alors la confimation pour executer la requête d'ajout.

[loutente]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
dim rec dao.recordset
dim sql as String
 
sql = "SELECT * FROM Commandes WHERE ladate = #" & ladate & " #";
 
set rec = currentdb.openrecordset(sql)
 
if not rst.eof then
   msgbox
end if

Voila

[Virgile59]

Il me met une erreur au niveau de la première ligne
dao.recordset n'existe pas apparement

quand je fais dao. il me propose RecordsetOptionEnum et RecordsetTypeEnum

???

[loutente]

Dans ta fenetre visual basic va dans outils --> référence --> et coches la bibliothèque Microsoft dao library

[Virgile59]

Microsoft DAO 3.6 Object lirary est déjà coché

Je suis desolé de vous embêter... Mais bon une fois que je saurai le faire je n'aurais plus à vous poser la question..

[Invité]

Salut,

Met as entre Rec et Dao

Starec

[Virgile59]

Merci Starec mais j'ai une erreur sur cette ligne maintenant

Code :

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

  Set rec = CurrentDb.OpenRecordset(sq1)

Mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub cmdOK_Click()
    Dim rec As DAO.Recordset
    Dim sql As String
    sql = "SELECT QRY_Commandes FROM QRY_Commandes WHERE QRY_Commandes.Date='" & Me.Date & "'"
    Set rec = CurrentDb.OpenRecordset(sq1)
    If Not rst.EOF Then
    If MsgBox("Voulez vous les ajouter les commandes journalières pour la date saisie ?", vbApplicationModal + vbQuestion + vbYesNo, "Commandes journalières") = vbYes Then DoCmd.OpenQuery "Commandes Journalières", acViewNormal, acAdd
    DoCmd.OpenForm "F_Saisie_Commandes"
    End If
End Sub

Requête [QRY_Commandes] champs [Date]

[niclalex]

bonjour,
Modifie cette ligne :

Code :

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

sql = "SELECT QRY_Commandes.* FROM QRY_Commandes WHERE Commandes.Date='" & Me.Date & "'"

Sinon donnes nous ton erreur

[Virgile59]

Toujours la même erreur il dit :

Errueur d'execution 3078
Le moteur de données Microsoft Jet ne peut pas trouver la table ou la requête source". Assurez vous qu'elle existe et qu'elle est correctement orthographiée.


Requête :
QRY_Commandes
Champs :
Date

L'erreur est toujours sur la ligne :

Code :

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

Set rec = CurrentDb.OpenRecordset(sq1)

En débug il me dit rec=nothing

Existe il un tuto ?

[loutente]

Désolé j'avais oublié le as

As tu bien orthographier "sql" il me semble que tu as ecris "sq1"

[Virgile59]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub cmdOK_Click()
    Dim rec As DAO.Recordset
    Dim sql As String
    sql = "SELECT Date FROM Commandes WHERE Commandes.Date = '" & Me.Date & "'"
    Set rec = CurrentDb.OpenRecordset(sql)
    If Not rst.EOF Then
    If MsgBox("Voulez vous les ajouter les commandes journalières pour la date saisie ?", vbApplicationModal + vbQuestion + vbYesNo, "Commandes journalières") = vbYes Then DoCmd.OpenQuery "Commandes Journalières", acViewNormal, acAdd
    DoCmd.OpenForm "F_Saisie_Commandes"
    End If
End Sub

J'ai mis sql et non sq1
Erreur 3464 :
Type de données incompatible dans l'expression du critère

Est en jaune :
Set rec = CurrentDb.OpenRecordset(sql)

[fdraven]

Petite remarque le mot DATE est un mot réservé dans ACCESS donc il est très fortement déconseillé de l'utiliser en nom de variable ou nom d'étiquette.

[loutente]

quel est le type de donnée de ton champs Commandes.Date
si c'est date remplace les ' par #

[Virgile59]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub cmdOK_Click()
    Dim rec As DAO.Recordset
    Dim sql As String
    sql = "SELECT Date_Comm FROM Commandes WHERE Commandes.Date_Comm = #" & Me.Date & "#"
    Set rec = CurrentDb.OpenRecordset(sql)
    If Not rst.EOF Then
    If MsgBox("Voulez vous les ajouter les commandes journalières pour la date saisie ?", vbApplicationModal + vbQuestion + vbYesNo, "Commandes journalières") = vbYes Then DoCmd.OpenQuery "Commandes Journalières", acViewNormal, acAdd
    DoCmd.OpenForm "F_Saisie_Commandes"
    End If
End Sub

J'ai changé le nom de mon champs dans la table en Date_Comm
Maintenant il me dit
Erreur 424
Objet requis

En jaune :
If Not rst.EOF Then

[loutente]

le code est entier???
ou il manque un end if

[fdraven]

c'est normal que If Not rst.EOF Then soit en jaune car ton recordset se nomme rec et non rst

remplace par :

Code :

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

If Not rec.EOF Then

[Virgile59]

Ok merci apparemment ça fonctionne mais c'est l'inverse !
Je m’explique : Là il va voir si dans ma table si la valeur est présente, si elle est présente il me lance la requête d’ajout alors que moi je veux l’inverse.

[Virgile59]

J'ai mis :

Code :

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

1
2
3
4
5
    If Not rec.EOF Then
        DoCmd.OpenForm "F_Saisie_Commandes"
    Else
        If MsgBox("Voulez vous les ajouter les commandes journalières pour la date saisie ?", vbApplicationModal + vbQuestion + vbYesNo, "Commandes journalières") = vbYes Then DoCmd.OpenQuery "Commandes Journalières", acViewNormal, acAdd
        DoCmd.OpenForm "F_Saisie_Commandes"

Merci pour tout, vraiment merci de passer du temps avec des débutants comme moi.