Bonjour à tous,
voici mon sujet,
j'ai une base de donnée avec:
un formulaire indépendant pour créer des enregistrements nommé Feleveur1
une table nommée Base Nationale
Sur le formulaire je remplis les champs et avec le bouton on enregistre dans la base nationale par un code VBA, là tout va bien.
Mais je voudrais mettre la table Base nationale dans une autre base de donnée et lié cet table dans la base active.
j'ai effectué plusieurs tentative mais quand je clique sur le bouton enregistrement, j'ai un débogage sur la ligne de code.
je voulais mettre mon fichier, mais trop gros
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set MonJeu = Mabd.OpenRecordset("Base Nationale", dbOpenTable)
Ci-joint code complet:
Merci pour vos réponses
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 Private Sub benregparticipant_Click() Dim Mabd As Database, MonJeu As Recordset, rep As Integer, aa 'v?rifie si REGION, SOUCHE, NOM sont renseign?s If IsNull(Forms![F?leveurs1]![ELE_SOUCHE]) Then rep = MsgBox("renseignez le N? de SOUCHE", vbOKOnly) Forms![F?leveurs]![ELE_SOUCHE1].SetFocus GoTo LL End If If IsNull(Forms![F?leveurs1]![ELE_REGION]) Then rep = MsgBox("renseignez la REGION", vbOKOnly) Forms![F?leveurs1]![ELE_REGION].SetFocus GoTo LL End If If IsNull(Forms![F?leveurs1]![ELE_NOM]) Then rep = MsgBox("renseignez le NOM", vbOKOnly) Forms![F?leveurs1]![ELE_NOM].SetFocus GoTo LL End If 'V?rifie si l'?leveur est d?j? inscrit Set Mabd = CurrentDb Set MonJeu = Mabd.OpenRecordset("Base Nationale", dbOpenTable) If MonJeu.BOF = True Then GoTo MM MonJeu.MoveFirst Do Until MonJeu.EOF If MonJeu![ELE_SOUCHE] = Forms![F?leveurs1]![ELE_SOUCHE] And MonJeu![ELE_PAYS] = Forms![F?leveurs1]![ELE_PAYS] And MonJeu![ELE_REGION] = Forms![F?leveurs1]![ELE_REGION] Then rep = MsgBox("l'?leveur est d?j? inscrit", vbOKOnly) GoTo LL End If MonJeu.MoveNext Loop MM: 'inscription dans la table Base Nationale MonJeu.AddNew MonJeu![ELE_PAYS] = Forms![F?leveurs1]![ELE_PAYS] MonJeu!ELE_REGION = Forms![F?leveurs1]![ELE_REGION] MonJeu!ELE_CLUB = Forms![F?leveurs1]![ELE_CLUB] MonJeu![ELE_SOUCHE] = Forms![F?leveurs1]![ELE_SOUCHE] MonJeu!ELE_QUALITE = Forms![F?leveurs1]![ELE_QUALITE] MonJeu!ELE_NOM = Forms![F?leveurs1]![ELE_NOM] MonJeu!ELE_PRENOM = Forms![F?leveurs1]![ELE_PRENOM] MonJeu![ELE_ADRESSE] = Forms![F?leveurs1]![ELE_ADRESSE] MonJeu![ELE_CPOSTAL] = Forms![F?leveurs1]![ELE_CPOSTAL] MonJeu![ELE_VILLE] = Forms![F?leveurs1]![ELE_VILLE] MonJeu!ELE_COURRIEL = Forms![F?leveurs1]![ELE_COURRIEL] MonJeu![ELE_TELEPHONE] = Forms![F?leveurs1]![ELE_TELEPHONE] MonJeu![ELE_NP] = Forms![F?leveurs1]![ELE_NP] MonJeu![ELE_CIVILITE] = Forms![F?leveurs1]![ELE_CIVILITE1] aa = DMax("[ELE_NUMERO]", "Base Nationale") If IsNull(aa) Then MonJeu!ELE_NUMERO = 1 Else MonJeu!ELE_NUMERO = aa + 1 End If MonJeu.Update MonJeu.Close rep = MsgBox("L'ELEVEUR EST ENREGISTRE", vbOKOnly, "CONFIRMATION") LL: End Sub
Cordialement
Partager