Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
410 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11833】レコード追加の件 FUK 10/11/4(木) 10:33 質問[未読]
【11834】Re:レコード追加の件 雅 10/11/4(木) 11:08 回答[未読]
【11835】Re:レコード追加の件 FUK 10/11/4(木) 11:29 質問[未読]
【11836】Re:レコード追加の件 雅 10/11/4(木) 11:36 回答[未読]
【11837】Re:レコード追加の件 雅 10/11/4(木) 11:38 発言[未読]
【11838】Re:レコード追加の件 FUK 10/11/4(木) 11:52 質問[未読]
【11839】Re:レコード追加の件 雅 10/11/4(木) 12:07 回答[未読]
【11840】Re:レコード追加の件 FUK 10/11/4(木) 14:03 お礼[未読]
【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

どこがいけないのでしょうか
【11834】Re:レコード追加の件
回答  雅  - 10/11/4(木) 11:08 -
引用なし
パスワード
   雅です。

>　　Ret = GetComputerName(Name, Leng)

これの戻りの値はまだ空文字(Chr$(0))くっついてるので取ってやらないと
だめですね。
【11835】Re:レコード追加の件
質問  FUK  - 10/11/4(木) 11:29 -
引用なし
パスワード
   ▼雅 さん：
>雅です。
>
>>　　Ret = GetComputerName(Name, Leng)
>
>これの戻りの値はまだ空文字(Chr$(0))くっついてるので取ってやらないと
>だめですね。

こういった事でよいのでしょうか。
　 Name = RTrim(Name)
うまくできません。
【11836】Re:レコード追加の件
回答  雅  - 10/11/4(木) 11:36 -
引用なし
パスワード
   雅です。

空文字(Chr$(0))はRTrimじゃ取ってくれないのでInStrとLeft or Mid関数を
駆使してください。
【11837】Re:レコード追加の件
発言  雅  - 10/11/4(木) 11:38 -
引用なし
パスワード
   雅です。

そういやGetComputerNameは長さ返してくれるんでInStrは使わなくていいですね。
【11838】Re:レコード追加の件
質問  FUK  - 10/11/4(木) 11:52 -
引用なし
パスワード
   ▼雅 さん：
>雅です。
>
>そういやGetComputerNameは長さ返してくれるんでInStrは使わなくていいですね。
ありがとうございます。
原因はわかりました。
しかし、コンピュータ名の文字数が、それぞれ違うと、
left関数で、取り出す文字数を、指定するのが、難しいです。

非常にありがとうござました。
考えて見ます。
【11839】Re:レコード追加の件
回答  雅  - 10/11/4(木) 12:07 -
引用なし
パスワード
   雅です。

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

GetComputerName APIは何文字か返してくれるので
Left$(Name, Leng)
でいいと思いますよ。
【11840】Re:レコード追加の件
お礼  FUK  - 10/11/4(木) 14:03 -
引用なし
パスワード
   ▼雅 さん：
本当にありがとうございました。
たすかりました。
また、宜しくお願いします。

なんとかできましたよ。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
410 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1084193
(SS)C-BOARD v3.8 is Free