Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

73 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【11847】Re:不一致クエリについて

かな - 10/11/12(金) 14:55 -


	引用なし

	パスワード

▼雅さん：

アドバイスありがとうございます

違う方向で考えてみます

・ツリー全体表示


	【11846】Re:カレントレコードの値所得

DAN - 10/11/11(木) 19:31 -


	引用なし

	パスワード

▼雅さん：
ありがとうございます。
もう少し勉強し直します。

・ツリー全体表示


	【11845】Re:カレントレコードの値所得

雅 - 10/11/10(水) 18:47 -


	引用なし

	パスワード

雅です。

>MYCD = Forms!メインフォームA!サブフォームB.Form.ID
>DoCmd.OpenForm F_SANSYO, acNormal, , "ID=MYCD"

とりあえず。
"ID=" & MYCD
ではないかと

>このような感じだと思うのですが、うまくいきません。

「うまくいきません。」だけだとさっぱりわかりませんので
何がどううまくいかないのか、エラーが発生するのであればどんなエラーが
出たのかを書きませう。

・ツリー全体表示


	【11844】Re:不一致クエリについて

雅 - 10/11/10(水) 18:45 -


	引用なし

	パスワード

雅です。

>読取専用のため、更新できません
>
>とｴﾗｰがでてしまいます
>
>不一致クエリでは、更新することはできないのでしょうか？

その通りです。読み取り専用なのでこれに対して更新などはできません。

レコードセットで開いてもう一個レコードセットを開いて何とかするって
方向でどうぞ。

・ツリー全体表示


	【11843】カレントレコードの値所得

DAN - 10/11/9(火) 14:15 -


	引用なし

	パスワード

どなたか、教えてください。
メインフォームAの中の、サブフォームBのカレントレコードのID番号を取得したい
のですが、わかりません。

Private Sub subbtn_Click()
Dim MYCD As String
MYCD = Forms!メインフォームA!サブフォームB.Form.ID
DoCmd.OpenForm F_SANSYO, acNormal, , "ID=MYCD"
End Sub

このような感じだと思うのですが、うまくいきません。
お願い致します。

・ツリー全体表示


	【11842】不一致クエリについて

かな - 10/11/9(火) 11:32 -


	引用なし

	パスワード

どうしても分からなくて、困っています
お願いします

不一致クエリに、他のテーブルのデータを参照して、
条件にあった値を不一致クエリ内に入力させるVBAを作成しました

今までは、普通の選択クエリに値を入力させていたのですが、
都合上、不一致クエリに同じように入力させようとしましたが、

読取専用のため、更新できません

とｴﾗｰがでてしまいます

不一致クエリでは、更新することはできないのでしょうか？
もし、そうとすれば、
新たに不一致クエリからテーブルを作成して、処理をそこで行わせる
といった方法をとる必要があるのでしょうか？

どうか、アドバイスをお願いします

・ツリー全体表示


	【11840】Re:レコード追加の件

FUK - 10/11/4(木) 14:03 -


	引用なし

	パスワード

▼雅さん：
本当にありがとうございました。
たすかりました。
また、宜しくお願いします。

なんとかできましたよ。

・ツリー全体表示


	【11839】Re:レコード追加の件

雅 - 10/11/4(木) 12:07 -


	引用なし

	パスワード

雅です。

>しかし、コンピュータ名の文字数が、それぞれ違うと、
>left関数で、取り出す文字数を、指定するのが、難しいです。

GetComputerName APIは何文字か返してくれるので
Left$(Name, Leng)
でいいと思いますよ。

・ツリー全体表示


	【11838】Re:レコード追加の件

FUK - 10/11/4(木) 11:52 -


	引用なし

	パスワード

▼雅さん：
>雅です。
>
>そういやGetComputerNameは長さ返してくれるんでInStrは使わなくていいですね。
ありがとうございます。
原因はわかりました。
しかし、コンピュータ名の文字数が、それぞれ違うと、
left関数で、取り出す文字数を、指定するのが、難しいです。

非常にありがとうござました。
考えて見ます。

・ツリー全体表示


	【11837】Re:レコード追加の件

雅 - 10/11/4(木) 11:38 -


	引用なし

	パスワード

雅です。

そういやGetComputerNameは長さ返してくれるんでInStrは使わなくていいですね。

・ツリー全体表示


	【11836】Re:レコード追加の件

雅 - 10/11/4(木) 11:36 -


	引用なし

	パスワード

雅です。

空文字(Chr$(0))はRTrimじゃ取ってくれないのでInStrとLeft or Mid関数を
駆使してください。

・ツリー全体表示


	【11835】Re:レコード追加の件

FUK - 10/11/4(木) 11:29 -


	引用なし

	パスワード

▼雅さん：
>雅です。
>
>>　　Ret = GetComputerName(Name, Leng)
>
>これの戻りの値はまだ空文字(Chr$(0))くっついてるので取ってやらないと
>だめですね。

こういった事でよいのでしょうか。
　 Name = RTrim(Name)
うまくできません。

・ツリー全体表示


	【11834】Re:レコード追加の件

雅 - 10/11/4(木) 11:08 -


	引用なし

	パスワード

雅です。

>　　Ret = GetComputerName(Name, Leng)

これの戻りの値はまだ空文字(Chr$(0))くっついてるので取ってやらないと
だめですね。

・ツリー全体表示


	【11833】レコード追加の件

FUK - 10/11/4(木) 10:33 -


	引用なし

	パスワード

何度もすみません。
文字列の変数を加えると、構文エラーとなります。
先ほどの続きなのですが、教えてください。

Sub TEST5()
　Dim MyCode As String
　　MyCode = DMax("ID", "test")
　　MyCode = MyCode + 1
　Dim Name As String
　Dim Leng As Long
　Dim Ret As Long
　　Name = String(10, Chr(0))
　　Leng = Len(Name)
　　Ret = GetComputerName(Name, Leng)
　　
　Dim strSQL As String
strSQL = "Insert INTO test VALUES (" & MyCode & ",'" & Name & "','','');"
DoCmd.RunSQL strSQL

どこがいけないのでしょうか

・ツリー全体表示


	【11832】Re:変数値でレコード追加

FUK - 10/11/4(木) 10:17 -


	引用なし

	パスワード

▼雅さん：
>雅です。
>
>>strSQL = "Insert INTO TEST VALUES (MyCode,'','','');"
>
>これだと「MyCode」ってなんだ？
>になりますので
>strSQL = "Insert INTO TEST VALUES (" & MyCode & ",'','','');"
>としましょう。
>ちなみにフィールドが文字型なら
>strSQL = "Insert INTO TEST VALUES ('" & MyCode & "','','','');"
>です。
ありがとうございます。
できました。
また、ぜひよろしくおねがいします。

・ツリー全体表示


	【11831】Re:変数値でレコード追加

雅 - 10/11/4(木) 9:55 -


	引用なし

	パスワード

雅です。

>strSQL = "Insert INTO TEST VALUES (MyCode,'','','');"

これだと「MyCode」ってなんだ？
になりますので
strSQL = "Insert INTO TEST VALUES (" & MyCode & ",'','','');"
としましょう。
ちなみにフィールドが文字型なら
strSQL = "Insert INTO TEST VALUES ('" & MyCode & "','','','');"
です。

・ツリー全体表示


	【11830】変数値でレコード追加

FUK - 10/11/4(木) 9:52 -


	引用なし

	パスワード

おしえてください。
アクセス起動時に、以下の処理を流したいのですが、
うまくいきません。
どこがおかしいのでしょうか。
パラメータ入力がでてしまいます。

Sub TEST5()
　Dim MyCode As String
　　MyCode = DMax("ID", "TEST")
　　MyCode = MyCode + 1
　Dim strSQL As String
strSQL = "Insert INTO TEST VALUES (MyCode,'','','');"
DoCmd.RunSQL strSQL
End Sub

・ツリー全体表示


	【11829】Re:Me.Filterで○○と△△の抽出

雅 - 10/11/1(月) 11:28 -


	引用なし

	パスワード

雅です。「谷」はどこかに入力している条件ですか？仮に氏名2に入力しているとすれば Me.Filter = "(氏名 Like '*" & Me![氏名1] & "' Or 氏名 Like '*" & Me![氏名2] & "'" If IsNull(Me![住所1]) = False Then 　　Me.Filter = Me.Filter & " And 住所 Like '*" & Me![住所1] & "*'" End If な感じ？ # IIfが個人的に好きでないので組み替えました。その辺はお好みで

・ツリー全体表示


	【11828】Me.Filterで○○と△△の抽出

はるねこ - 10/10/31(日) 11:50 -


	引用なし

	パスワード

OS：vista
ACCESS：2002

住所と氏名のデータが入ったテーブル1があります。

この中から、「東京都」で
氏名に「山」がつく人と、「谷」がつく人
をMe.Filterを使って抽出したいのですが、うまくいきません。。

フォームには、住所1　と　氏名1　と　氏名2　という非連結のテキストボックスを設けています。

いまは、

Me.Filter = "(氏名) like '*" & Me!氏名1 & "*'" _
& IIf(住所1 <> "", " and (住所) Like'" & "*" & 住所1 & "*'", "")
Me.FilterOn = True

としていて、
氏名1に「山」を入力すればいいのですが、同時に、「谷」も検索したいのです・・

・ツリー全体表示


	【11827】Re:複数のcsvファイルとテーブルのリンク...

きりん - 10/10/30(土) 9:28 -


	引用なし

	パスワード

雅さん＞
ありがとうございます。助かります。
少し本を見ながら、書いてみようと思います。

▼雅さん：
>雅です。
>
>とりあえずファイルの列挙はDir関数で可能です。
>
>Dim FileName As String
>
>FileName = Dir("C:\Users\Public0701\"*")
>
>Do Until Len(FileName) = 0
>　～省略～
>
>　　FileName = Dir
>Loop

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

73 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free