|
■No85485 (かやま さん) に返信 > EXCEL2016でuserform1があり、そこのtextb(テキストボックス)に > YYYYMMDD(年月日)が表示されています
UserForm1 上のボタン Click 時などであれば、こんな感じに書けます。
1: sql = sql & "AND TABLE1.STDE <= '" & textb.Text & "' " & vbCrLf 2: sql = sql & "AND TABLE1.STDE <= '" & textb.Value & "' " & vbCrLf 3: sql = sql & "AND TABLE1.STDE <= '" & Replace(textb.Text, "'", "''") & "' " & vbCrLf 4: sql = sql & "AND TABLE1.STDE <= '" & Replace(textb.Value, "'", "''") & "' " & vbCrLf
1 や 2 の場合、テキストボックス内に「'」の文字が 混入しているとエラーになってしまいます。 3 や 4 であれば、「'」が含まれていてもエラーになりません。
|