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
|
Private Sub ajouter_Click()
On Error GoTo Err_ajouter_Click
Dim strFiltre As String
Dim strSQL As String
Dim stLinkCriteria As String
'Dim strSQL2 As String
' Construction du filtre sur la clé primaire
strFiltre = "Nz([IDUC]) LIKE '*" & Nz(Me.IDUC) & "*'"
' ********* test si l'UC est déjà référencée ******************
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("select [IDUC] from [UC]")
rst.MoveFirst
While rst.EOF = False
If Me.IDUC = rst![IDUC] Then
MsgBox "Cette Unité Centrale est déjà référencée", vbOKOnly
Exit Sub
End If
rst.MoveNext
Wend
'***** insert l'UC dans la table UC ***********
strSQL = "Insert Into UC" _
& "(IDUC, AdresseIp, RamTailleMo, Processeur, OS, ecranResolution)" _
& " Values ('" & Me.IDUC & "','" & Me.AdresseIp & "','" & Me.RamTailleMo & "','" & Me.proc & "','" & Me.OS & "','" & Me.ecranResolution & "')"
DoCmd.RunSQL strSQL
' Ouvrir le formulaire ref_UC avec le filtre appliqué
DoCmd.OpenForm "ref_UC_ajout", acNormal, , strFiltre
Exit_ajouter_Click:
Exit Sub
Err_ajouter_Click:
MsgBox Err.Description
Resume Exit_ajouter_Click
End Sub |
Partager