![]() ![]() ![]() ![]() |
|||||
|
|||||
¼Ó¥D ¶Â·¬ ![]()
![]() |
|
1¼Ó |
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¼Ó |
§A Text27 ¤º¥´¤°»ò?
¥»½g¤å³¹¦^ÂЩó2022-03-02 17:38
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
4¼Ó |
¥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¼Ó |
DoCmd.OpenForm stDocName, , , stLinkCriteria
stLinkCriteria ³oùجOn©ñ±ø¥ó 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ÀÉ-- |
¦^ÂÐ |
¦pn¦^À³,½Ð¥ýµn¤J. |