カテゴリー別アーカイブ: テーブル

Accessで名刺管理～取り込んだデータの編集

最初に、名刺データテーブルに備考というフィールドを追加します。
これで自由に書き込みができるようになりました。
2806252

名刺データは、現在のままではテーブルを直接開くことでしか、データの
編集ができないので、フォームでもできるようにします。
続きを読む →

Excelの名刺データをAccessに取り込む①

Excelのデータを取り込む方法は、Accessでテーブルを作成して、Excelで
その形式に合わせてコピペする方法もあります。

しかしこれではテーブルを作成する手間が出てしまうので、テーブルを作ることを
Accessでやってもらうことで、直接Excelのデータをテーブルに取り込めます。

取り込む名刺のデータです。これをAccessに取り込みます。
2806071
続きを読む →

データの競合②～競合を回避する方法１

同じレコードの同じフィールドのデータを異なるフォームで同時に操作すると
データの競合が起こります。

同じデータを二つのフォームで編集可能な状態にしておくことに問題があるので、
解決策の一つとして、片方をテーブルのデータではなく、テキストボックスにして
しまいます。

車詳細フォームの車名のプロパティで、コントロールソースを空白にします。
2805281
コントロールソースを空白にすると、テキストボックスが非連結となります。
続きを読む →

明細行の削除~行番号を整える③

クエリで実行した内容をADOで実行します。
コードは以下の通りです。
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

rs.MoveFirst
Do Until rs.EOF
rs!順番2 = DCount(“*”, “納品書サブ”, “納品書NO=” & Forms!納品書メイン!納品書NO & “” & ” and ” & “順番< =" & rs!順番 & "") rs.Update →順番2に正しい順番に変更します。 rs.MoveNext Loop 続きを読む →

明細行の削除~行番号を整える①

明細行を挿入した場合の処理を解説してきましたが、今回は削除した場合の処理です。
削除すると当然削除した明細番号が抜けてしまうので、再度番号を振り直す必要があります。

最初に納品書サブテーブルに「順番2」というフィールドを追加します。
2805021
このフィールドに正しい明細番号を振り直します。
続きを読む →

明細行の挿入②

前回、明細行を追加する前段階まで解説しました。

あとはサブフォームに配置したコマンドボタンを押したときのVBAコードを入力します。

前回も解説した通り、主キーとなっている納品明細IDはオートナンバーなのでこれを使って
並べ替えはできないので、順番というフィールドを作ってその番号を変更して明細行を
挿入していきます。
続きを読む →