見積請求納品システムというアクセス2000で請求書等を作成しています。
（Windows XP home edition）
その中で今回関係するのは
得意先名テーブル
請新フォーム
請修フォーム
だと思いますが補足が必要かもしれません。
1.アクセスのモジュールにTax関数を作成しました。
Public Function Tax(Anum As Variant, Bnum As Variant) As Currency
On Error Resume Next
Tax = 0
If (IsNull(Anum) Or IsNull(Bnum)) Then Exit Function
Select Case Anum
Case 1
Tax = Int(Bnum)
Case 2
Tax = Int(Bnum + 0.9)
Case 3
Tax = Format(Bnum, "0")
End Select
End Function
2.得意先名テーブルに税区分フィールドを作成しました。
3.請求書新規作成フォームと請求書修正フォームのレコードソースとなっているクエリに税区分フィールドを追加しました。
4.請求書新規作成フォームと請求書修正フォームの工数・数量、単価、金額（それぞれ1～10）のテキストボックスのフォーカス喪失時イベントにあるマクロを以下のようにしました。
アイテム [Forms]![請新フォーム]![消費税額]
式 Tax([税区分],[Forms]![請新フォーム]![税抜金額]*0.05)
アイテム [Forms]![請修フォーム]![消費税額]
式 Tax([税区分],[Forms]![請修フォーム]![税抜金額]*0.05)
上記のようにしてフォームで工数・数量、単価、金額のいずれかを入力すると
「指定した式に、Microsoft Access が見つけることができない関数名が含まれています。」
となり上記のアイテムと式が表示されます。
モジュールで関数を作成したのにどうしてできないのでしょうか・・・
教えてください！！！
商品テーブルを元に、在庫一覧というフォームを開こうとしています。
商品テーブルの、「在庫状況」という欄の、「欠品」と「在庫」という2種のデータだけを表示させたいのですが、うまくいきません。
ためしに、まず条件を「在庫」だけにしてみたのですが、それでもできませんでした。
フォームを開くのイベントプロシージャに、下記のように記述しています。
Private Sub Form_Open(Cancel As Integer)
Me.Filter = "在庫状況 = '在庫'"
Me.FilterOn = False
End Sub
よろしくお願いいたします。
見積請求納品システムというアクセス2000で請求書等を作成しています。
（Windows XP home edition）
その中で今回関係するのは
得意先名テーブル
請新フォーム
請修フォーム
だと思いますが補足が必要かもしれません。
1.アクセスのモジュールにTax関数を作成しました。
Public Function Tax(Anum As Variant, Bnum As Variant) As Currency
On Error Resume Next
Tax = 0
If (IsNull(Anum) Or IsNull(Bnum)) Then Exit Function
Select Case Anum
Case 1
Tax = Int(Bnum)
Case 2
Tax = Int(Bnum + 0.9)
Case 3
Tax = Format(Bnum, "0")
End Select
End Function
2.得意先名テーブルに税区分フィールドを作成しました。
3.請求書新規作成フォームと請求書修正フォームのレコードソースとなっているクエリに税区分フィールドを追加しました。
4.請求書新規作成フォームと請求書修正フォームの工数・数量、単価、金額（それぞれ1～10）のテキストボックスのフォーカス喪失時イベントにあるマクロを以下のようにしました。
アイテム [Forms]![請新フォーム]![消費税額]
式 Tax([税区分],[Forms]![請新フォーム]![税抜金額]*0.05)
アイテム [Forms]![請修フォーム]![消費税額]
式 Tax([税区分],[Forms]![請修フォーム]![税抜金額]*0.05)
上記のようにしてフォームで工数・数量、単価、金額のいずれかを入力すると
「指定した式に、Microsoft Access が見つけることができない関数名が含まれています。」
となり上記のアイテムと式が表示されます。
モジュールで関数を作成したのにどうしてできないのでしょうか・・・
教えてください！！！
顧客情報を入力する単票フォームを作成しています。
データが勝手に書き換わってしまわないように、
更新確認メッセージを表示させ、
キャンセルが押された場合は、編集を取り消す。ということがしたいのです。
現在、ある本の例を元に下記の記述をしています。
------------------------------
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim myans As Integer
myans = MsgBox("レコードを更新します。よろしいですか？", vbOKCancel + vbQuestion, "更新確認")
If myans = vbCancel Then
Cancel = True
Me.Undo
End If
End Sub
------------------------------
キャンセルを押したときに、
このレコードは保存できません。
オブジェクトを閉じてもよろしいですか？と確認メッセージが出てしまいます。
文頭に、DoCmd.SetWarnings Falseなどを入れてみたのですが、ダメでした。
本当は、「登録」というボタンを作成し、
登録が押されたときに上記の処理＆レコード更新を行いたいのですが記述がわかりません。
登録ボタンに上記の記述をすると、閉じるを押したときに、
再度、同じ更新確認メッセージが表示されてしまいます。
(1)今の記述で、キャンセル時の確認メッセージを非表示にする
(2)登録ボタンにこの動作をつける
どちらでも構いません。
よろしくお願いいたします。
現在，以下の構文を記載している状態です。
Private Sub コマンド62_Click()
Dim Appwo As Word.Application
Dim doc As Word.Document
Dim stPath As String
stPath = "C:\Users\pigo\Desktop\納品書.docx"
Set Appwo = CreateObject("Word.Application")
Set doc = Appwo.Documents.Open(stPath)
Appwo.Visible = True
With Appwo.Selection
.Find.Text = "明細"
.Find.Replacement.Text = Me.ｔｘｔ明細
.Find.Execute Replace:=wdReplaceAll
End With
With Appwo.Selection
.Find.Text = "納品日"
.Find.Replacement.Text = Me.ｔｘｔ納品日
.Find.Execute Replace:=wdReplaceAll
End With
Set Appwo = Nothing
Set doc = Nothing
End Sub
ここで質問なのですが，フォーム上には，納品日として「平成１６年４月１２日」と記載されているのです（フォームプロパティの書式は，[ggge\年m\月d\日]）が，コマンド６２を実行した結果のWord上では，「納品日」の部分の置き換えとして「2004/04/12」との表示となってしまいます。
Word上でもそのまま「平成１６年４月１２日」と表示させたいのですが，どうすればよいのか分かりません。
どなたかお教えいただければ幸いです。よろしくお願いいたします。
現在，以下の構文を記載している状態です。
Private Sub コマンド62_Click()
Dim Appwo As Word.Application
Dim doc As Word.Document
Dim stPath As String
stPath = "C:\Users\pigo\Desktop\納品書.docx"
Set Appwo = CreateObject("Word.Application")
Set doc = Appwo.Documents.Open(stPath)
Appwo.Visible = True
With Appwo.Selection
.Find.Text = "明細"
.Find.Replacement.Text = Me.ｔｘｔ明細
.Find.Execute Replace:=wdReplaceAll
End With
With Appwo.Selection
.Find.Text = "納品日"
.Find.Replacement.Text = Me.ｔｘｔ納品日
.Find.Execute Replace:=wdReplaceAll
End With
Set Appwo = Nothing
Set doc = Nothing
End Sub
ここで質問なのですが，フォーム上には，納品日として「平成１６年４月１２日」と記載されているのです（フォームプロパティの書式は，[ggge\年m\月d\日]）が，コマンド６２を実行した結果のWord上では，「納品日」の部分の置き換えとして「2004/04/12」との表示となってしまいます。
Word上でもそのまま「平成１６年４月１２日」と表示させたいのですが，どうすればよいのか分かりません。
どなたかお教えいただければ幸いです。よろしくお願いいたします。
