Table Access Liée à SQL Server par ODBC

Bonjour,

J'avais une application qui tournait correctement sous Access, et j''ai voulu lier certaines tables dans SQL Server.

Le problème étant que lorsque j'affectais une valeur à un champ (non clé primaire), avec Access, ma clé primaire était générée automatiquement et je la récupérait automatiquement aussi : (mon code Access)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Form_Current()   '// Me!Project_ID est la clé primaire autoincrémentée dans access   If IsNull(Me!Project_ID) Then   '// on donne la valeur " " au champ Project_Prefix ce qui insere un enregistrement et donne la valeur incrémentée pour Project_ID   Me!Project_Prefix = " " DoCmd.Save End If End Sub

---

Le Problème est que avec la table liée à SQL Server, l'incrément ne se fait pas à l'affectation de " " à un des champ de ma table, le Me!Project_ID reste à null (alors qu'il passait automatiquement à sa valeur incrémentée dans Access) et lorsque je passe à l'enregistrement de mes données de table, j'ai une erreur 94 "invalid use of null".

Si quelqu'un à une idée de l'origine du problème ?
Ou du code qui permettrait de mettre à jour la table, ou le recordset, cela fait 2 jours que cherche, je n'ai toujours rien trouvé.

Merci

Il ne faut pas citer le champ incrément lors de l'insert.

En fait j'ai réussi à récupérer automatiquement l'ID mais pas au même moment, il semblerait que l'update de la table ne se fasse qu'après un BeforeUpdate dans SQL Server (alors que c'est instantané avec Access).

Je m'explique :

Après ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Form_Current()   '// Me!Project_ID est la clé primaire autoincrémentée dans access   If IsNull(Me!Project_ID) Then   '// on donne la valeur " " au champ Project_Prefix ce qui insere un enregistrement et donne la valeur incrémentée pour Project_ID   Me!Project_Prefix = " " DoCmd.Save End If End Sub

---

Je passais dans la fonction :

Code:

---

1 2 3

Private Sub Form_BeforeUpdate(Cancel As Integer) Call find_changes("Project Details edited", Me.Project_ID, 0, 0, Me) End Sub

---

Et là, la fonction find_changes plantait à cause de Me.Project_ID à null.

Or si (j'enlève la fonction find_changes) et je remplace par :

Code:

---

1 2	Private Sub Form_BeforeUpdate(Cancel As Integer) End Sub

---

Là, mon ID est récupéré, la table a bien été mise à jour, et je peut lancer la fonction find_changes dans le Form_AfterUpdate.

Code:

---

1 2 3 4 5

Private Sub Form_AfterUpdate() Call find_changes("Project Details edited", Me.Project_ID, 0, 0, Me) ' que j'ai donc déplacé dans mon code Forms!main!cmbProject.Requery   End Sub

---

Je suppose que cela vient du fonction de SQL Server, ou ODBC, mais j'aurai souhaiter récupérer l'auto-incrément plus tôt, si vous avez une idée, sinon, on se contentera de ca.

Merci encore

Donc toujours pas de réponses ???

Je n'ai pas compris la réponse de fadace.

Je suppose que je dois être le seul à avoir le problème, ca m'aurait bien interressé quand-même de savoir comment mettre à jour avant le BeforeUpdate.

Merci