|  | ■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 であれば、「'」が含まれていてもエラーになりません。
 
 |