VBAエキスパートの
Access VBA ベーシックの試験を受けようと思って
http://vbae.odyssey-com.co.jp/study/sample_ab.html
のサンプルを見ていたのですが、
問題1や2や3はVBAの知識ではないですよね?
Access VBAの試験なのに
VBAには関係ない問題もたくさんでるのでしょうか?
No.2ベストアンサー
- 回答日時:
料理に例えると、
魚を三枚におろして刺身に出来る人(VBA OKな人?)であっても
魚の特性を知らなければ
フグを食べて・・
オコゼの背びれで・・
生サバで・・
という悲惨な状況になります。
フィールドの特性を知らないとバグを抱えたりエラーになったり。
SQL文はコード中で記述することが良くあります
クエリのSQL文を変更したりコントロールのソースなど。
なので、これも必須です。
以下、蛇足。
VBA Professional Office 2003 の問2は
fCOUNTの値を、10000 あたりで試した方が良さそうです
当方の場合、1000000 だと Sample3は応答なしになりました。(^^ゞ
下記を標準モジュールにコピペしてお試しを。
' Windows が起動してからの経過ミリ秒数を取得
Public Declare Function GetTickCount Lib "Kernel32" () As Long
Private Const fCOUNT As Long = 10000 '←ここを変更してください
Sub Sample1()
Dim a As Long
a = GetTickCount
Dim i As Long, j As Long
Dim myRowBuf As String
Dim myLen As Long
Dim myBuf As String
Dim myTmpStr As String
myRowBuf = "Excel"
myLen = Len(myRowBuf) * fCOUNT + fCOUNT * 3
myBuf = String(myLen, vbNullChar)
For i = 1 To fCOUNT
myTmpStr = myRowBuf & "1" & vbCrLf
Mid(myBuf, j + 1, Len(myTmpStr)) = myTmpStr
j = j + Len(myTmpStr)
'DoEvents
Next
Debug.Print "1= " & GetTickCount - a 'ミリ秒で掛かった時間をイミディエイトウィンドウに出力
End Sub
Sub Sample2()
Dim a As Long
a = GetTickCount
Dim i As Long
Dim myRowBuf(1 To fCOUNT) As String
Dim myBuf As String
For i = 1 To fCOUNT
myRowBuf(i) = "Excel" & "1"
'DoEvents
Next
myBuf = Join(myRowBuf, vbCrLf)
Debug.Print "2= " & GetTickCount - a
End Sub
Sub Sample3()
Dim a As Long
a = GetTickCount
Dim i As Long
Dim myRowBuf As String
Dim myBuf As String
myRowBuf = "Excel"
For i = 1 To fCOUNT
myBuf = myBuf & vbCrLf & myRowBuf & "1"
'DoEvents
Next
Debug.Print "3= " & GetTickCount - a
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー 2 2023/05/17 17:02
- Access(アクセス) Access VBA を利用して、フォルダ内のファイルの名称を変更したい 1 2023/08/03 08:27
- Visual Basic(VBA) VBAでArrayListを使う為の「mscorlib.tlb」の参照設定について 3 2022/03/23 19:45
- Visual Basic(VBA) VBAでWEBサーバー上に保存されたPDFファイルのリンク有効チェックについて 1 2022/11/11 16:04
- その他(プログラミング・Web制作) Accessの代わりのノンプログラムデータベース作成 4 2022/10/21 09:26
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- 情報処理技術者・Microsoft認定資格 MOS試験Excelエキスパートを受けようか考えています。 Excelは仕事で使用。 関数は入れ子含 2 2022/12/18 10:05
- Excel(エクセル) 【VBA】ファイルパスに半角スペースが入ると、VBAが動かない 5 2022/08/04 20:52
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Access(アクセス) Access DLookup vbaで条件を2件設定したい場合どうすればよいでですか? 現在 If( 1 2023/06/28 14:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
尿検査前日に自慰行為した時の...
-
白血球が多いとどんな心配があ...
-
尿検査の前日は自慰控えたほう...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
勃起する時って痛いんですか? ...
-
EXCELで条件付き書式で空白セル...
-
腕を見たら黄色くなってる部分...
-
EXCELで式からグラフを描くには?
-
変な話しになります。尿検査で...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
-
Excelで""で囲む方法
-
ある範囲のセルから任意の値を...
-
2つの数値のうち、数値が小さい...
-
精子が黄色?
-
エクセルでエラーが出て困って...
-
納豆食べた後の尿の納豆臭は何故?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
射精をして1週間以内に尿検査を...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
変な話しになります。尿検査で...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
男です。昨日の午後3時くらいに...
-
今朝、毎朝の習慣でオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
1日前の検尿
-
値が入っているときだけ計算結...
-
精子が黄色?
おすすめ情報