c_c_lai

¦^´_ 4# c_c_lai

1. '  [Sheet1 (¾÷²¼§@·~)]
   
2. Option Explicit
   
3. Option Base 1
   
4. 
   
5. Dim cnn As Object      '  New ADODB.Connection
   
6. Dim cmd As Object      '  New ADODB.Command
   
7. Dim rs As Object       '  New ADODB.Recordset
   
8. Dim strSQL As String
   
9. Dim editMode As Boolean
   
10. Dim State, CursorLocation
    
11. 
    
12. Sub OpenDB()
    
13.     If ExcelData.Value = True Then    '  [data$]
    
14.         Set cnn = CreateObject("ADODB.Connection")
    
15.         Set rs = CreateObject("ADODB.Recordset")
    
16.         Set cmd = CreateObject("ADODB.Command")
    
17.     Else                              '  ¾÷²¼¬ö¿ý
    
18.         Set cnn = New ADODB.Connection
    
19.         Set rs = New ADODB.Recordset
    
20.         Set cmd = New ADODB.Command
    
21.     End If
    
22.     '  ObjectStateEnum Values
    
23.     '  Returns a value describing if the connection is open or closed
    
24.     '  Specifies whether an object is open or closed, connecting to a data source,
    
25.     '  executing a command, or retrieving data.
    
26.     '  --------------------------------------------------------------------------
    
27.     '  Constant             Value     Description
    
28.     '  --------------------------------------------------------------------------
    
29.     '  adStateClosed          0       The object is closed
    
30.     '  adStateOpen            1       The object is open
    
31.     '  adStateConnecting      2       The object is connecting
    
32.     '  adStateExecuting       4       The object is executing a command
    
33.     '  adStateFetching        8       The rows of the object are being retrieved
    
34.     With cnn
    
35.         If .State = 1 Then .Close    '  adStateOpen
    
36.         
    
37.         If ExcelData.Value = True Then
    
38.             .ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & _
    
39.                                 ActiveWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name
    
40.         Else
    
41.             .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
    
42.                               ThisWorkbook.Path & Application.PathSeparator & "¾÷²¼°O¿ý©ú²Óªí.mdb" & ";"
    
43.             '  For Microsoft.ACE.OLEDB.12.0,you need Microsoft Office 12.0 Access Database Engine to be installed.
    
44.             '  .ConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;" & "Data Source=" & _
    
45.             '                    ThisWorkbook.Path & Application.PathSeparator & "¾÷²¼°O¿ý©ú²ÓªíÀÉ®×.accdb" & ";"
    
46.         End If
    
47.         .Open
    
48.     End With
    
49. End Sub
    
50. 
    
51. Sub closeRS()
    
52.     With rs
    
53.         If ExcelData.Value = False Then
    
54.             If .State = 1 Then .Close    '  adStateOpen
    
55.             '  The CursorLocation property is used to set or return the location of the cursor.
    
56.             '  This property can be set to one of the CursorLocationEnum constants listed in the following table.
    
57.             '  Enumeratio0n     Value   Description
    
58.             '  adUseNone          1     This value indicates no cursor location.
    
59.             '                           This value is not supported by the MicrosoftR OLE DB Provider for AS/400 and VSAM.
    
60.             '  adUseServer        2     This value indicates that the data provider or driver-supplied cursor is used.
    
61.             '  adUseClient        3     This value indicates that a client-side cursor supplied by a local cursor library
    
62.             '                           is to be used.
    
63.             '  adUseClientBatch   3     For backward compatibility, this value indicates that a client-side cursor supplied by
    
64.             '                           a local cursor library is to be used.
    
65.             .CursorLocation = 3          '  adUseClient
    
66.         Else
    
67.             If State = 1 Then .Close    '  adStateOpen
    
68.             CursorLocation = 3          '  adUseClient
    
69.         End If
    
70.     End With
    
71. End Sub
    
72. 
    
73. Private Sub ExcelData_Click()
    
74.     '  MsgBox "Option is Excel Data "
    
75. End Sub
    
76. 
    
77. Private Sub SQLData_Click()
    
78.     '  MsgBox "Option is SQL Data "
    
79. End Sub
    
80. 
    
81. Private Sub UpdateDropDowns()
    
82.     If ExcelData.Value = True Then
    
83.         strSQL = "Select Distinct [ñÃÒ¤º®e] From [ñÃÒ¶µ¥Ø$] Order by [ñÃÒ¤º®e]"
    
84.     Else
    
85.         strSQL = "Select Distinct ñÃÒ¤º®e From ñÃÒ¶µ¥Ø Order by ñÃÒ¤º®e"
    
86.     End If
    
87.    
    
88.     '  closeRS
    
89.     OpenDB
    
90.     License1.Clear
    
91.     License2.Clear
    
92.    
    
93.     rs.Open strSQL, cnn, 1, 3     '  adOpenKeyset, adLockOptimistic
    
94.     If rs.RecordCount > 0 Then
    
95.         Do While Not rs.EOF
    
96.             License1.AddItem rs.Fields(0)    '  Select Distinct [ñÃÒ¤º®e] From
    
97.             License2.AddItem rs.Fields(0)    '  Select Distinct [ñÃÒ¤º®e] From
    
98.             rs.MoveNext
    
99.         Loop
    
100.     Else
     
101.         MsgBox "I was not able to find any unique ñÃÒ¤º®e.", vbCritical + vbOKOnly
     
102.         Exit Sub
     
103.     End If
     
104. End Sub
     
105. 
     
106. Private Sub Confirm_Click()
     
107.     Dim tblName As String, fld As String
     
108.     Dim nCode As Range
     
109.    
     
110.     If CallID.Text = "" Then RecordExisted.Caption = "": Exit Sub
     
111.    
     
112.     RecordExisted.Caption = ""
     
113.     DateTime.Value = ""
     
114.     DataCear
     
115. 
     
116.     DateTime.Enabled = True
     
117.         
     
118.     UpdateDropDowns
     
119.         
     
120.     If ExcelData.Value = False And SQLData.Value = False Then ExcelData.Value = True
     
121.         
     
122.     If ExcelData.Value = True Then      '  ±q Sheets("data") ¤¤Â^¨ú¸ê®Æ
     
123.         tblName = "[data$]"
     
124.         fld = "[¦W¦r]"
     
125. 
     
126.         Set nCode = Sheets("data").[B:B].Find(CallID.Text, , , 1)
     
127.         If Not nCode Is Nothing Then
     
128.             editMode = True
     
129.             RecordExisted.ForeColor = &HFF0000
     
130.             RecordExisted.Caption = "§ó·s¥Ø«e¸ê®Æ"
     
131.             DeleteData.Visible = True
     
132.                
     
133.             With nCode
     
134.                 DeptNo.Text = .Offset(, -1)
     
135.                 DateTime.Text = .Offset(, 1)
     
136.                 CreditDate.Text = .Offset(, 2)
     
137.                 routinefrom.Text = .Offset(, 3)
     
138.                 routineto.Text = .Offset(, 4)
     
139.                 contents.Text = .Offset(, 5)
     
140.                 cabin.Text = .Offset(, 6)
     
141.                 License1.Text = .Offset(, 7)
     
142.                 LicenseFee1.Text = .Offset(, 8)
     
143.                 License2.Text = .Offset(, 9)
     
144.                 LicenseFee2.Text = .Offset(, 10)
     
145.                 ticketfee.Text = .Offset(, 11)
     
146.                 totalfee.Text = .Offset(, 12)
     
147.                 remarks.Text = .Offset(, 13)
     
148.             End With
     
149.         Else
     
150.             editMode = False
     
151.             RecordExisted.ForeColor = 255
     
152.             RecordExisted.Caption = "·s¼W¤@µ§¸ê®Æ"
     
153.             DeleteData.Visible = False
     
154.             '  DateTime.Enabled = True
     
155.             DateTime.Text = Now()
     
156.         End If
     
157.     Else                               '  ±q Access ¾÷²¼¬ö¿ý ¤¤Â^¨ú¸ê®Æ
     
158.         tblName = "¾÷²¼¬ö¿ý"
     
159.         fld = "¦W¦r"
     
160.    
     
161.         '  Populate data
     
162.         strSQL = "SELECT * FROM " & tblName & " WHERE " & fld & " = '" & CallID.Text & "'"
     
163.             
     
164.         '  Now extract data
     
165.         closeRS
     
166.         OpenDB
     
167.                
     
168.         rs.Open strSQL, cnn, 1, 3     '  adOpenKeyset, adLockOptimistic
     
169.         '  rs.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
     
170.         '  rs.Open strSQL, cnn, , adOpenDynamic
     
171.         
     
172.         If rs.RecordCount > 0 Then
     
173.             editMode = True
     
174.             RecordExisted.ForeColor = &HFF0000
     
175.             RecordExisted.Caption = "§ó·s¥Ø«e¸ê®Æ"
     
176.             DeleteData.Visible = True
     
177.                
     
178.             '  ±N·j´M¨ì°¦¸ê®Æ¼g¤J¦U¬ÛÃöÄæ¦ì¤º (0 To rs.Fields.Count - 1)
     
179.             With rs
     
180.                 DeptNo.Value = .Fields(0).Value
     
181.                 DateTime.Value = .Fields(2).Value
     
182.                 CreditDate.Value = .Fields(3).Value
     
183.                 routinefrom.Value = .Fields(4).Value
     
184.                 routineto.Value = .Fields(5).Value
     
185.                 contents.Value = .Fields(6).Value
     
186.                 cabin.Value = .Fields(7).Value
     
187.                 License1.Value = .Fields(8).Value
     
188.                 LicenseFee1.Value = .Fields(9).Value
     
189.                 License2.Value = .Fields(10).Value
     
190.                 LicenseFee2.Value = .Fields(11).Value
     
191.                 ticketfee.Value = .Fields(12).Value
     
192.                 totalfee.Value = .Fields(13).Value
     
193.                 remarks.Value = .Fields(14).Value
     
194.             End With
     
195.         Else
     
196.             editMode = False
     
197.             RecordExisted.ForeColor = 255
     
198.             RecordExisted.Caption = "·s¼W¤@µ§¸ê®Æ"
     
199.             DeleteData.Visible = False
     
200.             '  DateTime.Enabled = True
     
201.             DateTime.Text = Now()
     
202.         End If
     
203.     End If
     
204.     Confirm.Enabled = False
     
205.     SaveData.Enabled = True
     
206.     ResetData.Enabled = True
     
207.     DateTime.Enabled = False
     
208. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 3# c_c_lai
¦]¬°¦³¨Ç·|­û¦]¥Ø«e©|µLªk¤U¸ü¡A©Ò¥H±Nµ{¦¡½X¶K¤W¡A
©|½Ð¦U¦ì¤j¤j¹©¤OÀ°¦£¡A¸Ñ¨M³B²z Access 2010 VBA ³sµ²°ÝÃD¡A
¦b¦¹¥ý¦æ»¡ÁnÁÂÁÂÀ°¦£¡I

1. '  [ThisWorkbook]
   
2. Option Explicit
   
3. 
   
4. Private Sub Workbook_Open()
   
5.     With Sheets("¾÷²¼§@·~")
   
6.         .ExcelData.Value = True
   
7.         .SQLData.Value = False
   
8.         .CallID.Value = ""
   
9.         .DateTime.Value = ""
   
10.         .RecordExisted.Caption = ""
    
11.         .Activate
    
12.         .SaveData.Enabled = False
    
13.         .ResetData.Enabled = False
    
14.         .ResetData_Click
    
15.     End With
    
16. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 2# c_c_lai
Acess ¸ê®Æ®w¡G
¾÷²¼°O¿ý©ú²Óªí.mdb
¾÷²¼°O¿ý©ú²ÓªíÀÉ®×.accdb  (For 2010)
2014¦~¾÷²¼°O¿ýdb.rar (29.21 KB)

¤U¸ü¦¸¼Æ: 40

2013-12-8 19:48

©|½Ð¦U¦ì¤j¤j¹©¤O¨ó§U¸Ñ¨M¡AÁÂÁ¤j®a¡I

c_c_lai

¦^´_ 1# c_c_lai
ªþ¤Wµ{¦¡¡G
2014¦~¾÷²¼°O¿ý.rar (68.94 KB)

¤U¸ü¦¸¼Æ: 46

2013-12-8 19:46