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
| Option Compare Database
Option Explicit
Private Sub installer_Click()
On Error GoTo Err_installer_Click
Dim stDocName As String
stDocName = "intaller Requête"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_installer_Click:
Exit Sub
Err_installer_Click:
MsgBox Err.Description
Resume Exit_installer_Click
End Sub
Private Sub Commande50_Click()
On Error GoTo Err_Commande50_Click
DoCmd.GoToRecord , , acLast
Exit_Commande50_Click:
Exit Sub
Err_Commande50_Click:
MsgBox Err.Description
Resume Exit_Commande50_Click
End Sub
Private Sub Commande52_Click()
Dim info As Database
Dim instal As Recordset
Dim NumMachin As String
Dim NumLog As String
Dim NomLog As String
Set info = OpenDatabase("info.mdb")
Set instal = info.OpenRecordset("installer", dbOpenDynaset)
NumMachin = Me![NumMachine]
NumLog = Me![Modifiable45]
AddName1 instal, NumMachine, NumLog
actualiser
Exit_Commande52_Click:
Exit Sub
Err_Commande52_Click:
MsgBox Err.Description
Resume Exit_Commande52_Click
End Sub
Function AddName1(installer As Recordset, NumMach As String, NumLo As String)
With installer
.AddNew
!NumMachine = NumMach
!NumLog = NumLo
.Update
.Bookmark = .LastModified
End With
End Function
Private Sub Form_AfterInsert()
actualiser
End Sub
Private Sub Affecter_Click()
Dim info As Database
Dim Util As Recordset
Dim UtilAffect As Recordset
Dim NumMachin As String
Dim NumUtil As String
Dim NomUtil As String
Dim NumUtilAffect As String
Dim StrSql As String
Dim StrCriteria As String
Set info = OpenDatabase("info.mdb")
Set Util = info.OpenRecordset("Utilise", dbOpenDynaset)
Set UtilAffect = info.OpenRecordset("Utilisateur", dbOpenDynaset)
NumMachin = Me![NumMachine]
NumUtil = Me![Modifiable68]
AddName2 Util, NumMachine, NumUtil
actualiser
Exit_Affecter_Click:
Exit Sub
Err_Affecter_Click:
MsgBox Err.Description
Resume Exit_Affecter_Click
End Sub
Function AddName2(installer As Recordset, NumMach As String, NumLo As String)
With installer
.AddNew
!NumMachine = NumMach
!NumUtil = NumLo
.Update
.Bookmark = .LastModified
End With
End Function
Function actualiser()
Me.Refresh
MsgBox ("MAJ")
Me.UtilAffect.Requery
MsgBox ("MAJ1")
Me.LogicielInst.Requery
MsgBox ("MAJ2")
Me.Refresh
MsgBox ("Mise à jour effectué")
End Function
Private Sub Form_AfterUpdate()
actualiser
End Sub |
Partager