Discussion :

[Daniel MOREAU]

Bonjour à tous,

A la fermeture de mon formulaire, je souhaite mettre à jour mon formulaire principal qui lui est basé sur une table temporaire.

J'ai une erreur que je n'arrive pas à solutionner.

Voici la syntaxe :

Private Sub Form_Close()
Dim MaBase As Database
Dim sqldel As String, SqlInsert2 As String, StrSql As String

Set MaBase = CurrentDb


sqldel = "DELETE Tbl_TempRegrOutlook.*"
sqldel = sqldel & " FROM Tbl_TempRegrOutlook;"

CurrentDb.Execute sqldel

'ajoute les éléments à la table temporaire
SqlInsert2 = "INSERT INTO Tbl_TempRegrOutlook ( NumAuto, Nom_Client, CodeClient, Commercial, "
SqlInsert2 = SqlInsert2 & " [Date], Message, Sujet, DateMAJ, Maj_CpteRendu ) "
SqlInsert2 = SqlInsert2 & " SELECT Tbl_RegrOutlook.NumAuto, Tbl_RegrOutlook.Nom_Client, "
SqlInsert2 = SqlInsert2 & " Tbl_RegrOutlook.CodeClient, Tbl_RegrOutlook.Commercial, Tbl_RegrOutlook.Date, "
SqlInsert2 = SqlInsert2 & " Tbl_RegrOutlook.Message, Tbl_RegrOutlook.Sujet, Tbl_RegrOutlook.DateMAJ, "
SqlInsert2 = SqlInsert2 & " Tbl_RegrOutlook.Maj_CpteRendu FROM Tbl_RegrOutlook "
SqlInsert2 = SqlInsert2 & " WHERE (((Tbl_RegrOutlook.CodeClient) Is Null Or (Tbl_RegrOutlook.CodeClient)=""" & """)"
SqlInsert2 = SqlInsert2 & " AND ((Tbl_RegrOutlook.Maj_CpteRendu)=False)) AND ((Tbl_RegrOutlook.Commercial)= " & "'" & Forms("Frm_Prospects")!Cbo_Cial.Value & "');"

CurrentDb.Execute SqlInsert2

'Crée la chaine SQL correspondant à la recherche des éléments qui restent à mettre à jour
StrSql = "SELECT Tbl_TempRegrOutlook.Nom_Client, Tbl_TempRegrOutlook.CodeClient, Tbl_TempRegrOutlook.Commercial, "
StrSql = StrSql & " Tbl_TempRegrOutlook.Date , Tbl_TempRegrOutlook.Message, Tbl_TempRegrOutlook.Sujet, "
StrSql = StrSql & " Tbl_TempRegrOutlook.DateMAJ, Tbl_TempRegrOutlook.Maj_CpteRendu, Tbl_TempRegrOutlook.Numauto FROM Tbl_TempRegrOutlook "
StrSql = StrSql & " WHERE ((Tbl_TempRegrOutlook.Maj_CpteRendu) = False) "
StrSql = StrSql & " ORDER BY Tbl_TempRegrOutlook.Commercial;"

'Ouvre le recordset
Set MaBase = CurrentDb.OpenRecordset(StrSql)
Forms("Sfrm_TempRegrOutlook").Form.RecordSource = StrSql

End Sub

Pouvez vous me dire ce qui ne va pas.

Merci d'avance pour votre aide.

Daniel

[guigui5931]

ta un problème dans ta requete : quand tu as un order by tu ne peut avoir dans ton select que des champs qui sont dans le order by (ou des champs calculé).
Il faut que tu modifie ta reqète

[Daniel MOREAU]

Merci guigui5931 pour ta réponse, je vais corriger ma requête.

Néanmoins je rencontre un problème avec le code suivant :

Set MaBase = CurrentDb.OpenRecordset(StrSql)
Forms("Sfrm_TempRegrOutlook").Form.RecordSource = StrSql

et j'ai un message qui m'informe qu'il ne trouve pas le formulaire en question.

Avez-vous une idée sur le problème ?

Daniel

[guigui5931]

Code :

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

1
2
 
Forms("Sfrm_TempRegrOutlook").RecordSource = StrSql

devrait marcher

[Tofalu]

quand tu as un order by tu ne peut avoir dans ton select que des champs qui sont dans le order by (ou des champs calculé).

Heureusement que c'est faux, sinon, comment trier une liste de client par ordre alphabétique du nom ?

[guigui5931]

j'ai lu le sujet un peu vite c'est dans un Group By ou tu ne peut avoir ton select que des champs qui sont dans le Group by (ou des champs calculé).

Encore désolé

[Daniel MOREAU]

Merci beaucoup pour vos messages, j'ai finalement trouvé mon erreur.
Voici la syntaxe de départ :

Forms("Sfrm_TempRegrOutlook").Form.RecordSource = StrSql

Le formulaire qui devait être mis à jour était le sous-formulaire et j'avais omis de préciser le nom du formulaire principal.

Forms![Frm_Prospects]![Sfrm_TempRegrOutlook].Form.RecordSource = StrSql

Merci encore pour votre aide.

Daniel