Discussion :

[samlepiratepaddy]

Slt,
Tout bète surement, mais l'écriture intuitive Vba ne me propose pas dans ce contexte la possibilité de mettre "ac last" sur ce code???
Précision le F_SuiteAppelInfoProspect est basé sur une autre table ( T_Appel) dont je viens de créer un nouvel enregistrement au moment d'exécuter ce code !
Comment puis-je l'écrire???

Code :

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

1
2
3
4
5
If ((Me.Phrase3Réponse) = "Oui") Then
   Me.DébutEtapeQuestionnaire = Now
 
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
        DoCmd.OpenForm "F_SuiteAppelInfoProspect", acNormal, , "[IDProspect]=" & Me![IdProspect]

quelqu'un a une idée???
Ou dois-je me résoudre a mettre le "ac last" sur ouverture du formulaire F_SuiteAppelInfoProspect ??
Car En fait, je ne sais pas ce qui primera dans ce cas :
1/ le filtre "[IDProspect]=" & Me![IdProspect]
2/ le Ac Last sur ouverture du F_SuiteAppelInfoProspect
Ou les deux ce combine ???
J'ai besoin d'etre éclairé la dessus...
Ps: c'est pour une application multi poste !!!
Donc le Aclast peut faire référence a un autre enregistrement que le filtre non?

[Tofalu]

Le filtre réduit le jeu d'enregistrement à celui contenant le bon prospect, le aclast te déplaces vers le dernier enregsitrement du jeu résultant

[samlepiratepaddy]

Merci tofalu,
Mais j'arrive toujours sur l'avant dernier enregistrement???
Pas le dernier????

Code :

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

1
2
3
4
Private Sub Form_Open(Cancel As Integer)
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , "F_SuiteAppelInfoProspect", acLast
End Sub

Pourtant je sauvegarde bien mon dernier enregistrement dans mon SF avant d'executer l'ouverture du formulaire et je refais la même chose a l'ouverture du F_SuiteAppelInfoProspect mais rien y fait je ne suis pas sur le dernier???

[Tofalu]

Regarde ton code :

Code :

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

1
2
3
4
Private Sub Form_Open(Cancel As Integer) 
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 
DoCmd.GoToRecord , "F_SuiteAppelInfoProspect", acLast 
End Sub

Tu fais une sauvegarde du formulaire alors que tu viens juste de l'ouvrir ... y a donc rien à sauvegarder.

De plus oublie les DoCmd.DoMenuItem, cela engendre trop de problèmes de compatibilité.

[samlepiratepaddy]

Ok...
Ouais pas malin Sam...
correction faite, mais je me retrouve toujours sur l'avant dernier
Pour ouvrir ce formulaire je suis là

Code :

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

1
2
3
4
5
If ((Me.Phrase3Réponse) = "Oui") Then
   Me.DébutEtapeQuestionnaire = Now
 
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
        DoCmd.OpenForm "F_SuiteAppelInfoProspect", acNormal, , "[IDProspect]=" & Me![IdProspect]

Cette fois-ci sauvegarder est utile...
mais c'est comme si il en tenait pas compte????
j'ouvre sur l'avant dernier comme si le nouvel enregistrement n'était pas présent???

[samlepiratepaddy]

Très curieux....
Lorsque je fais un bouton avec l'assistant qui fait la même chose sans sauvegarder l'enregistrement cela fonctionne ????

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 Commande78_Click()
On Error GoTo Err_Commande78_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "F_SuiteAppelInfoProspect"
    stLinkCriteria = "[IdProspect]=" & Me![IdProspect]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Commande78_Click:
    Exit Sub
Err_Commande78_Click:
    MsgBox Err.Description
    Resume Exit_Commande78_Click
End Sub

Tel que !!
Quand même curieux de le faire sans problème avec un bouton et pas en encodage VBA ????
quel est la différence??? entre au dessus et ça

Code :

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

1
2
 DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 
        DoCmd.OpenForm "F_SuiteAppelInfoProspect", acNormal, , "[IDProspect]=" & Me![IdProspect]

[Tofalu]

La différence il y a ça :

Code :

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Que je t'ai dis d'enlever dés mon premier post

[samlepiratepaddy]

Oui Oui c'est enlever !!!
Ce code est sur l'evenement qui ouvre le form dans le Sous Form pas sur open du form !!
J'ai rectifié !!
Remarque je l'ai enlevé aussi sur l'evenement qui ouvre le form et c'est pariel, toujours sur l'avant dernier ...
seul le bouton "classique" "trouve" bien l' Id Appel correspondant???
Je voulais automatiser completement cette étape mais ça commence a me courir....
Je vais finir par passer par le bouton....