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

     

リストへもどる

投稿記事の一括表示

タイトル条件により横線をひく
記事No171905
投稿日: 2017/07/13(Thu) 13:40
投稿者mac
解決済: ON
OS:Windows7
Access Version:2010


発注数と出荷数が同じ数字じゃない時だけ発注数に横棒を上から引きたいのですがどうやれば良いのでしょうか??

宜しくお願い致します。

タイトルRe: 条件により横線をひく
記事No171906
投稿日: 2017/07/13(Thu) 16:47
投稿者tkwan
解決済: ON
> 発注数と出荷数が同じ数字じゃない時だけ発注数に横棒を上から引きたいのですがどうやれば良いのでしょうか??

デザインビューで、発注数のテキストボックスの上に直線を引いておきます。

そして、詳細のフォーマット時イベントで
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
 Me!直線の名前.Visible = Me!発注数<>Me!出荷数
End Sub

タイトルRe^2: 条件により横線をひく
記事No171909
投稿日: 2017/07/14(Fri) 16:07
投稿者mac
解決済: ON
回答ありがとうございます。


> Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
>  Me!AAA.Visible = Me!発注数<>Me!出荷数
> End Sub

上記の様にやったところ、「指定した式の公文が正しくありません。 たとえば、演算子がないときに
オペランドを指定しています。」と表示され出来ません。
どうすれば良いのでしょうか?
線の上で右クリックをしてプロパティの一番上の欄の名前にはAAAと入っています。
宜しくお願い致します。

タイトルRe^3: 条件により横線をひく
記事No171910
投稿日: 2017/07/14(Fri) 16:35
投稿者tkwan
解決済: ON
> >  Me!AAA.Visible = Me!発注数<>Me!出荷数
  ^^^^^全角のスペースになっていませんか?    

半角にすれば
Me!AAA.Visible = Me!発注数 <> Me!出荷数
                         ^^^^^^ここに半角のスペースが自動で入るはずですよ。

タイトルRe^4: 条件により横線をひく
記事No171911
投稿日: 2017/07/14(Fri) 16:38
投稿者tkwan
解決済: ON
> > >  Me!AAA.Visible = Me!発注数<>Me!出荷数
>   ^^^^^全角のスペースになっていませんか?    

ああ!
私のサンプルプログラムが全角になっていますね。

すみません<(__)>

タイトルRe^5: 条件により横線をひく
記事No171912
投稿日: 2017/07/14(Fri) 16:52
投稿者mac
解決済: ON
> > > >  Me!AAA.Visible = Me!発注数<>Me!出荷数
> > ^^^^^全角のスペースになっていませんか?
>
> ああ!
> 私のサンプルプログラムが全角になっていますね。
>
> すみません<(__)>

ご返信ありがとうございます。
こちらのスペースを直しても同じエラーになります。
どうすれば良いのでしょうか?
宜しくお願い致します。

タイトルRe^6: 条件により横線をひく
記事No171914
投稿日: 2017/07/14(Fri) 17:07
投稿者tkwan
解決済: ON
Me!発注数 <> Me!出荷数
        ^^^^^^ここに半角のスペースは自動で入りましたか?

タイトルRe^7: 条件により横線をひく
記事No171915
投稿日: 2017/07/14(Fri) 17:22
投稿者mac
解決済: ON
Me!発注数 <> Me!出荷数
^^^^^^ここに半角のスペースは自動で入りましたか?

ご返信ありがとうございます。
空白は入りませんでした。
宜しくお願い致します。

= Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
Me!AAA.Visible = Me!発注数量 <> Me!納品数量
End Sub

タイトルRe^8: 条件により横線をひく
記事No171916
投稿日: 2017/07/14(Fri) 17:31
投稿者tkwan
解決済: ON
> 空白は入りませんでした。
入ってますね。

> 
> = Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
^^^^^ ここの = を消してください。

タイトルRe^3: 条件により横線をひく
記事No171919
投稿日: 2017/07/15(Sat) 11:13
投稿者hatena
解決済: ON
> 上記の様にやったところ、「指定した式の公文が正しくありません。 たとえば、演算子がないときに
> オペランドを指定しています。」と表示され出来ません。
> どうすれば良いのでしょうか?

エラーメッセージから推測するに、
プロパティの「フォーマット時」欄に、直接コードを記述していませんか。

「フォーマット時」欄のドロップダウンリストから、[イベント プロシージャ]を選択して、右端のビルドボタンをクリックすると、VBAウィンドウが開き、そこに、

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)

End Sub

とすでに記述されますので、真ん中に、1行コードを記述してください。

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
 Me!AAA.Visible = Me!発注数<>Me!出荷数
End Sub

あと、メニューの[デバッグ]-[***のコンパイル]をクリック。
[ファイル]-[***の上書き保存]をクリックしてください。

タイトルRe^4: 条件により横線をひく
記事No171923
投稿日: 2017/07/18(Tue) 10:45
投稿者mac
解決済: ON
tkwan 様
hatena 様

ご返信ありがとうございます。
[イベント プロシージャ]に入力したのですが、「型が一致しません」と表示され出来ません。
どうすれば良いでしょうか?

タイトルRe^5: 条件により横線をひく
記事No171925
投稿日: 2017/07/18(Tue) 13:29
投稿者hatena
解決済: ON
> tkwan 様
> hatena 様
>
> ご返信ありがとうございます。
> [イベント プロシージャ]に入力したのですが、「型が一致しません」と表示され出来ません。
> どうすれば良いでしょうか?

まずは,実際に記述したコードを提示してください。

タイトルRe^6: 条件により横線をひく
記事No171926
投稿日: 2017/07/18(Tue) 13:35
投稿者mac
解決済: ON
下記の通り記述しました。

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
Me!AAA.Visible = Me!発注数 <> Me!出荷数
End Sub

発注数と出荷数は数値型になっています。
テキスト型にしないとだめでしょうか?

タイトルRe^7: 条件により横線をひく
記事No171931
投稿日: 2017/07/18(Tue) 20:02
投稿者hatena
解決済: ON
> Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
> Me!AAA.Visible = Me!発注数 <> Me!出荷数
> End Sub

レポート上に、発注数 と 出荷数 をテキストボックスとして配置していますか。

発注数 または 出荷数 が未入力のデータはありませんか。

タイトルRe^8: 条件により横線をひく
記事No171933
投稿日: 2017/07/18(Tue) 20:19
投稿者mac
解決済: ON
> > Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
> > Me!AAA.Visible = Me!発注数 <> Me!出荷数
> > End Sub
>
> レポート上に、発注数 と 出荷数 をテキストボックスとして配置していますか。
>
> 発注数 または 出荷数 が未入力のデータはありませんか。

ご返信ありがとうございます。
行数を固定するため発注数 と 出荷数を両方が空白のデーターがたくさんあります。

タイトルRe^9: 条件により横線をひく
記事No171935
投稿日: 2017/07/18(Tue) 21:07
投稿者hatena
解決済: ON
> ご返信ありがとうございます。
> 行数を固定するため発注数 と 出荷数を両方が空白のデーターがたくさんあります。

下記でどうですか。空白データの場合、罫線を表示する場合です。

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
    If IsNull(Me!発注数) Or IsNull(Me!出荷数) Then
        Me!AAA.Visible = True
    Else
        Me!AAA.Visible = Me!発注数 <> Me!出荷数
    End If
End Sub

タイトルRe^10: 条件により横線をひく
記事No171936
投稿日: 2017/07/18(Tue) 21:17
投稿者mac
解決済: ON
> > ご返信ありがとうございます。
> > 行数を固定するため発注数 と 出荷数を両方が空白のデーターがたくさんあります。
>
> 下記でどうですか。空白データの場合、罫線を表示する場合です。
>
> Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
> If IsNull(Me!発注数) Or IsNull(Me!出荷数) Then
> Me!AAA.Visible = True
> Else
> Me!AAA.Visible = Me!発注数 <> Me!出荷数
> End If
> End Sub

ご返信ありがとうございます。
出来ました。
空白の場合は線を非表示にしたいのですが、どうすれば良いのでしょうか?
宜しくお願い致します。

タイトルRe^11: 条件により横線をひく
記事No171937
投稿日: 2017/07/19(Wed) 02:21
投稿者hatena
解決済: ON
> 空白の場合は線を非表示にしたいのですが、どうすれば良いのでしょうか?

下記です。

Me!AAA.Visible = False

タイトルRe^12: 条件により横線をひく
記事No171938
投稿日: 2017/07/19(Wed) 09:44
投稿者mac
解決済: ON
> > 空白の場合は線を非表示にしたいのですが、どうすれば良いのでしょうか?
>
> 下記です。
>
> Me!AAA.Visible = False


出来ました。皆様ありがとうございました。

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

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