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
| Private Sub BoutonCreerSCLM_Click()
On Error GoTo Erreur
If IsNull(CreatenomModsclm) Then
MsgBox ("Saisissez le nom du module !")
CreatenomModsclm.SetFocus
Exit Sub
End If
If IsNull(CreatenomDescrpsclm) Then
MsgBox ("Saisissez la description du module!")
CreatenomDescrpsclm.SetFocus
Exit Sub
End If
If IsNull(SelectTypesclm) Then
MsgBox ("Selectionner le type du module!")
SelectTypesclm.SetFocus
Exit Sub
End If
Dim rst As Recordset
Set rst = TMA_BD.OpenRecordset("Module", dbOpenDynaset)
With rst
.FindFirst "CreatenomModsclm = '" & CreatenomModsclm & "' AND (SelectTypesclm <> '" & TMA_BD.TYPE1 & "' OR CreatenomModsclm <> '" & TMA_BD.NOM1 & "')"
If Not .NoMatch Then
MsgBox ("Ce nom du service existe déjà + !SelectTypesclm + !CreatenomModsclm ")
.Close
CreatenomModsclm.SetFocus
Exit Sub
End If
End With
Set rst = TMA_DB.db.OpenRecordset("Module", dbOpenDynaset)
With rst
.FindFirst "CreatenomModsclm = '" & TMA_BD.NOM1 & "' CreatenomDescrpsclm = '" & TMA_BD.DESCRIPTION1 & "' SelectTypesclm = '" & TMA_BD.TYPE1 & "'"
.Edit
If IsNull(CreatenomModsclm) Then
!CreatenomModsclm = ""
Else
!NOM1 = CreatenomModsclm
End If
If IsNull(CreateDescriptionsclm) Then
!CreatenomDescrpsclm = ""
Else
!DESCRIPTION1 = CreatenomDescrpsclm
End If
If IsNull(SelectTypesclm) Then
!SelectTypesclm = ""
Else
!TYPE1 = SelectTypesclm
End If
.Update
.Close
End With
'enregistrement de la creation dans le journal
Set rst = TMA_DB.OpenRecordset("Module", dbOpenDynaset)
With rst
.AddNew
!CreatenomModsclm = NOM1
!CreatenomDescrpsclm = DESCRIPTION1
!SelectTypesclm = TYPE1
.Update
.Close
End With
Set rst = Nothing
DoCmd.Close
Exit Sub
rst.Close
Erreur:
MsgBox Err.Number & vbCrLf & Err.Description, vbInformation, "Erreur"
End Sub |
Partager