Accessのセキュリティについての質問

質問

• Accessのセキュリティについて質問します。現在、アルバイトさんによる顧客データの入力を行っており、社員がデータをチェックしています。しかし、現在のセキュリティ対策は不十分であり、アルバイトさんにも社員以外からもデータが閲覧される可能性があります。そこで、アルバイトさんによるデータ入力を制限しつつ、他部署の社員もデータを閲覧できないようにする方法を探しています。
• Accessのセキュリティに関する問題があります。アルバイトさんによる顧客データの入力が行われており、社員がデータをチェックしています。しかし、現在のセキュリティ対策ではアルバイトさんによるデータの閲覧制限ができず、他部署の社員もデータを閲覧することができてしまいます。アルバイトさんがデータを入力できる状態を維持しつつ、他部署の社員からのデータ閲覧を制限する方法をご教示ください。
• Accessのセキュリティに関する質問です。現在、アルバイトさんが顧客データの入力を行っており、社員がデータをチェックしています。しかし、現在のセキュリティ対策ではアルバイトさん以外の社員もデータを閲覧することができてしまいます。アルバイトさんがデータ入力を行える状態を維持しつつ、他部署の社員からのデータ閲覧を制限する方法を教えてください。

回答No.10

venzou

＞キャンセルや閉じた場合、テーブルも一緒に削除する方法はあるのでしょうか？

Form_Openをキャンセルした場合は、Closeイベントが発生しないので、下記の場所でも、リンクテーブルを削除するようにして下さい。

'入力なき時は、フォームオープンをキャンセルします。
If varname = "" Then
Cancel = True

'ここでもリンクテーブルを削除します

DeleteLink "*********"

End If

------------------------------------------------------------
入力用のMDBを強制終了した場合などに、リンクテーブルが残る場合があるので、下記の関数を少し修正しておきます。

CreateLinkで、テーブルが存在した場合にエラーになるので、削除して作り変える様に変更。

DeleteLinkで、テーブルが存在しない場合にエラーになるので、その修正。ついでにDAOを使うように変更しました。

Public Sub CreateLink(strName)
　Dim tdf As DAO.TableDef
　DeleteLink strName
　Set tdf = CurrentDb.CreateTableDef(strName)
　tdf.Connect = "MS Access;DATABASE=" & MdbPath & ";PWD=" & PassWord & ";"
　tdf.SourceTableName = strName
　CurrentDb.TableDefs.Append tdf
End Sub

Public Sub DeleteLink(strName)
　Dim tdf As DAO.TableDef
　For Each tdf In CurrentDb.TableDefs
　　If LCase(tdf.Name) = LCase(strName) Then
　　　CurrentDb.TableDefs.Delete strName
　　　Exit For
　　End If
　Next
End Sub

補足

もう、完璧です。。
venzou様のご好意と文章力に感謝致します。

実際に作業を想定してやってみたのですが、冒頭でお話させていただいたアルバイト１０名程度の入力を開始すると、一人がフォームを開けると、テーブルが開きっぱなしになってしまって他の人がフォームを開けないのです。
正直mdeというファイルが詳しく分かっていないので、venzou様に言われたときから少し後回しにしてるんです。それとなにか関係があるのでしょうか？mdeなら複数入力が可能とか。

御蔭様で今のところ他のことは全てクリアしてます！