1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Private Sub cmdEnregistrer_Click()
Select Case txtNomTable
Case "BT2020"
Dim sSQL As String
sSQL = "INSERT INTO BT2020(Info1,Info2,Info3,Info4)" _
& "values(Mid(txtNomTable,1,2),Mid(txtNomTable,3,6),txtInfo3,txtInfo4)"
DoCmd.RunSQL sSQL
MsgBox "Enregistrement effectué dans la table BT2020...."
Case "BT2020i"
Dim sSQL As String
sSQL = "INSERT INTO BT2020i(Info1,Info2,Info3,Info4)" _
& "values(Mid(txtNomTable,1,2),Mid(txtNomTable,3,5),txtInfo3,txtInfo4)"
DoCmd.RunSQL sSQL
MsgBox "Enregistrement effectué dans la table BT2020i...."
Case Else
MsgBox "Le nom de la table est différent de BT2020i....", vbInformation
End Select
End Sub |
Partager