HoangManh > 26-04-17, 11:04 AM
ongke0711 > 26-04-17, 11:36 AM
HoangManh > 26-04-17, 11:43 AM
ongke0711 > 26-04-17, 11:51 AM
HoangManh > 26-04-17, 12:34 PM
ongke0711 > 26-04-17, 12:52 PM
HoangManh > 26-04-17, 02:09 PM
(26-04-17, 12:52 PM)ongke0711 Đã viết: Giá trị của từng cái checkbox chính là cái Option value khi bạn vô Property|Data của nó đó. Nó là số: 1,2,3...
Code bạn thường bạn nên dùng là Select Case
Vd:
Select Case Me.Frame0.Value 'Frame0: là toàn bộ cái Option Group của bạn
Case 1 'Khi checkbox "hang" được chọn
...
Case 2 'Khi checkbox "dongia" được chọn
...
End Select
HoangManh > 26-04-17, 02:51 PM
Dim lCommand As New ADODB.Command 'コマンドオブジェクト
Dim lsSql As String
Dim lDb As Object
Dim lRs As Object
Dim lsPkeyBrk As Integer
lsPkeyBrk = Me.txtPkey
Set lDb = CurrentDb
lsSql = lsSql & " SELECT PKEY, SYOHIN_PKEY, SYOHINCD, SYOHINNM, SYOHINKANA"
lsSql = lsSql & ",SAGYOUDT, TANNI, TNK"
lsSql = lsSql & ",GROUPCD, GROUPNM, SEISANSU, KINGAKU, JINNIN, SEISANSTDT"
lsSql = lsSql & ",SEISANEDDT, SEISANTMMIN, BIKOU, KEIJYOUFLG, UPDUSER, UPDDT"
lsSql = lsSql & " FROM WK_G_SEISAN1 "
lsSql = lsSql & " WHERE PKEY = '" & lsPkeyBrk & "' "
Set lRs = lDb.OpenRecordset(lsSql)
ongke0711 > 26-04-17, 07:41 PM
HoangManh > 27-04-17, 08:57 AM
(26-04-17, 07:41 PM)ongke0711 Đã viết: PKey là AutoNumber thì bạn không đưa nó vào giữa 2 dấu nháy đơn " ' " được.
--> WHERE PKEY = " & lsPkeyBrk