Problème d'enregistrement sur une tableFermé

Question

Bonjour,

J'ai un soucis pour enregistrer des données sur une table que je ne comprends pas. Je fais un logiciel de suivi de matériels et comme la base de données regroupe 12k outils, j'ai ma base de données divisé en deux. Une partie pour les fiches modèle qui regroupe le nom du matériel, la photo, la référence article, le type de contrôle. Et ensuite j'ai les fiches outils qui sont rattachés au fiche modèle leur correspondant et la date de buté du prochain contrôle. On y retrouve leur numéro de série, leur position et une case commentaires.

Lorsque qu'on reçoit de nouveau matériels, on doit créer une fiche modèle avant de créer l'outil si jamais on à pas déjà se modèle. Cette partie fonctionne nickel mais lorsque je souhaite créer un outil, le code s'exécute mais rien n'ai inscrit dans ma table. Pourtant j'ai aucun message d'erreur qui s'affiche. Le code est le même que pour la création de fiche modèle, d'où mon incompréhension.

Voici le code que j'ai pour créer un outil :

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Outils",dbOpenDynaset)
rs.FindFirst "[Clé_modèle] = " & Me.Clé_modèle.Value & " AND [SN] = " & Chr(34) & Me.SN.Value & Chr(34)

If rs.NoMatch = False then
MsgBox "Un outil possédant les mêmes références outils et le même SN existe déjà. Vous ne pouvez enregistrer cet outil.", vbOKOnly, "Doublon"
Goto fin:
End if

MsgBox "Outil créer"
DoCmd.Close,,acSaveYes

Fin:

Tout s'exécute sans erreur mais rien n'est rentrée dans ma table. Si quelqu'un à une solution, je suis preneur.

yg_be · Answer

bonjour,

Le code ne crée jamais rien, il affiche simplement l'un ou l'autre message.

Je ne comprends ni pourquoi ni comment tu as "coupé" ta base en deux.

Tgm45 · Answer

Quand je dit coupé en deux c'est juste que j'ai une table pour les fiches modèle et une pour les outils. Je me suis mal exprimé.

Tu me dit que sa affiche juste juste un des 2 messages mais sur ma création de fiche modèle, ma ligne se créér bien dans ma table.

Tgm45 · Answer

J'ai fait sa comme code du coup avec se que j'ai trouvé sauf qu'il me met "erreur de compilation : Étiquette non défini" que je ne comprends pas.

Private Sub CmdValider_Click()

' On teste si les butées ont toutes été remplies

If ((NbControles > 0 And IsNull(Me.Texte21.Value)) Or (NbControles > 1 And IsNull(Me.Texte22.Value)) Or (NbControles > 2 And IsNull(Me.Texte23.Value)) Or (NbControles > 3 And IsNull(Me.Texte24.Value)) Or (NbControles > 4 And IsNull(Me.Texte25.Value)) Or (NbControles > 5 And IsNull(Me.Texte26.Value)) Or (NbControles > 6 And IsNull(Me.Texte27.Value)) Or (NbControles > 7 And IsNull(Me.Texte28.Value))) Then

MsgBox "Le renseignement des dates de butées est obligatoire", vbOKOnly, "Erreur de saisie"

GoTo fin:

End If

'On réactualise certaines cases au cas où...

Actualisation_date Controle1, 1, Periode1

Actualisation_date Controle2, 2, Periode2

Actualisation_date Controle3, 3, Periode3

Actualisation_date Controle4, 4, Periode4

Actualisation_date Controle5, 5, Periode5

Actualisation_date Controle6, 6, Periode6

Actualisation_date Controle7, 7, Periode7

Actualisation_date Controle8, 8, Periode8

' On fait aussi quelques tests

If IsNull(Me.SN) Or IsNull(Me.Position) Then

MsgBox "Le renseignement des champs SN et Position est obligatoire", vbOKOnly, "Erreur de saisie"

GoTo fin:

End If

Dim rs As DAO.Recordset

Dim i As Integer

Set rs = CurrentDb.OpenRecordset("Outils", dbOpenDynaset)

rs.FindFirst "[Clé_modèle] = " & Me.Clé_modèle.Value & " AND [SN] = " & Chr(34) & Me.SN.Value & Chr(34)

If rs.NoMatch = False Then

MsgBox "Un outil possédant les mêmes références outils et le même SN existe déjà. Vous ne pouvez enregistrer cet outil.", vbOKOnly, "Doublon"

GoTo fin:

End If

With rs

For i = Me.Clé_modèle.Value To Me.SN.Value

rs.AddNew

rs("Outils").Value = i

rs.Update

MsgBox "Outil créer"

End Sub

fin:

End Sub

Problème d'enregistrement sur une table

3 réponses

Discussions similaires

Newsletters