Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access初・中級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

新着の投稿記事


タイトルRe^3: レコード値の空文字判別
記事No16990   [関連記事]
投稿日: 2017/09/21(Thu) 15:07
投稿者タクミ
解決済: ON
すみません、やっぱりIsNullで解決しました。

> buf = rs!フィールド名
> この時点でnullの使い方が不正と言われてしまいます。
> しかし、過去にIsNull関数で調べたのですが、Nullには判別されませんでした。
>
>
> > dim buf as String
> >
> > buf = rs!フィールド名
> > buf = Replace(buf, " ", "")  '半角スペース削除
> > buf = Replace(buf, " ", "") '全角スペース削除
> >
> > if nz(buf,"") <> "" then 'Nullも""にしとこう
> >
> > 何かしら入力されてる
> >
> > else
> >
> > 空文字のみ
> >
> > end if
> >
> > 多分、動きます
> >
> > > OS:windows7
> > > Access Version:2007
> > >
> > > こんにちは、初歩的なことですが空文字の判別に悩まされています。
> > > 以下のコードで空文字の判別をしようとしました。
> > >
> > > --------------------------------------------------------------
> > > If rs!フィールド名 = "" Then
> > > 処理
> > > Else
> > > MsgBox "," & rs!フィールド名 & ","
> > > End If
> > > ---------------------------------------------------------------
> > >
> > > データシートを見ると空文字に見えるものを空文字ではないと判別します。
> > > そこでMsgBoxで中身を見てみたのですが、カンマの間にはスペースも何もありませんでした。
> > > データ型は「メモ型」ですので初期値は空文字ですよね?
> > >
> > > 何を言っているか分からないと思いますが、自分もどうしてこうなるのか分かりません。だれか助けてください。

タイトルRe^2: レコード値の空文字判別
記事No16989   [関連記事]
投稿日: 2017/09/21(Thu) 14:53
投稿者タクミ
解決済: ON
buf = rs!フィールド名
この時点でnullの使い方が不正と言われてしまいます。
しかし、過去にIsNull関数で調べたのですが、Nullには判別されませんでした。


> dim buf as String
>
> buf = rs!フィールド名
> buf = Replace(buf, " ", "")  '半角スペース削除
> buf = Replace(buf, " ", "") '全角スペース削除
>
> if nz(buf,"") <> "" then 'Nullも""にしとこう
>
> 何かしら入力されてる
>
> else
>
> 空文字のみ
>
> end if
>
> 多分、動きます
>
> > OS:windows7
> > Access Version:2007
> >
> > こんにちは、初歩的なことですが空文字の判別に悩まされています。
> > 以下のコードで空文字の判別をしようとしました。
> >
> > --------------------------------------------------------------
> > If rs!フィールド名 = "" Then
> > 処理
> > Else
> > MsgBox "," & rs!フィールド名 & ","
> > End If
> > ---------------------------------------------------------------
> >
> > データシートを見ると空文字に見えるものを空文字ではないと判別します。
> > そこでMsgBoxで中身を見てみたのですが、カンマの間にはスペースも何もありませんでした。
> > データ型は「メモ型」ですので初期値は空文字ですよね?
> >
> > 何を言っているか分からないと思いますが、自分もどうしてこうなるのか分かりません。だれか助けてください。

タイトルRe: レコード値の空文字判別
記事No16988   [関連記事]
投稿日: 2017/09/21(Thu) 14:39
投稿者てけとーだけど
解決済: ON
dim buf as String

buf = rs!フィールド名
buf = Replace(buf, " ", "")  '半角スペース削除
buf = Replace(buf, " ", "") '全角スペース削除

if nz(buf,"") <> "" then 'Nullも""にしとこう

   何かしら入力されてる

else

   空文字のみ

end if

多分、動きます

> OS:windows7
> Access Version:2007
> 
> こんにちは、初歩的なことですが空文字の判別に悩まされています。
> 以下のコードで空文字の判別をしようとしました。
> 
> --------------------------------------------------------------
> If rs!フィールド名 = "" Then
>    処理
> Else
>    MsgBox "," & rs!フィールド名 & ","
> End If
> ---------------------------------------------------------------
> 
> データシートを見ると空文字に見えるものを空文字ではないと判別します。
> そこでMsgBoxで中身を見てみたのですが、カンマの間にはスペースも何もありませんでした。
> データ型は「メモ型」ですので初期値は空文字ですよね?
> 
> 何を言っているか分からないと思いますが、自分もどうしてこうなるのか分かりません。だれか助けてください。

タイトルレコード値の空文字判別
記事No16987   [関連記事]
投稿日: 2017/09/21(Thu) 14:02
投稿者タクミ
解決済: ON
OS:windows7
Access Version:2007

こんにちは、初歩的なことですが空文字の判別に悩まされています。
以下のコードで空文字の判別をしようとしました。

--------------------------------------------------------------
If rs!フィールド名 = "" Then
処理
Else
MsgBox "," & rs!フィールド名 & ","
End If
---------------------------------------------------------------

データシートを見ると空文字に見えるものを空文字ではないと判別します。
そこでMsgBoxで中身を見てみたのですが、カンマの間にはスペースも何もありませんでした。
データ型は「メモ型」ですので初期値は空文字ですよね?

何を言っているか分からないと思いますが、自分もどうしてこうなるのか分かりません。だれか助けてください。

タイトルRe^8: INSERT INTOステートメント構文エラーについて
記事No16986   [関連記事]
投稿日: 2017/09/21(Thu) 11:00
投稿者タルタル
解決済: ON
> group by にエイリアス( As SEQ)が付いています。
> group by でのエイリアスはエラーになります。

ナバさん、サジさんおかげ様で上手くできました。
色々とありがとうございました。

タイトルAccess2010実行時、エラー3274発生
記事No16985   [関連記事]
投稿日: 2017/09/20(Wed) 10:10
投稿者pochi_estima
OS:Windows7
Access Version:Access2010

サンプルを元に下記のコードを記述したところ、
「実行時エラー ’3274’ 外部テーブルのフォーマットが正しくあり
ません。」とエラーになりました。
この場合、どうすれば解消出来るでしょうか。
ちなみに変数に値を直接入れた場合も同様のエラーとなります。
過去ログを見てもよくわかりませんでした。。
宜しくお願いします。

Dim varac As Variant
Dim varxls As Variant
Dim strrange As String
Dim strmsg As String
Dim objXLS As New Excel.Application

varac = "tbl_売上げ"

varxls = objXLS.GetOpenFilename(FileFilter:="Excelファイル,
*.xls*")

If varxls = False Then
MsgBox "ファイル選択がキャンセルされました。"
Exit Sub
End If

strrange = "売上げシート"
'strrange = "売上げシート!A1:D10"

strmsg = "Excelファイル" & varxls & " を、Accessテ
ーブル " & varac & _
"へ、データ入力を行います。" & Chr(13) & _
"Excelファイルの入力レンジは、 " & strrange &a
mp; " です。"

'DoCmd.DeleteObject acTable, varac
If MsgBox(strmsg, vbOKCancel) = vbOK Then
DoCmd.SetWarnings False
'DoCmd.TransferSpreadsheet acImport, 10, "tbl_売上げ", "
C:\Users\2554887\Documents\売上げ.xlsx", True, "売上げシート"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeEx
cel12Xml, varac, varxls, True, strrange
DoCmd.SetWarnings True
MsgBox "データ入力は、正常に完了しました。"
End If

Exit Sub

エラー:

MsgBox "予期せぬエラーが発生しました。" & Chr(13) &
_
"エラー番号:" & Err.Number & Chr(13) &
_
"エラー内容:" & Err.Description, vbCritical
Exit Sub

タイトルVBAでのエラー内容の適正化
記事No16984   [関連記事]
投稿日: 2017/09/19(Tue) 13:50
投稿者チャコール
OS:Windows 10
Access Version:Access 2016

AccessでVBAを使うときどうしても注意したいのが、正しく動作する機能であることと、ユーザに優しいインターフェイス、そしてエラーメッセージとその処理などが挙げられると思います。

当方が問題として抱えているのは、エラーコードの一覧と、そのメッセージの一覧を可能な限り利用形態に合わせ適正化しユーザフレンドリーに変えたいと考えております。この点いつも苦労しているのですが、どこにそういった情報が記載されているとか、何かいい情報お持ちの方いらっしゃらないでしょうか?

ご教示ください。

タイトルRe^2: レポートのテキストボックスにvbaでデータを挿入したい
記事No16983   [関連記事]
投稿日: 2017/09/14(Thu) 20:05
投稿者tkwan
なんで?

>   RS.Add.new
  ^^^^^^
>   仮RS!住所フィールド = 本テーブルRS!住所フィールド  ←ここでエラー
  ^^^^^^^
それと、どんなエラーなのかを具体的に書かないと答えは出ませんよ。

タイトルRe^7: INSERT INTOステートメント構文エラーについて
記事No16982   [関連記事]
投稿日: 2017/09/14(Thu) 14:12
投稿者サジ
解決済: ON
group by にエイリアス( As SEQ)が付いています。
group by でのエイリアスはエラーになります。

タイトルRe^20: サブフォームのフィールドの条件付き書式
記事No16981   [関連記事]
投稿日: 2017/09/13(Wed) 16:29
投稿者教えてください
解決済: ON
> > どういうことでしょうか?
> > データシート形式のサブフォームの中に「対応期限」フィールドは既にある状態です。
>
> それはテーブルを見せているのであり、「対応期限」というコントロールが存在するわけではないのです。
> 書式をど操作したいのならば、まずテーブルをレコードソースにしたフォームを作り、
> それをサブフォームにすればうまくいくのではないか、ということです。

できました!!
言われたとおり、コードからソースオブジェクトを「Sub_苦情」フォームに変えて、オブジェクトソースをテーブルではなくフォームに変えたところ、ボタンを押してデータを追加しても背景色が表示されるようになりました。
ありがとうございます、お世話になりました。。。

ページの先頭へ 前ページへ戻る