¥xÆW³Ì¤jµ{¦¡³]­pªÀ¸sºô¯¸
½u¤W¤H¼Æ
2547
 
·|­ûÁ`¼Æ¡G246709
°Q½×¥DÃD¡G190127
Åwªï±z§K¶O¥[¤J·|­û
°Q½×°Ï¦Cªí >> ACCESS >> ¦³Ãö¬d¸ß¸ß°Ý
[]  
[§Ú­n¦^ÂÐ]
1
¦^À³¥DÃD ¥[¤J§ÚªºÃöª`¸ÜÃD ÀËÁ|¦¹½g°Q½× ±N´£°ÝªÌ¥[¤J­Ó¤H¶Â¦W³æ
¦³Ãö¬d¸ß¸ß°Ý
»ù­È : 40 QP  ÂI¾\¼Æ:252 ¦^À³¼Æ:9
¼Ó¥D

¶Â·¬
ªù¥~º~
0 2
64 12
µo°e¯¸¤º«H

§Ú­n°µ¤@­Ó¬d¸ß¤¶­±¡A¦ý¬O¹J¨ìÃøÃD¡A¦³¤Wºô¬d¬Ý¤@¨Ç¬d¸ß¤¶­±ªº¤@¨Ç°µªk¡A¦ý³£¤£¬O§Ú·Q­nªº¡A§Ú·Q­n°µªº¬d¸ß¤¶­±¬O¥i¥H¦Û¤v¦b¬d¸ßªº±ø¥ó¤¤¿é¤J AND©ÎªÌOR(¨Ò¦p§Ú­n¬d¸ß a and c©Î¬O a or c¡A¥i¥H¸õµÛ¿é¤J¬ÛÃöªº±ø¥ó)¡AµM«á¦b±q¿é¤Jªº±ø¥ó¤¤¿z¿ï§e²{¡A¦ý¬O¬d¸ß¤¶­±ªº®×¨Ò¤j³£¬O¬Y¤@¬qªº³sÄò¿z¿ï¡A¨Ò¦pa-c¤§¶¡¡A·Q½Ð°Ý¬O§_¦³¤H¥i¥H´£¨Ñ¬ÛÃöªº®×¨Ò°Ñ¦Ò©Î¬O»¡©ú¤@¤U¡AÁÂÁ¡C




·j´M¬ÛÃöTagsªº¤å³¹¡G [ ACCOUNT ] , [ and ] , [ or ] ,
¥»½g¤å³¹µoªí©ó2022-02-24 15:14
1¼Ó
¦^À³

P³¯
ÀËÁ|¦¹¦^À³
1.¦bForm1 ¤¤©ñ¤@­Ó¤å¦r®Ø¦W¬° TB_Where ©ñ
(A) ID=a or ID=c ©Î
(B) ID=a And ID=c

2.¦b Form1 ¤¤©ñ¤@­ÓButton bn_click1
3.bn_click1 ªºµ{¦¡
sqlstr="Select * from table1 where " & tb_where <--- °õ¦æ¥»¥y®É¨Ì TB_Where ¤º®e¨Ó¨ú¥X¸ê®Æ

set rs1=Currentdb.openrecordset(sqlstr)
rs1 ´N¬O©Ò¨D
¥»½g¤å³¹¦^ÂЩó2022-03-01 16:25
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
2¼Ó
§@ªÌ¦^À³

¶Â·¬
ÀËÁ|¦¹¦^À³
Dim stDocName As String
Dim stLinkCriteria As String
Dim temp As Integer
Dim flag As Boolean

stDocName = "À³¦¬´Ú¸ê®Æ"

If Me.¨Ï¥ÎªÌ <> "account" Then

MsgBox ("§A¨S¦³³o­ÓÅv­­")

Exit Sub

End If

If IsNull(Me![¶i´Ú¤é°_]) And Not IsNull(Me![¶i´Ú¤é¤î]) Then
temp = MsgBox("¶}©l¤é´ÁªÅ¥Õ,½Ð¿é¤J¶}©l¤é´Á", vbInformation)
Exit Sub
End If
If Not IsNull(Me![¶i´Ú¤é°_]) And IsNull(Me![¶i´Ú¤é¤î]) Then
temp = MsgBox("ºI¤î¤é´ÁªÅ¥Õ,½ÐºI¤î¶}©l¤é´Á", vbInformation)

Exit Sub
End If

flag = False


If Not IsNull(Me![¥»©Ò½s¸¹]) Then '¥»©Ò½s¸¹

If flag Then
stLinkCriteria = stLinkCriteria & " and " & "[¥»©Ò½s¸¹] like " & "'" & [¥»©Ò½s¸¹] & "*'"
Else
stLinkCriteria = "[¥»©Ò½s¸¹] like " & "'" & [¥»©Ò½s¸¹] & "*'"
flag = True
End If
End If


If Not IsNull(Me![«È¤á]) Then '«È¤á¦WºÙ
If flag Then
stLinkCriteria = stLinkCriteria & " and " & "[«È¤á] like " & "'" & [«È¤á] & "*'"
Else
stLinkCriteria = "[«È¤á] like " & "'" & [«È¤á] & "*'"
flag = True
End If
End If

If Not IsNull(Me![³øµ|¦~«×]) Then '³øµ|¦~«×
If flag Then
stLinkCriteria = stLinkCriteria & " and " & "[³øµ|¦~«×] like " & "'" & [³øµ|¦~«×] & "*'"
Else
stLinkCriteria = "[³øµ|¦~«×] like " & "'" & [³øµ|¦~«×] & "*'"
flag = True
End If

End If

If Not IsNull(Me![½Ð´Ú¸¹]) Then '½Ð´Ú¸¹
If flag Then
stLinkCriteria = stLinkCriteria & " and " & "[½Ð´Ú¸¹] like " & "'" & [½Ð´Ú¸¹] & "*'"
Else
stLinkCriteria = "[½Ð´Ú¸¹] like " & "'" & [½Ð´Ú¸¹] & "*'"
flag = True
End If
End If

If Not IsNull(Me![½Ð´Ú¤é°_]) And Not IsNull(Me![½Ð´Ú¤é¤î]) Then
If stLinkCriteria & "" <> "" Then
stLinkCriteria = stLinkCriteria & " and ½Ð´Ú¤é >= #" & Me![½Ð´Ú¤é°_] & "# and ½Ð´Ú¤é <= #" & Me![½Ð´Ú¤é¤î] & "#"
Else
stLinkCriteria = "½Ð´Ú¤é >= #" & Me![½Ð´Ú¤é°_] & "# and ½Ð´Ú¤é <= #" & Me![½Ð´Ú¤é¤î] & "#"
End If
End If

DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![À³¦¬´Ú¸ê®Æ].¨Ï¥ÎªÌ = Me.¨Ï¥ÎªÌ
End Sub

­ì¥ý³]­pªº¦p¤W¤è¡A¬d¸ß¥u¯à°w¹ï³s¸¹©Î¬O¬Y¤@½d³ò¡A¤£¯à¸õµÛ¬d¸ß¡A°Ñ¦Ò±zªº¤èªk¡A­×§ï¦p¤U¡A¤£¹LÅã¥Ü¿ù»~¡AµLªk¨Ì·Ó¬d¸ß±ø¥ó¬d¸ß¡A·Q½Ð°Ý¬O­þÃ䦳°ÝÃD©O¡H

Private Sub Command33_Click()

Dim stDocName As String
Dim stLinkCriteria As String
Dim rst1 As Recordset

stDocName = "À³¦¬´Ú¸ê®Æ"

If Me.¨Ï¥ÎªÌ <> "account" Then

MsgBox ("§A¨S¦³³o­ÓÅv­­")

Exit Sub

End If

stLinkCriteria = "Select * From [±b°È¸ê®Æªí] where " & Text27

DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub
¥»½g¤å³¹¦^ÂЩó2022-03-02 17:02
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
3¼Ó
¦^À³

P³¯
ÀËÁ|¦¹¦^À³
§A Text27 ¤º¥´¤°»ò?
¥»½g¤å³¹¦^ÂЩó2022-03-02 17:38
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
4¼Ó
¦^À³

P³¯
ÀËÁ|¦¹¦^À³
¥t¡GÅã¥Üªº¿ù»~¬O¤°»ò ?
¥»½g¤å³¹¦^ÂЩó2022-03-02 17:41
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
5¼Ó
§@ªÌ¦^À³

¶Â·¬
ÀËÁ|¦¹¦^À³
§A Text27 ¤º¥´¤°»ò?
½Ð´Ú¸¹=1101035 or ½Ð´Ú¸¹=1101030

Åã¥Üªº¿ù»~¬O¤°»ò ?
°õ¦æ¶¥¬q¿ù»~'3270'
§ä¤£¨ìÄÝ©Ê
¥»½g¤å³¹¦^ÂЩó2022-03-02 18:16
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
6¼Ó
§@ªÌ¦^À³

¶Â·¬
ÀËÁ|¦¹¦^À³
µM«á¶i¦æ°»¿ù¡AÅã¥Ü¤U­±³o¬q¦³°ÝÃD
DoCmd.OpenForm stDocName, , , stLinkCriteria
¥»½g¤å³¹¦^ÂЩó2022-03-02 18:19
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
7¼Ó
¦^À³

P³¯
ÀËÁ|¦¹¦^À³
DoCmd.OpenForm stDocName, , , stLinkCriteria


stLinkCriteria ³oùجO­n©ñ±ø¥ó where condition
©Ò¥H¬Oª½±µ©ñ
½Ð´Ú¸¹='1101035' or ½Ð´Ú¸¹='1101030'
¤]´N¬O stLinkCriteria= text27

¦Ó¤£¬O©ñ Select .... where .....
¥»½g¤å³¹¦^ÂЩó2022-03-05 17:42
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
8¼Ó
§@ªÌ¦^À³

¶Â·¬
ÀËÁ|¦¹¦^À³
¤F¸Ñ¡A¤w¥i¥H°õ¦æ¤F¡AÁÂÁÂP³¯¤j¤j¡C
¥»½g¤å³¹¦^ÂЩó2022-03-07 10:42
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
9¼Ó
§@ªÌ¦^À³

¶Â·¬
ÀËÁ|¦¹¦^À³
©_©Ç¡A§Ú¥»¨Ó­n¿ïP³¯¤j¤jªº¦^À³¬°³Ì¨Î¸Ñµª¡Aµ²ªG´Nª½±µÅܦ¨¨S¦³³Ì¨Î¦^´_¤F
¥»½g¤å³¹¦^ÂЩó2022-03-07 10:45
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
   
1

¦^ÂÐ
¦p­n¦^À³,½Ð¥ýµn¤J.