Discussion :

[the_tiger85]

Bonjour @ tous,
Voici mon code pour mettre à jour le numéro du dossier en fonction du type

Code :

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

1
2
 
Me.NumDossier.RowSource = "SELECT NumDossier FROM Dossier WHERE TypeDossier ='" & TypeDossier.Value & "'"

Mais quand je quitte le formulaire, j'ai un problème de violation de clé primaire ...

J'ai donc essayé avec un recordset :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim RsetNum As DAO.Recordset 
Dim RsetDossier As DAO.Database 
Dim Source As String 
 
Set RsetDossier = CurrentDb 
 
Source = "SELECT NumDossier FROM Dossier WHERE TypeDossier ='" & TypeDossier.Value & "'" 
Set RsetNum = RsetDossier.OpenRecordset(Source, dbOpenDynaset)

Mais cela ne fonctionne toujours pas, j'ai une erreur à la dernière ligne "91" : Variable objet ou variable de bloc With non définie.

J'ai aussi essayé ceci :

Code :

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

1
2
3
4
 
Set rstForm = db.OpenRecordset("FormAccueil") 
rstForm.Index = "SELECT NumDossier FROM Dossier WHERE TypeDossier ='" & TypeDossier.Value & "'" 
rstForm.MoveFirst

Et cela :

Code :

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

1
2
3
4
5
6
 
Dim RsetNum As ADODB.Recordset 
Set RsetNum = New ADODB.Recordset 
RsetNum.CursorLocation = adUseServer 
RsetNum.Open ("SELECT NumDossier FROM Dossier WHERE TypeDossier ='" & TypeDossier.Value & "'") 
Set NumDossier.Recordset = RsetNum

Voila, si quelqu'un à une solution car ça m'énerve !!

[the_tiger85]

Je me suis peut-être mal exprimée :
En fait, j'ai un code pour mettre à jour la liste des numéros de dossiers en fonctions du type (que l'on choisi dans une liste déroulante).
Ensuite, on choisi un numéro de dossier puis on clique sur un bouton pour valider et allez sur la page de suivi des dossiers.

Page d'Accueil

Cela marche bien mais quand on reviens sur la page d'accueil et que l'on veut quitter, il me met qu'il y a une violation de clé primaire (je pense que le problème vient du RowSource)

Donc j'ai essayé avec un RecodSet à la place du RowSource mais cela me met une erreur.
Voila, en espérant avoir été plus claire