Discussion :

[deejaygalut]

Bonjour à tous, je suis tout nouveau dans le monde d'ACCESS mais je cherche à découvrir ce logiciel pour faire evoluer un classeur excel en base de donnée!

J'ai déjà pas mal avancé, mais j'aurais besoin d'un peu d'aide sur certain point ou j'ai beau réfléchir ... il me manque quelquechose, alors j'ai bien lu vos tutoriels, exemple, faq etc... mais ne trouve pas la reponse que je cherche!

Voilà:

J'ai une table LISTE_TOURNOI (ID_TOURNOI, DATE_TOURNOI,NB_JOUEUR, TF,CLEF)

Le but de ma recherche est de créé (sur un formualire de creationd e tournoi) ce code ID_TOURNOI comme ceci:

Code :

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

Année([DATE_TOURNOI])*100000+Mois([DATE_TOURNOI])*1000+Jour([DATE_TOURNOI])*10+VraiFaux([CLEF]=Non;1;2)

pour me retrouver avec un code du type aaaammjj(1 ou 2) suivant le numero du tournoi (1 ou 2; donnée OUI/NON dans la table)

j'ai créé une requete me calculant ce code. Le probleme est que ca me le calcul pour les tournois que j'ai déjà entré.

En fait je voudrais que dans mon formulaire j'inscrive la date du tournoi, le nb de joueur, et sa clef (tournoi 1 ou 2) et que dans ce formulaire ca m'affiche ce code automatiquement etq u'il soit (au moment de l'enregistrement des données) automatiquement inscrit en tant que clef primaire de ma table LISTE_TOURNOI

Avec ma requete en fait je calcul qqc que j'ai deja inscris à la main tout seul! Ce que je ne veux pas!

Merci de m'éclairer!

PS: je ne me sens pas pres à me lancer dans du VBA, merci de me repondre sans procédure car je ne les comprends pas... (je commence à les comprendre seulement)

[rjamin]

Bonjour,

A l'aide d'une macro c'est faisable.
Voyez si la proposition jointe vous convient.

La macro est déclenchée par l'évènement 'Sur réception focus' du champ ID_Tournoi.

[deejaygalut]

J'ai beau essayer dans tous les sens, cela ne fonctionne pas!

Le fichier que vous m'avez proposé ne doit pas etre complet je pense!

Aucune macro n'a été enregistré et il n'y aucun evenement sur le focus de ID_TOURNOI

De plus si possible puis je avoir une solution sans macro car je ne m'y connais pas du tout en VBA!

Je cherche depuis cette apres midi mais en vain!!!

Le probleme vient du fait que je veux le mettre en clef primaire de la table ce qui fait que tant que je n'ai pas entré une clef pour un enregistrement (valeur null du coup) il ne m'accpete pas l'enregistrement!

[deejaygalut]

je viens de penser à un truc, par contre je ne sais pas comment le programmer!

Peut on dire a access sur ce formulaire uniquement que lorsque je valide l'enregistrement ou que je tape sur "entré" juste avant d'enregistrer et de m'envoyer bouler parceque je n'ai pas de clef, calculer le code du tournoi!

En gros insérer dans la procédure ENREGISTREMENT le calcul du code?

[User]

Bonjour,

Il te faut mettre le code sur avant maj (beforeUpdate) de ton formulaire:

Code :

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

1
2
3
4
5
6
7
Private Sub Form_BeforeUpdate(Cancel As Integer)
 
   If Not IsNull(Me.Cle) And Not IsNull(Me.Date_Tournoi) Then
      Me.ID_Tournoi = Year(Me.[Date_Tournoi]) * 100000 + Month(Me.[Date_Tournoi]) * 1000 + Day(Me.[Date_Tournoi]) * 10 + IIf(Me.[Cle] = No, 1, 2)
   End If
 
End Sub

tu peux aussi faire:

Code :

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

1
2
3
4
5
6
7
Private Sub Form_BeforeUpdate(Cancel As Integer)
 
   If Not IsNull(Me.Cle) And Not IsNull(Me.Date_Tournoi) Then
      Me.ID_Tournoi = Format(Me.Date_Tournoi, "yyyymmdd") & IIf(Me.[Cle] = No, 1, 2)
   End If
 
End Sub

[deejaygalut]

Merci bien pour les reponses, la premiere fonctionne.

Merci encore!

[deejaygalut]

Re, j'ai un souci

j'ai supprimer mon formulaire par mégarde, j'en ai donc profiter pour intégrer le code pour faire griser les boutons... et qd j'ai réintegré le code pour mettre automatiquement le Numero de mon tournoi, il ne me prend plus rien!!!

Y'a til un disfonctionnement entre ces deux codes?

quand j'essaye de bidouiller ca me met erreur de variable avec iif([CLEF]= No.... il me met variable non definit en surligant le no

[User]

Re,
La case à cocher doit s'appeler Cle pour que cela fonctionne.

[deejaygalut]

non, je mettais trompé dans l'ennoncé du debut... elle s'appelle bien CLEF, j'ai vérifié et c'est pas ça!

[User]

essaie avec false:

Code :

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

...+ IIf([CLEF] = False, 1, 2)

[deejaygalut]

Toujours pas!

Ce qui est bizarre est que ca marchait sans le code que j'ai rajouter et la ca ne amrche plus!! voici le code entier du formulaire il ya peut etre une anomalie qui empeche...

J'ai repompé l'exemple de la source pour le coller à mon formulaire...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
 
Option Compare Database
Option Explicit
 
'Mémorise le nombre d'enregistrements affichés par le formulaire
Dim mlngCpteEnr As Long
'Mémorise l'information d'utilisation du filtre
Dim mstrFiltré As String
 
 
Private Sub btcPrem_Click()
'Instruction à suivre en cas d'erreur :
'entrer dans le bloc de gestion d'erreurs
'nommé GestionErr
On Error GoTo GestionErr
 
'Atteindre le premier enregistrement :
 
  DoCmd.GoToRecord , , acFirst
 
Exit Sub
 
' Bloc de gestion d'erreurs.
GestionErr:
  Select Case Err.Number
    Case Else
      MsgBox "Erreur " & Err.Number & " : " & _
      Err.Description, vbCritical, _
      "Form_CREATION_TOURNOI.btcPrem_Click"
  End Select
' Fin du bloc de gestion d'erreurs.
 
End Sub
 
 
Private Sub btcPréc_Click()
 
On Error GoTo GestionErr
 
'Atteindre l'enregistrement précédent :
 
  DoCmd.GoToRecord , , acPrevious
 
Exit Sub
 
' Bloc de gestion d'erreurs.
GestionErr:
  Select Case Err.Number
    Case Else
      MsgBox "Erreur " & Err.Number & " : " & _
      Err.Description, vbCritical, _
      "Form_CREATION_TOURNOI.btcPréc_Click"
  End Select
' Fin du bloc de gestion d'erreurs.
 
End Sub
 
 
Private Sub btcSuiv_Click()
 
On Error GoTo GestionErr
 
'Atteindre l'enregistrement suivant :
 
  DoCmd.GoToRecord , , acNext
 
Exit Sub
 
' Bloc de gestion d'erreurs.
GestionErr:
  Select Case Err.Number
    Case Else
      MsgBox "Erreur " & Err.Number & " : " & _
      Err.Description, vbCritical, _
      "Form_CREATION_TOURNOI.btcSuiv_Click"
  End Select
' Fin du bloc de gestion d'erreurs.
 
End Sub
 
 
Private Sub btcDern_Click()
 
On Error GoTo GestionErr
 
'Atteindre le dernier enregistrement :
 
  DoCmd.GoToRecord , , acLast
 
Exit Sub
 
' Bloc de gestion d'erreurs.
GestionErr:
  Select Case Err.Number
    Case Else
      MsgBox "Erreur " & Err.Number & " : " & _
      Err.Description, vbCritical, _
      "Form_CREATION_TOURNOI.btcDern_Click"
  End Select
' Fin du bloc de gestion d'erreurs.
 
End Sub
 
 
Private Sub btcNouv_Click()
 
On Error GoTo GestionErr
 
'Créer un nouvel enregistrement :
 
  DoCmd.GoToRecord , , acNewRec
 
Exit Sub
 
' Bloc de gestion d'erreurs.
GestionErr:
  Select Case Err.Number
    Case Else
      MsgBox "Erreur " & Err.Number & " : " _
      & Err.Description, vbCritical, _
      "Form_CREATION_TOURNOI.btcNouv_Click"
  End Select
' Fin du bloc de gestion d'erreurs.
 
End Sub
 
 
 
 
 
 
 
 
Private Sub CREATION_TOURNOI_BeforeUpdate(Cancel As Integer)
If Not IsNull(Me.CLEF) And Not IsNull(Me.DATE_TOURNOI) Then
      Me.NUMERO_TOURNOI = Year(Me.[DATE_TOURNOI]) * 100000 + Month(Me.[DATE_TOURNOI]) * 1000 + Day(Me.[DATE_TOURNOI]) * 10 + IIf(Me.[CLEF] = No, 1, 2)
   End If
 
End Sub
 
 
 
Private Sub txtAtteindre_BeforeUpdate(Cancel As Integer)
 
'Le code suivant sert à vérifie que la valeur spécifiée
'dans le contôle txtAtteindre est de type numérique :
 
On Error GoTo GestionErr
'Sélection du contôle de saisie de la valeur
'à vérifier (txtAtteindre)
  With Me!txtAtteindre
 
  'On applique la fonction IsNumeric à la valeur du
  'contôle sélectionné afin de vérifier si
  'le type est bien du numérique :
 
    If Not IsNumeric(.Value) Then
 
    'Si aucun nombre n'a été saisi, on avertit l'utilisateur :
      MsgBox "Vous devez saisir un numéro d'enregistrement valide." & _
      vbCrLf & _
        "Vous pouvez appuyer sur Echap pour annuler votre saisie.", _
        vbExclamation
 
    'Puis on repositionne le curseur sur le contrôle sélectionné :
    ' Positionne le curseur au début du champ
      .SelStart = 0
     ' Sélectionne l'ensemble des données affichées dans le champ
      .SelLength = Len(.Value)
 
    'Et on annule la mise à jour de l'événement
    'BeforeUpdate en utilisant son argument Cancel :
      Cancel = True
 
    End If
 
  End With
 
Exit Sub
 
' Bloc de gestion d'erreurs.
GestionErr:
  Select Case Err.Number
    Case Else
      MsgBox "Erreur " & Err.Number & " : " & _
      Err.Description, vbCritical, _
      "Form_CREATION_TOURNOI.txtAtteindre_BeforeUpdate"
  End Select
' Fin du bloc de gestion d'erreurs.
 
End Sub
 
 
Private Sub txtAtteindre_AfterUpdate()
 
On Error GoTo GestionErr
 
With Me
 
 If mlngCpteEnr = 0 Then
  !txtAtteindre = 1
  MsgBox "Impossible d'atteindre l'enregistrement spécifié." & _
   vbCrLf & _
   "Vous êtes peut-être à la fin du jeu d'enregistrement.", _
   vbExclamation
 ElseIf !txtAtteindre > mlngCpteEnr Then
  !txtAtteindre = mlngCpteEnr
  MsgBox "Impossible d'atteindre l'enregistrement spécifié." & _
   vbCrLf & _
   "Vous êtes peut-être à la fin du jeu d'enregistrement.", _
   vbExclamation
  ElseIf !txtAtteindre <= 0 Then
   !txtAtteindre = 1
   MsgBox "Impossible d'atteindre l'enregistrement spécifié." & _
    vbCrLf & _
    "Vous êtes peut-être à la fin du jeu d'enregistrement.", _
    vbExclamation
  End If
   If !txtAtteindre <> .CurrentRecord Then DoCmd.GoToRecord , , _
    acGoTo, !txtAtteindre
 
End With
 
Exit Sub
 
' Bloc de gestion d'erreurs.
GestionErr:
  Select Case Err.Number
    Case Else
      MsgBox "Erreur " & Err.Number & _
      " : " & Err.Description, vbCritical, _
      "Form_CREATION_TOURNOI.txtCourant_AfterUpdate"
  End Select
' Fin du bloc de gestion d'erreurs.
 
End Sub
 
 
Private Sub Form_Current()
 
On Error GoTo GestionErr
 
'On appel la procédure de mise à jour des
'données liées aux contrôles de navigation :
 
  sActivation
 
Exit Sub
 
' Bloc de gestion d'erreurs.
GestionErr:
  Select Case Err.Number
    Case Else
      MsgBox "Erreur " & Err.Number & " : " & _
      Err.Description, vbCritical, _
      "Form_CREATION_TOURNOI.Form_Current"
  End Select
' Fin du bloc de gestion d'erreurs.
 
End Sub
 
 
Private Sub Form_BeforeInsert(Cancel As Integer)
 
On Error GoTo GestionErr
 
'Disponibilité des boutons de navigations :
 
  Me!btcSuiv.Enabled = True
  Me!btcNouv.Enabled = True
 
'Le nouvel enregistrement va être ajouté,
'on peut donc mettre à jour mlngCpteEnr :
 
  mlngCpteEnr = mlngCpteEnr + 1
 
Exit Sub
 
' Bloc de gestion d'erreurs.
GestionErr:
  Select Case Err.Number
    Case Else
      MsgBox "Erreur " & Err.Number & " : " & _
      Err.Description, vbCritical, _
      "Form_CREATION_TOURNOI.Form_BeforeInsert"
  End Select
' Fin du bloc de gestion d'erreurs.
 
End Sub
 
 
Private Sub Form_AfterDelConfirm(Status As Integer)
 
Dim strInfosNavig As String
 
On Error GoTo GestionErr
 
'Si un ou plusieurs enregistrements ont été supprimés
If Status = acDeleteOK Then
  Select Case Me.NewRecord
    Case True
      strInfosNavig = "sur " & Me.CurrentRecord & mstrFiltré
      'Mise à jour des infos de navigation (affichées par étqCpteEnr)
    Case False
      sMajInfosNavig
      'Mise à jour des infos de navigation (affichées par étqCpteEnr)
      strInfosNavig = "sur " & mlngCpteEnr & mstrFiltré
  End Select
  étqCpteEnr.Caption = strInfosNavig
End If
 
Exit Sub
 
' Bloc de gestion d'erreurs.
GestionErr:
  Select Case Err.Number
    Case Else
      MsgBox "Erreur " & Err.Number & " : " & _
      Err.Description, vbCritical, _
      "Form_CREATION_TOURNOI.Form_AfterDelConfirm"
  End Select
' Fin du bloc de gestion d'erreurs.
 
End Sub
 
 
Private Sub sActivation()
 
On Error GoTo GestionErr
 
Dim strInfosNavig As String
 
'Affiche le numéro de l'enregistrement en cours :
 
  Me!txtAtteindre = Me.CurrentRecord
 
'Disponibilité des boutons de navigations :
  'On ne peut aller vers l'enregistrement précédent
  'que si nous ne sommes pas déjà sur le premier.
  Me!btcPréc.Enabled = (Me.CurrentRecord > 1)
  Select Case Me.NewRecord
    Case True
      Me!btcSuiv.Enabled = False
      Me!btcNouv.Enabled = False
      'Mise à jour des infos de navigation
      '(affichées par étqCpteEnr)
      strInfosNavig = "sur " & Me.CurrentRecord
       'Mise à jour des infos de navigation
       '(affichées par étqCpteEnr)
      If Me.FilterOn Then strInfosNavig = strInfosNavig & " (Filtré)"
    Case False
      Me!btcSuiv.Enabled = True
      Me!btcNouv.Enabled = True
      If Me.CurrentRecord = 1 Then sMajInfosNavig
      'Mise à jour des infos de navigation
      '(affichées par étqCpteEnr)
      strInfosNavig = "sur " & mlngCpteEnr & mstrFiltré
  End Select
 
'Mise à jour des infos de navigation (suite) :
 
  étqCpteEnr.Caption = strInfosNavig
 
  Exit Sub
 
' Bloc de gestion d'erreurs.
GestionErr:
  Select Case Err.Number
    Case Else
      MsgBox "Erreur " & Err.Number & " : " & _
      Err.Description, vbCritical, _
      "Form_CREATION_TOURNOI.sActivation"
  End Select
' Fin du bloc de gestion d'erreurs.
 
End Sub
 
 
Private Sub sMajInfosNavig()
 
  Dim rs As DAO.Recordset
 
On Error GoTo GestionErr
 
  'On indique si le filtre est activé
  If Me.FilterOn Then mstrFiltré = " (Filtré)"
 
  'On compte le nombre d'enregistrements affichés
  Set rs = Me.RecordsetClone
  rs.MoveLast
  mlngCpteEnr = rs.RecordCount
  rs.Close
  Set rs = Nothing
 
Exit Sub
 
' Bloc de gestion d'erreurs.
GestionErr:
  Select Case Err.Number
    Case Else
      MsgBox "Erreur " & Err.Number & " : " & _
      Err.Description, vbCritical, _
      "Form_CREATION_TOURNOI.sMajInfosNavig"
  End Select
' Fin du bloc de gestion d'erreurs.
 
End Sub

[deejaygalut]

c'est bon, en bidouillant ici et la... en mettant FALSE comme tu l'as dit, et me suis rendu compte que dans la procdéure j'avais tapé CREATION_TOURNOI_BeforUpdate alors qu'il fallait mettre form_BeforeUpdate

Merci à vous qui m'avez répondu!