- ©«¤l
- 49
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 107
- ÂI¦W
- 0
- §@·~¨t²Î
- win 10
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2017-7-15
- ³Ì«áµn¿ý
- 2023-6-12
|
[µo°Ý] VBA¨D±Ï°ª¤â¡A±N¸ê®Æ¤À³Î¨ì«ü©wTEXTBOX
§Ú¬O¥ÎVBA¡A·Qn·s¼W¤@¨Ç¸ê®Æ¡A±qSQL SERVER¤¤Åª¨ú"³Æµù"ªº¸ê®Æ¡A³Æµùªº¸ê®Æ½d¨Ò¦p¤U
"7/3 USA
PO#22001999 - ®ü¹B
MFG Date¡G2023-03-15
Lancet¡G2201229001 2027-03-13
Code NO : F674
Control L1¡GXC230301L 2025-03-06*1507(QC*0)
Control L2¡GXC230302M 2025-03-05*1507(QC*0)
Control L3¡GXC230303H 2025-03-04*1507(QC*0)
Control L4¡GXC230323L 2025-03-22*1507(QC*0)
Control L5¡GXC2303012M 2025-03-23*1507(QC*0)
Control L6¡GXC23033232 2025-03-19*1507(QC*0)
MFG L1¡G2022-03-06
MFG L2¡G2022-03-07
MFG L3¡G2022-03-08
Strips¡GTHS2303002 2025-03-14
L1¡G46 - 76 mg/dL¡B34 - 78 mmol/L¡AMean: 61 mg/dL¡B62 mmol/L
L2¡G90 - 134 mg/dL¡B56 -90 mmol/L¡AMean: 112 mg/dL¡B63 mmol/L
L3¡G173 - 259 mg/dL¡B66 -778 mmol/L¡AMean: 216 mg/dL¡B64 mmol/L"
§Ú·Qn±N¥H¤W"³Æµù"ªº¸ê®Æ¤À§O³£¦s¤JTEXTBOX¤¤
¹w´Áªºµ²ªG¦p¤U
TEXTBOX27=22001999
TEXTBOX23=2023-03-15
TEXTBOX24=2201229001
TEXTBOX25=2027-03-13
TEXTBOX26=F674
TEXTBOX4=XC230301L
TEXTBOX15=XC230302M
TEXTBOX16=XC230303H
TEXTBOX6=2025-03-06
TEXTBOX19=2025-03-05
TEXTBOX20=2025-03-04
TEXTBOX13=2022-03-06
TEXTBOX17=2022-03-07
TEXTBOX18=2022-03-08
TEXTBOX21=THS2303002
TEXTBOX22=2025-03-14
TEXTBOX28=46
TEXTBOX29=76
TEXTBOX30=34
TEXTBOX31=78
TEXTBOX32=61
TEXTBOX33=62
TEXTBOX34=90
TEXTBOX35=134
TEXTBOX36=56
TEXTBOX37=90
TEXTBOX38=112
TEXTBOX39=63
TEXTBOX40=173
TEXTBOX41=259
TEXTBOX42=66
TEXTBOX43=778
TEXTBOX44=216
TEXTBOX45=64
§ÚªºCODE¦p¤U¡A
Private Sub CommandButton1_Click()
Dim cn As Object
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = Target
cn.Open
Dim strSQL As String
strSQL = "SELECT DISTINCT ®Æ¸¹, ¤u¥O¼Æ¶q, ¾÷¾¹§Ç¸¹¶}©l,³Æµù FROM WORK43600 WHERE ¤u¥O='" & TextBox1.Value & "'"
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.Open strSQL, cn
If Not rs.EOF Then
TextBox2.Value = rs("®Æ¸¹").Value
TextBox3.Value = rs("¤u¥O¼Æ¶q").Value
TextBox5.Value = rs("¾÷¾¹§Ç¸¹¶}©l").Value
Dim remark As String
remark = rs("³Æµù").Value
Else
MsgBox "§ä¤£¨ì¬ÛÀ³ªº¤u³æ¡I", vbExclamation, "¿ù»~"
End If
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub |
|