• ベストアンサー

Access2000 VBA で変数を次回立ち上げたとき利用するには?

yanmaaの回答

  • ベストアンサー
  • yanmaa
  • ベストアンサー率45% (207/457)
回答No.2

いちばん簡単なのはDBのテーブルに持つことでしょうね。 カウンタテーブルにキーと値という項目を持たせます。 キーの値にKEYとカウンタに0を初期値(この初期値はなんでもいいですが) 後は処理開始時にキー:KEYでカウンタの値をとってそれを変数にセットする。ADOかRDOを使うこと。ここは分かりますよね。 処理終了時にキー;KEYで最終カウンタ値をアップデートする。 これも簡単なので省略します。 これならDBですから端末等に影響されませんし。

参考URL:
http://www.okweb.ne.jp/kotaeru.php3?q=59697
kamitatsu
質問者

お礼

フィールドに追加するのではもったいないし、と思っていましたが。なるほどこれだと分かりやすく自分でもできるような気がします。 どうも有難うございます。

関連するQ&A

  • VBAで変数に改行を格納した場合

    セルA1に あああ いいい と入れて、 VBAで Dim str As String str = Range("a1") と言うコードを記述して、ステップモードでstrにカーソルを充てると あああいいい と、変数が格納されるのですが、 変数の値は改行されては表示されないのですか? うぃっちウインドウで監視すると、若干空白があるように感じます。 でも私はよくF8で変数にカーソルを充てて今の値を見るのですが 変数に改行があるかどうかは、この方法ではわからないということですか?

  • VBAのペースト

    VBAのペーストについてです。 ある変数に値が入っていて、その変数を用いて別シートに貼り付けをしたいと思っているのですが、構文がわからなくて困っています!どなたか教えていただけませんでしょうか? お願いします。 Dim shopname as String 型宣言 shopname = Cells(3,21).value shopname変数へ代入 ....             shopnameに入っている値を3行目のB列に挿入したい...

  • エクセルVBAでの変数

    いつもお世話になります。 今回の『壁』は”変数”です。 変数の中に更に変数を持たせることはできますか? 何をしたいかと言いますと… dim mon1 as string dim mon2 as string dim mon3 as string dim mon4 as string dim mon5 as string dim tue1 as string dim tue2 as string …というように月曜から日曜までの頭3文字プラス1~5の組み合わせの変数を作りたいのですが、 この調子で作っていくと35コになってしまいます。 そこで、曜日の頭3文字より後ろは決まって1~5のため、 dim i as integer for i = 1 to 5 next i …と組み合わせられないかと思ったのです。 どなたか知恵をお貸しください。 よろしくお願いします。

  • 変数にnullを代入するには

    諸事情で、変数の値をNullにしたいのですが、 Sub a() Dim mystr As String mystr = "moji" '他の処理 mystr = Null End Sub だと、実行時エラー94になります。 多分、NULLは値じゃないから代入できないんだと思いますが、どうすれば変数をnullにできるのでしょうか? String型が問題であれば、何にすればいいですか?

  • Access VBA クリップボードの内容を

    Access2003 を使用しています。 クリップボードに取り込んだ商品名を、あるボタン(仮称:cmd01)を押せば A1 というデータに代入したいと思います。そのVBAの書き方を教えてください。 つまり Private Sub Cmd01_Click()     dim A1 as string     A1=(クリップボードに取り込んだ商品名) End Sub このようなイメージにしたいのですが・・・

  • EXCEL VBA Byte型に"0"を付けたい

    EXCEL VBAにてあるセルの値をByte型の16進数に 変換していますが、変換後の値の頭に"0"が付かなくて 困っています。 Dim a As String Dim aa As String Dim b As Byte Dim bb As Byte a = Val("&H" & Cells(1, 1)) aa = Format(a, "00") b = aa bb = Format(b, "00") 変数など簡略化していますが、こんな感じです。 最後の"bb"の中身が、例えば"01"ではなく"1"と なってしまっています。 バイナリエディタで表示した時に、"111"ではなく "010101"と表示させたいのですが、、、 この方法にこだわっている訳ではないので 他の方法も含めて、ご教示お願いします。

  • 変数から命令?

    例えば dim a as String a="dim b as Long" という風にしてみて aの値に入ってるやつを実行(?)するようなことができますか? つまり、ここでいうなら aに"dim b as Long"をいれて なんらかの処理を行って 変数bを作成することはできますか?

  • public変数

    formA で dim test as New fromB test.m_foo = "分かりません" と値を代入し fromB で public変数 Public m_foo as string を宣言しています その他の formC, formD, formE で formBのpublic変数m_fooを使用したい場合  例 formC 上で宣言している変数 ANS に代入したい場合    formC に ANS = formB.m_foo と記述しても上手くいきません どのように記述したら  formB で宣言しているpublic変数を他のformでも使用できるのでしょうか?     

  • VBAで、シート保護のパスワードは利用可能ですか?

    VBAソース上で、シート保護で設定したパスワードを取得、使用することは可能でしょうか? ソースにパスワード文字列をベタ書きせずにすむなら、その方法をとりたいので教えてください。 例) 1.[Excelメニュー-シート保護]で、パスワードを設定 2.VBAで、以下のように「1.で設定したパスワード」を取得し、変数に代入 3.Protectメソッドでその変数を使用  VBAソース)  Dim pass As String  pass = 「1.で設定したパスワード」  ActiveSheet.Protect Password:=pass, UserInterfaceOnly:=True

  • vbaの 変数の宣言 記号は使えない?

    vbaの 変数の宣言 記号は使えない? Sub test1() dim st @ End Sub みたいに変数の型を As String ではなく記号で表現ってできないんでしたっけ? エラーになってしまいます。