Bonjour,
Dans une application Access, j'ai migrer toutes les tables locales vers SQL SERVER.
Je suis dans un formulaire qui fait appel à un sous formulaire, ce sous formulaire se nomme "SF Mise à jour rep"
Quand je veux exécuter le code suivant :
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Private Sub SF_Mise_à_jour_rep_Enter()
If IsNull([Champ41]) Or Trim([Champ41]) = "" Then
MsgBox "Veuillez saisir un client!!!!", vbExclamation, "AVERTISSEMENT!!!!"
[Champ41].SetFocus
Else
If IsNull([AdrFact]) Or Trim([AdrFact]) = "" Then
MsgBox "Veuillez saisir l'adresse de facturation!!!!", vbExclamation, "AVERTISSEMENT!!!!"
[AdrFact].SetFocus
Else
Champ41_Change
Me.Form![SF Mise à jour rep].Form![CodeAffaire] = Me![CodeAffaire]
End If
End If
End Sub |
ne fonctionne plus, la ligne de code
Me.Form![SF Mise à jour rep].Form![CodeAffaire] = Me![CodeAffaire]
Provoque l'erreur
Erreur d'éxécution 3326. Impossible de mettre à jour Recordset
Dans la ligne de code en erreur, j'essaye de mettre à jour un champ "zone de texte" par un autre champ "zone de texte", dans mon cas, Me![CodeAffaire] a la valeur R100203
De plus, quand j'ouvre le formulaire principal en mode création, mon sous formulaire ne s'affiche pas, quand je clique dessus, le message d'erreur suivant s'affiche :
Le moteur de base de données Microsoft Office Access ne peut pas trouver d'enregistrements dans la table "CLIENTS" avec le(s) champ(s) "NumClient" correspondant à la clé
.
Au départ, le champ "NumClient" avait pour nom "N°Client" qui est de type clé primaire.
Le code du bouton qui ouvre le formulaire en mode création est le suivant :
1 2 3 4 5 6 7 8 9 10 11
| DoCmd.OpenForm "Mise à jour réparation", windowmode:=acWindowNormal
DoCmd.GoToRecord acDataForm, "Mise à jour réparation", acNewRec
CodeAff Me![TypeAff]
Forms("Mise à jour réparation")![Entrep1] = ""
Forms("Mise à jour réparation")![Entrep2] = ""
Forms("Mise à jour réparation")![Commande227].Visible = True
Forms("Mise à jour réparation")![Commande229].Visible = False
Forms("Mise à jour réparation")![BoutAnnul].Visible = True
Forms("Mise à jour réparation")![BoutFerm].Visible = False
DoCmd.Close acForm, Me.Name, acSaveNo
Forms("Mise à jour réparation").Modal = True |
Auriez-vous des idées de résolution? Ne maitrisant pas Office Access, je tourne en rond.
Merci
Edit : on mettant comme type de recorset "Feuille rép.dyn.(MAJ globale)" sur le formulaire principal et sur les sous formulaires, le problème de recordset persiste encore :/
Partager