MicrosoftAccess2000「社員管理システム」退社日を他のフォームに反映させたいです。

Question

MicrosoftAccess2000「社員管理システム」を使用しています。
社員の退社日を入力した時に、その日付を社員履歴（派遣先履歴）
の最後の終了日に反映させたいです。

社員基本TBL内に退社日
社員履歴TBL内に終了日
社員履歴QUE内に終了日
社員マスタFRMに退社日
社員マスタサブフォームに終了日

があります。
退社日は必ず社員履歴の最後の終了日と同じになるので反映させたいです。
情報不足だと思うので申し訳ないのですが宜しくお願い致します！！

30246kiku · Accepted Answer

その退社日は、どこから入力されているのでしょうか。

実体に設定すれば、後はクエリ、フォーム等は再クエリ操作で更新されます。
ということは、

社員基本TBL内に退社日
社員履歴TBL内に終了日

について考えればよいのでは？

テーブル構成、タイミングが全くわからないので、雰囲気になりますが、
社員基本TBL内に退社日を設定したタイミングで、
更新クエリで社員履歴TBL内に終了日を設定すればよいと思います。

UPDATE 社員履歴TBL SET 終了日 = 退社日に設定した日 WHERE XXXXXX;

WHERE の XXXXXX 部分に、その人/履歴の最後を特定する条件を指定します。



ご質問の解釈を少し変えてみます。

単票フォームにサブフォームの構成になっていて、
サブフォーム側のレコードソースが、
社員履歴TBLをベースに単票フォーム側のコントロールを参照抽出するクエリ
社員履歴QUEが指定してあり、帳票フォームとして作っている。
単票フォームのレコードソースは、社員基本TBLになっている。

単票フォーム側にある「退社日」を入力した時点で、
サブフォーム側の最後の終了日に値を設定したい。

としてみます。

サブフォーム側の表示順は、どのような順なのかはわかりませんが、
最後（最終行）の終了日に設定するものとします。

サブフォームコントロール名を「FSUB」と仮定します。


サブフォーム側に記述するもの）

Public Sub SetLastDay()
　　Me.Recordset.MoveLast
　　Me.終了日 = Me.Parent.退社日
End Sub


親フォーム側に記述するもの）

Private Sub 退社日_AfterUpdate()
　　Call Me.FSUB.Form.SetLastDay
End Sub


親フォームの「退社日」の更新後処理で、サブフォーム側に記述した関数を呼び出します。
呼び出された関数内では、レコードを最後に移動させてから、親の退社日を終了日に設定します。
（親からみれば子でどんな順になっているか知りたくもない。
変更された時点で関数呼ぶので、最後/最初など、後は好きにして・・・ってな感じで）

退社日に入力があると最後の終了日に値が設定されますが、双方でレコード確定動作が起きるようです。
エラーとかあった場合の動作など見ていないので、使えるものなのかは検証してください。
（たまたま動いているように見えているだけかも）
（サブフォーム側に表示しているものがなければエラーになる・・・など）

退社日の更新後処理ではなく、フォームの更新後処理でも良いと思います。

関数名等は適宜変更してください。


なお、親フォームが面倒をみるのなら

Private Sub 退社日_AfterUpdate()
　　With Me.FSUB.Form
　　　　.Recordset.MoveLast
　　　　.終了日 = Me.退社日
　　End With
End Sub

でも良いかも。


解釈/仮定が違ってましたら、補足してください。
（かなりの情報が不足しています）

piroin654 · Answer

回答の中で、
http://www.mahoutsukaino.com/ac/ac2002/ac2002/kihon2/006.htm
のサブフォームの形式をデータシートといいましたが、
帳票形式です。訂正します。

piroin654 · Answer

追加しておきます。
funcAGEは社員基本QUEの中の、

>生年月日/社員基本TBL
>現在の年令: 年令([生年月日])

のところの、

>現在の年令: 年令([生年月日])

を、

現在の年令: funcAGE([生年月日])

にしてください。

以上です。

piroin654 · Answer

遅くなりました。一つ一つ疑問点問題点をあたっていきます。
まずはNo1の二つの補足から。

(1)
まず、フォームの形式ですが、フォームはメインとサブ
があるようですが、ごく簡単にフォームを作ったときの
手順を教えてもらえますか。後の混乱を避けるために
必要です。

たとえば、メインフォームにサブフォームコントロール
を設定。サブフォームになるフォームを別に作成。
サブフォームにレコードソースを設定。サブフォームに
テキストボックスを置き、コントロールソースを
設定。サブフォームの形式をデータシートに設定。
メインフォームのサブフォームを表示するコントロールの
ソースオブジェクトにサブフォームを指定。

このような感じです。フォームの形式はプロパティの
既定のビューに表示されています。メイン、サブの
両方について教えてください。

たとえば、メインとサブの関係は以下の下にあります。
http://www.mahoutsukaino.com/ac/ac2002/ac2002/kihon2/006.htm
この場合のサブフォームの形式はデータシート形式です。
サブフォームに一人の社員しか表示しない場合は、
単票形式でもできますが、そのようになっている
のでしょうか。

(2)
>式に未定義関数’年令’があります。

年齢計算の方法は以下の、

マイクロソフトの年齢計算
http://support.microsoft.com/kb/401946/ja

にありますが、関数名に年令などを使うとエラー
が起こるので以下のようにしてください。
年令という関数名を使っている箇所はfuncAGE
にしてください。また、関数の引数に日本語を
使う必要はありません。生年月日ではなく、
単純にmyBDでもiいいのです。

Function funcAGE(Birth_Day As Variant) As Variant
    Dim varAge As Variant
    If Not IsNull(Birth_Day) Then
        If IsDate(Birth_Day) Then
            varAge = DateDiff("yyyy", Birth_Day, Now)
            If Date < DateSerial(Year(Now), Month(Birth_Day), Day(Birth_Day)) Then
                varAge = varAge - 1
            End If
        Else
            funcAGE = "0"
            Exit Function
        End If
    Else
        funcAGE = "0"
        Exit Function
    End If
    funcAGE = varAge
End Function

これを変更してみてください。エラーが解消されるか
確認してください。

(3)

>社員履歴QUEは社員TBLと社員履歴TBLを所属コードで
>繋げる為に作っているのかなと思います。

社員を特定するのは所属コードではなく、社員コード
でなければならないのでは?このあたりも今後の
やり取りで問題になるかもしれないので、頭の
中にいれておいてください。

以上、まずはこれからです。

piroin654 · Answer

Private Sub cmd退社日_Click()
Forms!社員マスタFRM!社員マスタサブフォーム!終了日 = Forms!社員マスタFRM!tx退社日
Forms!社員マスタFRM!社員マスタサブフォーム.Form.Refresh
End Sub

のほうが保存処理がスマートかも。
スベッタかな、アタッタかな。

piroin654 · Answer

情報がまったく少ないので、推測で、
メインフォームにtx退社日というテキストボックス。
社員マスタサブフォームに終了日というフィールド
があるとします。

メインフォームにボタンを一つ作り、名前をmcd退社日
とします。そのボタンのクリック時のイベントに、

Private Sub cmd退社日_Click()
Forms!社員マスタFRM!社員マスタサブフォーム!終了日 = Forms!社員マスタFRM!tx退社日
End Sub

で、サブフォームのカレントになっているレコードの
終了日フィールドに退社日が入力されます。
この場合のカレントとはサブフォームがデータシート
形式などの場合、黒い矢印が当たっているレコードの
並びを指します。
コード中の社員マスタサブフォームはサブフォーム
そのもの名前ではなく、メインフォームのサブフォームを
表示するコントロールの名前です。この場合は
サブフォームの名前と同じにしていると
仮定しています。

社員履歴QUEは何のために作っているのか。
メインフォームの構造と、レコードソース。
サブフォームの構造と、レコードソース。

などが記載されていないと回答する側も
なんだかな、という感じです。
大スベリ?それとも大アタリ?

MicrosoftAccess2000「社員管理システム」退社日を他のフォームに反映させたいです。

その退社日は、どこから入力されているのでしょうか。

この回答への補足

回答の中で、

この回答への補足

追加しておきます。

遅くなりました。

Private Sub cmd退社日_Click()

情報がまったく少ないので、推測で、

この回答への補足

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング