カテゴリー別アーカイブ: フォーム

Accessでやることリストを作る~機能の追加

やることリストに機能を追加します。
今仕事がどの段階にあるのか、分かるようにします。
①未着手
②仕掛
③終了
④最終チェック済
の4段階です。

そのために、テーブルにフィールドを追加します。

最終チェックと着手を追加します。

次にフォームを訂正します。コマンドボタンを図のように4つにして、先ほど追加した
最終チェックと着手を追加します。

こんな感じです。

あとは実際にコマンドボタンを押したときのコードを入力します。
いずれもコマンドボタンのクリック時です。

着手前

Private Sub 着手前_Click()
Me.Filter = “完了日 is null” & ” and ” & “最終チェック is null” & ” and ” & “着手 is null”
Me.FilterOn = True
End Sub
着手前は、完了日・最終チェック・着手に日付が入っていないレコードを抽出します。

仕掛

Private Sub 仕掛_Click()
Me.Filter = “完了日 is null” & ” and ” & “最終チェック is null” & ” and ” & “着手 is not null”
Me.FilterOn = True
End Sub
仕掛は着手に日付が入っていて、完了日と最終チェックに日付が入っていないレコードを抽出します。

確認

Private Sub 確認_Click()
Me.Filter = “完了日 is not null” & ” and ” & “最終チェック is null”
Me.FilterOn = True
End Sub
確認は完了日に日付が入っていて、最終チェックに日付が入っていないレコードを抽出します。

最終チェック
最終チェックは最終チェックに日付が入っているレコードを抽出します。

Private Sub 完了_Click()
Me.Filter = “最終チェック is not null”
Me.FilterOn = True
End Sub

ここまですると、社内で今仕事がどのように進んでいるのか分かるようになります。

=======================================
丁度娘が大学受験真っ最中です。なんとか併願が二つ合格し、あとは本命の国立を
受けるばかりとなりました。自分が子供の頃は親は何もしてくれなくて、ポケット地図を
もって、静岡から上京しました。

初めて渋谷にきて、地図見ても右も左も分からず、受験会場とは真逆にすすんでしまい、
途中で気づいて慌てて引き返したことを思い出します。

今はスマホもあるし、親が受験会場までついて行く世の中

本日も最後までお読みいただきありがとうございます。

明細毎に原価と粗利を計算する②

明細毎に複数の原価を集計するために、まずはデータを入れるテーブルを作成します。

最初にメインフォームとなるテーブル。

とりあえず見積明細の見積明細NOが入れるだけです。

次に原価明細を入れるテーブル。

これは必要に応じて項目を作ってください。必要になるのはメインフォームと
サブフォームの関係にしたいので、見積明細NOは必須のフィールドです。

この二つのテーブルを基にフォームを二つ作り、原価明細の方をサブフォームで
とします。連結するのは見積明細NOです。

あとは見積書フォームを開いて、見積明細のコマンドボタンのプロパティの
イベントタブのクリック時に次のVBAコードを入れます。

Private Sub コマンド7_Click()
Me.Refresh
DoCmd.OpenForm “F見積接続”
Forms!F見積接続!見積明細NO = Forms!F見積書.F見積明細!見積明細ID
End Sub

コマンドボタンをクリックしたタイミングでT見積接続に現在参照している
見積明細NOがレコードとして入ります。

あとは明細をひたすら打っていきます。

とりあえずこれで見積明細とその原価明細が繋がりました。

========================================
人生初のダイエット(糖質制限)が3週間経ちました。
その間、米、パン、麺類はほぼほぼ食べず、主食は豆腐と化しました。
コンビニ行っても買えるものは、コーヒーとゆで卵とナッツだけ。。
世の中糖質で溢れてますね。というか糖質しかない!!
食事が面倒です泣

本日も最後までお読みいただきありがとうございます。

レコードを行間に追加する

前回はレコードを削除した場合の行番号を整えました。

今回は、行と行の間にレコードを追加する場合のやり方です。

Accessを使っていてなんでこれが簡単にできないんだろうというものの一つが
行の挿入です。Excelでは簡単ですよね。右クリックで行の挿入、これで終わりです。

AccessではVBAを使わないとできません。

下の画面の1と2の間と2と3の間にレコードを挿入します。

コマンドボタンを作って、そこに以下のVBAコードを入れます。

Private Sub コマンド13_Click()
Dim a As Integer

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cnn = CurrentProject.Connection
Set rs = New ADODB.Recordset

rs.Open “納品明細”, cnn, adOpenKeyset, adLockOptimistic

a = Me!順番1

rs.MoveFirst

Do Until rs.EOF
If rs!納品書NO = Forms!納品書!納品書NO Then
If rs!順番1 >= a Then
rs!順番1 = rs!順番1 + 1
rs.Update
End If
End If
rs.MoveNext
Loop

rs.AddNew
rs!順番1 = a
rs!納品書NO = Forms!納品書!納品書NO

rs.Update

rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing

Forms!納品書!納品明細.Form.Requery
End Sub

このプログラムを実行すると、下記のようになります。

無事レコードを挿入して、番号もそろえることができました。
データベースの構造上、常に一番下にレコードが追加されていくので、これの入力順を
変更することは不可能です。ですので順番というフィールドを作って、これで操作して
いきます。

テーブルを見るとこんな感じですね。

ちなみにIDはオートナンバー型です。

Excelばかりつかっているとこの考え方を理解するのに手間取るかもしれませんが、
大事な考え方なので、是非分かってあげてください。

=======================================
9月になりました。
やっと明後日にワクチン1回目です。
いろいろ不安はありますし、打たなくてよければ打ちませんが、仕方がありません。
副反応が少なければいいなあ。。

本日も最後までお読みいただきありがとうございます。

請求明細から請求書を作る①概要

この前、知り合いからExcelの明細から請求書を作れないか?という相談があり
やってみました。なかなかの出来栄えでしたので、そのやり方を解説します。

概要としてはこんな感じです。
Excelにとあるシステムから掃き出した請求明細があります。

続きを読む

納品書の消費税を明細にレコードとして保存する①

納品書を作成する場合、サブフォームの納品明細に納めた商品と単価と数量を入れて
いくと税抜きの納品金額が計算されます。

その納品金額に消費税率をかけて消費税を計算します。
ただ消費税を納品書に表示するだけなら、テキストボックスに
=納品金額*0.08
で計算し、納品金額に消費税を足せば税込みの金額が計算できます。

続きを読む