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
| Option Compare Database
Option Explicit
Private Const SOURCE_TABLE_NAME As String = "T_Types_PO"
Private Const TARGET_TABLE_NAME As String = "T_Types_PO_Report"
Private Sub cmdSelectAll_Click()
Dim SQL As String
InitButtons False, False, True, True
SQL = "INSERT INTO " & TARGET_TABLE_NAME & " SELECT CD_PO, Lbl_PO FROM " & SOURCE_TABLE_NAME
CurrentDb.Execute SQL, dbSeeChanges
lboTarget.Requery
SQL = "UPDATE " & SOURCE_TABLE_NAME & " SET IsSelected = -1"
CurrentDb.Execute SQL, dbSeeChanges
lboSource.Requery
End Sub
Private Sub cmdSelectItem_Click()
Dim SQL As String
Dim lngItemSelected As Long
Dim strItemSelected As String
InitButtons True, True, True, True
If Not IsNull(Me!lboSource) Then
lngItemSelected = Me!lboSource
strItemSelected = Me!lboSource.Column(1)
SQL = "INSERT INTO " & TARGET_TABLE_NAME & " (CD_PO, Lbl_PO) VALUES (" & lngItemSelected & ", '" & strItemSelected & "')"
CurrentDb.Execute SQL, dbSeeChanges
lboTarget.Requery
SQL = "UPDATE " & SOURCE_TABLE_NAME & " SET IsSelected = -1 WHERE CD_PO = " & lngItemSelected
CurrentDb.Execute SQL, dbSeeChanges
lboSource.Requery
End If
End Sub
Private Sub cmdUnselectAll_Click()
Dim SQL As String
InitButtons True, True, False, False
DeleteDataBefore
SQL = "UPDATE " & SOURCE_TABLE_NAME & " SET IsSelected = 0"
CurrentDb.Execute SQL, dbSeeChanges
lboSource.Requery
End Sub
Private Sub cmdUnselectItem_Click()
Dim SQL As String
Dim lngItemSelected As Long
InitButtons True, True, True, True
If Not IsNull(Me!lboTarget) Then
lngItemSelected = Me!lboTarget
SQL = "DELETE * FROM " & TARGET_TABLE_NAME & " WHERE CD_PO = " & lngItemSelected
CurrentDb.Execute SQL, dbSeeChanges
lboTarget.Requery
SQL = "UPDATE " & SOURCE_TABLE_NAME & " SET IsSelected = 0 WHERE CD_PO = " & lngItemSelected
CurrentDb.Execute SQL, dbSeeChanges
lboSource.Requery
End If
End Sub
Private Sub Form_Load()
DeleteDataBefore
InitButtons False, False, False, False
End Sub
Private Sub DeleteDataBefore()
Dim SQL As String
CurrentDb.Execute "DELETE * FROM " & TARGET_TABLE_NAME, dbSeeChanges
lboTarget.Requery
SQL = "UPDATE " & SOURCE_TABLE_NAME & " SET IsSelected = 0"
CurrentDb.Execute SQL, dbSeeChanges
lboSource.Requery
End Sub
Private Sub InitButtons(ByVal SelectItem As Boolean, ByVal SelectAll As Boolean, ByVal UnselectItem As Boolean, ByVal UnselectAll As Boolean)
lboTarget.SetFocus
cmdSelectItem.Enabled = SelectItem
cmdSelectAll.Enabled = SelectAll
cmdUnselectItem.Enabled = UnselectItem
cmdUnselectAll.Enabled = UnselectAll
End Sub
Private Sub lboSource_AfterUpdate()
InitButtons True, True, False, False
End Sub |
Partager