DAOのSeekメソッドの不等号について
いつもお世話になっております。
あるテーブルの項目A,B,Cにインデックス"検索用"と名前をつけたとします。
DAOのSeekメソッドで、
RS.index = "検索用"
RS.seek ">=", 10, 20, 30
とした場合、返される結果は、クエリで
Where A >= 10 and B >= 20 and C>=30
と条件指定したものと同じでしょうか？
よろしくお願い致します。
VBAにより作成した関数の返り値をセル内で改行したいのですが、どうしたら良いのでしょうか？
Private Function txtdate(filepass As String)
Dim fileNo As Integer
Dim count As Integer
Dim outline As String
Dim buf
fileNo = FreeFile
Open filepass & ".txt" For Input As #fileNo '
Do Until EOF(fileNo)
Line Input #fileNo, buf
If count = 0 Then
outline = outline & buf
MsgBox outline
Else
outline = outline & vbLf & buf
MsgBox outline
End If
count = count + 1
Loop
Close #fileNo
txtdate = outline
End Function
このような形でテキストファイルの中身を読み込んでセルに反映させるという事をおこないたいのですが、テキストの内容が2行以上の場合、帰ってくる値に改行を入れたいと思っております。
17行目にそれらしくvblfを追加したのですがセルに上手く反映されません。msgboxで確認したところmsgboxでは問題無く改行が反映されているようなのですが…
エクセルセル内で「=txtdate("適当なテキストファイルのパス名")」という形で関数を呼び出しています。
どなたか対処法教えていただければ幸いです。よろしくお願い致します。
VB ファイルの検索について
こんにちは
VB2008でファイルの種類を指定して、検索するプログラムを作っています。
要求：
１ボタンをクリックして、検索対象のフォルダを指定
２事前に決めたファイル種類(*.txt)を検索する
３(*.txt)がある場合はディスクトップにコピーする
今は１ができましたが、２と３について、どうやって書くのかわからないです。
--------------------ソース------------
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SourcePath As String
Dim fdb As New FolderBrowserDialog
With fdb 'Select to Folder and open it
.Description = "Please Select Folder"
.RootFolder = System.Environment.SpecialFolder.MyComputer
SourcePath = TextBox1.Text
.SelectedPath = SourcePath
If fdb.ShowDialog() = DialogResult.OK Then
TextBox1.Text = fdb.SelectedPath
End If
End With
End Sub
End Class
-------------------------------------------------------
以上
宜しくお願い致します。(^@^)
【VB.NET】複数のサブルーチンをすべて一気に抜ける方法？
今晩は,いつも勉強させていただいております.
質問させていただきます.どうぞよろしくお願いいたします.
環境：Vista+VB2008 でございます。
例えば下のようなコードがあったといたしまして、
Sub AAA
Call BBB
End Sub
Sub BBB
Call CCC
End Sub
Sub CCC
'★
End Sub
特定の条件の時のみ、★マークのところで、動作を終了したい
（Sub AAAのEnd Subに移動したい）場合、どのようにすべきでございましょうか？？
Exit SubだとSub CCCしか抜けてくれませんし（Sub BBBから実行を続行してしまう）、
フラグ立てだと
Public フラグ as string =""
Sub AAA
Call BBB
If フラグ = "抜ける" then Exit Sub
End Sub
Sub BBB
Call CCC
If フラグ = "抜ける" then Exit Sub
End Sub
Sub CCC
If （抜けたい時）then
フラグ = "抜ける"
Exit Sub
End If
End Sub
のように、コードが少し見にくくなってしまいます。。。
何か他のスマートな方法などございましたら、是非ともご紹介いただきたくお願いいたします。
もしお詳しい方がいらっしゃいましたら,どうぞよろしくお願いいたします。
VB ファイルの検索について
こんにちは
VB2008でファイルの種類を指定して、検索するプログラムを作っています。
要求：
１ボタンをクリックして、検索対象のフォルダを指定
２事前に決めたファイル種類(*.txt)を検索する
３(*.txt)がある場合はディスクトップにコピーする
今は１ができましたが、２と３について、どうやって書くのかわからないです。
--------------------ソース------------
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SourcePath As String
Dim fdb As New FolderBrowserDialog
With fdb 'Select to Folder and open it
.Description = "Please Select Folder"
.RootFolder = System.Environment.SpecialFolder.MyComputer
SourcePath = TextBox1.Text
.SelectedPath = SourcePath
If fdb.ShowDialog() = DialogResult.OK Then
TextBox1.Text = fdb.SelectedPath
End If
End With
End Sub
End Class
-------------------------------------------------------
以上
宜しくお願い致します。(^@^)
