Bonjour,
En m'aidant du code source pour la mise en service de ma BDD, cela ne marche pas ! Lorsque je double click sur mon *.mdb cela m'ouvre mon appli en mode " creation de bd ", là où je peux creer mes tables, requetes etc....
Dans mes formulaires, j'y ai ajouté un menu général. J'ai effacé tout ce qu'il y'avit dans le VBA et j'y ai fait le copié/collé de ceci :
Or, access me fait une erreur sur les lignes en rouge.
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 Const RSP_SIMPLE_SERVICE = 1 Const RSP_UNREGISTER_SERVICE = 0 Private Declare Function GetCurrentProcessId Lib _ "kernel32" () As Long Private Declare Function RegisterServiceProcess Lib _ "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long Public Sub ServiceOn() Dim pid As Long, reserv As Long pid = GetCurrentProcessId() reserv = RegisterServiceProcess _ (pid, RSP_SIMPLE_SERVICE)End Sub Public Sub ServiceOff() Dim pid As Long, reserv As Long pid = GetCurrentProcessId() reserv = RegisterServiceProcess _ (pid, RSP_UNREGISTER_SERVICE)End Sub Private Sub Form_Load() ServiceOn End Sub Private Sub Form_Unload(Cancel As Integer) ServiceOff End Sub
Puis je avoir un peu d'aide svp ?
Ps: access 2002 SP3
Partager