AccessVBAを最近はじめた初心者です。
～～～フォーム1～～～
Private Sub コマンド0_Click()
DoCmd.OpenForm "フォーム2", , , , , , "コマンド0"
End Sub
Private Sub コマンド1_Click()
DoCmd.OpenForm "フォーム2", , , , , , "コマンド1"
End Sub
～～～フォーム2～～～
Private Sub Form_Load()
Dim strFormName As String
strFormName = Forms.フォーム1.OpenArgs
DoCmd.PrintOut strFormName
End Sub
上のプログラムのようにフォーム1でクリックしたボタンによってフォーム2を読み込んだ時の動作を変えるプログラムを作成しようとしています。
しかし、実際に起動させると、『strFormName = Forms.フォーム1.OpenArgs』の辺りで
「Null の使い方が不正です。」
というエラーメッセージが表示されます。
Accessのヘルプを参照に組んでみたのですが、どの箇所が間違っているのでしょうか？ 回答、よろしくお願いします。
お世話になっております。
フォームAに検索ボックスを作り、検索ボタンを押すと下記のようにフィルタをかけています。
Private Sub 検索_Click()
DoCmd.ApplyFilter , "(分類名 Like '*" & Me.検索語 & "*')"
End Sub
このフォームAをフォームBのサブフォームとして使いたいのですが、そこで検索を実行すると”実行時エラー2491”が出てフィルタができません。
（フォームAとフォームB間のリンクはありません）
他の方法でもいいのですが、サブフォームでフィルタを実行したいと思います。
ご教授いただければ幸いです。よろしくお願いいたします。
いつもお世話になっております。
VB初心者で「BV2008EE」を使っています。よろしくお願いします。
データリーダーが気に入ってよく使っています。
使い方に問題があるのかもしれませんが
***<< ソース例 >>*****************************************
'データコマンドの定義
command.CommandText = "SELECT tana_type FROM tbl_tana ORDER BY tana_type"
'データリーダーからのデータの読み出し
dr = command.ExecuteReader()
Do While dr.Read
'読み出したデータ(Null以外）をコンボボックスに追加する
If Not IsDBNull(dr("tana_type")) Then
cmbTana.Items.Add(dr("tana_type"))
End If
Loop
'データリーダーを閉じる
dr.Close()
***********************************************************
データベースの情報をコンポボックスに追加していくものですが
空白を追加する場合があります。
原因は「NULL」ではなく「""(0文字)」が登録された為です。
一度文字を書いて削除した場所はNULLではなく""になるようです。
データリーダーで""の判定がエラーになるためNULL判定にしたのですが
入力間違いで削除するケースは多いと思う為、どうしようか困っています。
""判定が出来ないのは私のプログラム構造のミスなのかもしれません。
苦肉の策で""だったら「NULL」を書き込もうと思いましたが出来ませんでした。
良い方法がございましたらご教授いただけると助かります。
宜しくお願いいたします。
件名の通り、collection型を引数にしたファンクション・サブプロシージャを作成して実行しようとすると「コンパイルエラー：引数は省略できません」が出力されます。
ファンクションの引数を
Private Function Test(ByRef coltest As Collection)
MsgBox ("Test")
End Sub
のように参照渡しにしても同様の結果となります。
ネットで検索してみましたが、解決策になる回答がみつかりませんでした。
collection型に限らない現象かも知れませんが、どなたか解決策をご存知の方がいらっしゃいましたらご教授願えないでしょうか。
＜動作環境＞
バージョン：access2003
OS：Windows XP professional sp2
現在適用中のコード：（VB2008）
Dim objtextbox As Control
For Each objtextbox In Me.Controls
objtextbox.Text = ""
Next
問題：
1、VB6と違い、Captionプロパティがなくなったため、TextBox以外のTextプロパティも空になってしまうので、コントロールがTextBoxのときだけ処理したい。
2、上記のコードだと、フォーム上にあるグループボックスの中は適用されない。In Me.controles 一発ですべてのグループボックスの中のTextプロパティまで処理したい。
3、そんなのは無理という場合、すべてのコントロールをフォームがロードされた状態にしたい。（できれば、CloseしてShowするのは避けたい）
いろいろ試してみましたが、うまくコードがかけません。ご迷惑をおかけいたしますが、皆様の知恵をお貸しください。
VB2005を利用しています。
例えば以下のように記述すると、
Dim a As Double = 2.3
Dim b As Double = 27000
Dim c As Double
c = a * b
ｃに62099.999999999993という
値が入ります。
a=2.1だと
c=56700.0
a=2.2だと
c=59400.000000000007
となります。
本当はa=2.3の場合には62100.0となって欲しいのですが。
何がおかしいのでしょうか？
クラスのプロパティを宣言して、フォーム間値の受け渡しを行っていま
すが、少し不安・・・といいますか疑問があるので教えて下さい。
画面1から画面2を起動して、画面2で選択された値を画面1にあるテキスト
ボックスへ返すという単純な処理です。
下記コードのように、プロパティで値の受け渡しを実現しているのです
が、呼び出された画面２を閉じる時にMe.Dispose()も行っています。
そして画面2が閉じられると画面1のShowDialog以降の処理が通ると思う
のですが、そもそも画面2をDisposeしたら、プロパティの値も破棄され
てしまうのでは？・・・っと思っていたのですが、実際はきちんと
画面1で画面2の値を取得できています。
この辺、ガベージ・コレクタ絡みで、破棄される前に運よく取得できて
いるだけなのかなと不安になってきました。
下記コードは正しいやり方なのかを含めて、ご回答よろしくお願い
致します。
・画面1
Private Sub Button3_Click・・・
Dim objfrm001 As New Form1
'画面をオープン
objfrm001.ShowDialog()
If objfrm001.TestCode <> 0 Then
TextBox1.Text = objfrm001.TestCode.ToString
End If
End Sub
・画面2
'プロパティ宣言
Private mintTestCode As Integer = 0
Public ReadOnly Property TestCode() As Integer
Get
Return mintTestCode
End Get
End Property
・・・
mintTestCode = ComboTestCode
'値をセット後呼出された画面を閉じる
Me.Close()
Me.Dispose()
