• 締切済み

アクセスのデータを共有する事ができません

パソコンはラン環境を作り３台のパソコン間でデータの共有をしています。 エクセルファイルやワードのファイルについては共有する事ができます。が、アクセスについてはできませんでした。 Ａのパソコンにアクセスで作ったデータがあります。 これをＢのパソコンで閲覧しようとするとＡのパソコンで作ったアクセスのデータではないデータが表示されます。 推測ではデータベースが違う物を見ているのではと思います。 また、Ａのパソコンにあるアクセスファイルをショートカットし、Ｂのパソコンで閲覧すると次ぎのようなエラーメッセージが表示されます。 実行事エラー3044 パス'C:database/****/****/****.mdbは正しくありません。パス名間違いがないことと、ファイルが置かれたサーバーに接続している事を確認してください。 となります。また、「デバック」とうボタンが出るのでそれをクリックすると次ぎのようなプログラムが表示されます。 Private Sub Form_Open(Cancel As Integer) Me.前回処理年月日 = DLookup("処理年月日", "コントロールマスタ") If DLookup("更新中_FLG", "コントロールマスタ") = 1 Then Me.処理年月日 = DLookup("処理年月日", "コントロールマスタ") Me.月次更新処理.SetFocus Else Me.処理年月日.SetFocus End If End Sub おそらく上記の部分がおかしいという事を示しているのだと思います。 どうか打開策を教えて頂けないでしょうか？ お願いします。

  • aeic
  • お礼率10% (60/582)

みんなの回答

  • Watapo3
  • ベストアンサー率76% (33/43)
回答No.1

watapoと申します。 ＞C:database/****/****/****.mdb はローカルドライブを意味しますので、ネットワーク上のドライブを指定する場合には 「\\hoge\database/****/****/****.mdb」 の様に変更してみて下さい。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • access　setfocusについて

    いつもお世話になっております。 いろいろ調べたのですが行き詰っておりまして ご教授お願いします。 下記記述でsetfocusでエラーになってしまいます。 Private Sub コマンド_Click() If IsNull(Me.テキストボックスコントロール名) Then MsgBox "未入力です" Me.テキストボックスコントロール名.SetFocus End If テキストボックスの処理記述 End Sub https://www.moug.net/tech/acvba/0030005.html こちらを参考にしました。 よろしくお願いします。

  • Access クリップボードにデータが無い場合無視

    Access2000 クリップボードでテキストデータのコピー & 貼付をやりたいのですが、下記コードの場合、クリップボードにデータが無いとエラーしてしまいます。(貼付) クリップボードにデータが無い場合は無視するコードを教えて下さい。 Private Sub コマンド_Click() Me.テキスト.SetFocus DoCmd.RunCommand acCmdPaste End Sub

  • Access　VBA

    Access2003を使用しています。 単純な質問かもしれませんがよろしくお願いします。 ログイン画面を作成しておりログイン自体はできたのですが、ログインしたときに ログイン画面を自動的に閉じたいのですが、うまくいきません。 現在の仕様では、ログイン画面(frm_ログイン)とメイン画面(frm_main)があり ログインに成功するとメイン画面が開くようになっています。 ーー以下VBAコードーー Private Sub rogin_Click() Dim a If IsNull(Me.[UserName]) Then MsgBox "IDが未入力です" Me.[UserName].SetFocus ElseIf IsNull(Me.[password]) Then MsgBox "パスワードが未入力です" Me.[password].SetFocus Else a = DLookup("パスワード", "tbl_ユーザー", "ユーザー名='" & Me.[UserName] & "'") If IsNull(a) Then MsgBox "該当する ユーザー名 は存在しません" Me.[UserName].SetFocus ElseIf StrComp(a, Me.[password], vbBinaryCompare) = 0 Then On Error GoTo Err_rogin_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm_main" DoCmd.OpenForm stDocName, , , stLinkCriteria Else MsgBox "パスワードが違います" Me.[password].SetFocus End If End If Exit_rogin_Click: Exit Sub Err_rogin_Click: MsgBox Err.Description Resume Exit_rogin_Click End Sub ーー以上ーー 長くなって申し訳ないのですが、どのようにすればログイン後にログイン画面（frm_ログイン)を閉じるようにできるのでしょうか？ よろしくお願いします。

  • Access　Dlookup関数について

    Dlookupで悩んでいます。 ExcelのVlookと違い、“数字”のコードでなければ引っ張ってこれないのでしょうか？ 以下、がその内容です。 「T_得意先マスタ」の得意先コードフィールドに aaa というコードがあり、得意先名フィールドに　○○商事 とあります。 どうやってもできないのです。 なぜか、aaa ではなく、数字（例. 123)にすると出ます。 教えてください。 Private Sub 得意先コード_AfterUpdate() Dim a As Variant, b As String b = "得意先コード = " & Me![得意先コード] a = DLookup("得意先名", "T_得意先マスタ", b) If IsNull(a) = True Then Me.テキスト1.Value = "該当がありません。": Me![得意先コード] = Null Else Me.テキスト1.Value = a End If End Sub

  • アクセス　テーブルリンクのカレンダーコントロール

    受注管理システムを作っています。 カレンダーコントロールについてです。 社内運用上、データを独立？（表現は正しいのでしょうか？）させています。 なので、受注データからプログラムの方へテーブルリンクをしています。 そのせいでしょうか？ カレンダーコントロールの日付を受注日に表示させる、という作業が、データをリンクしていない原システムで練習するとできるのに、本番用のテーブルリンクの方のオウログラムでやると、値が表示されません。 解決の方法はございますか？ まだまだアクセス初心者です。ＧＯＯで教えていただいたり、参考書開き開き独学中です。 ちなみに、こちらです。 Private Sub 受注日_Click() Me.カレンダー.Visible = True '表示 Me.カレンダー.Value = Date '日付規定値　本日 End Sub Private Sub ActiveX_カレンダー_Click() Me.受注日 = Me.カレンダー.Value Me.受注日.SetFocus End Sub Private Sub 営業担当コード_LostFocus() Me.カレンダー.Visible = False '非表示 End Sub

  • Access2003 メソッドまたはデータメンバが見つかりません

    はじめまして。 販売管理用にAccessでデータベースを作っています。 請求書作成のフォームで、得意先を選択すると 「前回請求額」「前回入金額」「今月売上額」が自動計算されるように Private Sub 会員CD_AfterUpdate() Me.前回請求額 = DLookup("残高", "T-顧客マスター", "会員CD=" & Me.会員CD) Me.前回入金額 = 0 Me.売上額 = Nz(DSum("合計", "Q-請求発行明細"), 0) Me.F請求発行明細.Requery End Sub というような、記述をしましたが、 「メソッドまたはデータメンバが見つかりません」というエラーで Me.前回入金額=0　のところで止まってしまいます。 「前回入金額」とう名前が間違っているのかとテーブルなど確認 してみたのですが、間違っているわけではないようで・・・。 他に、自動で請求金額等を呼出し、更新処理ができるなら別の方法でも構わないのですが、とりあえず、このことで3時間くらい悩んでます。 （頭の出来がわるいんでしょうね、キット・・・T_T　トホホ) どなたかご教授お願い致します。

  • Access レポートでのラベルの表示について

    こんにちは。 Access2003,windowsXPです。 レポート機能で、ラベルにテーブルのデータを表示させているのですが、指定したテーブルが空白の場合、エラーが出ます。 ＮＵＬＬ値でもエラーが出ないように設定したいのですが、方法はありますか？ 参考までに（ＶＢＡ） Private Sub Report_Open(Cancel As Integer) 　 Me!ラベル133.Caption = DLookup("テーマNo", "BMM", "ID = 1") Me!ラベル134.Caption = DLookup("テーマ名称", "BMM", "ID = 1") Me!ラベル135.Caption = DLookup("請求額", "BMM", "ID = 1") End Sub

  • Access ラベルの通貨スタイルの設定について

    こんにちは。 Access2003,windowsXPを使っています。 アクセスのレポート機能で、テーブルを指定して、ラベルに表示しています。 が、数字が枠の左によってしまいます。 また、テーブルで通貨形式にしても、レポートでは、通貨になりません。 ぜひ、使い方を教えて下さい。 参考までに（ＶＢＡ） Private Sub Report_Open(Cancel As Integer) Me!ラベル133.Caption = DLookup("テーマNo", "BMM", "ID = 1")&"" Me!ラベル134.Caption = DLookup("テーマ名称", "BMM", "ID = 1")&"" Me!ラベル135.Caption = DLookup("請求額", "BMM", "ID = 1")&"" End Sub

  • Accessログイン権限

    Access2003を使用しています。 ログイン画面を作成しておりログイン自体はできたのですが、 管理者とそうでないユーザーに分けて、ログイン時に管理者であればfrm_mainを、 そうでなければfrm_main2を開くようにしたいのですがうまくいきません。 現在の仕様では、ログイン画面(frm_ログイン)とメイン画面(frm_main、frm_main2)があり テーブル名：tbl_ユーザー フィールド名：ユーザー名、パスワード、アカウント アカウントで"1"が管理者、"2"が一般ユーザー このようになっています。 ーー以下VBAコードーー Private Sub rogin_Click() Dim a If IsNull(Me.[UserName]) Then MsgBox "ユーザー名が未入力です" Me.[UserName].SetFocus ElseIf IsNull(Me.[password]) Then MsgBox "パスワードが未入力です" Me.[password].SetFocus Else a = DLookup("パスワード", "tbl_ユーザー", "ユーザー名='" & Me.[UserName] & "'") If IsNull(a) Then MsgBox "該当する ユーザー名 は存在しません" Me.[UserName].SetFocus ElseIf StrComp(a, Me.[password], vbBinaryCompare) = 0 Then On Error GoTo Err_rogin_Click Dim stDocName As String Dim stLinkCriteria As String If アカウント = "1" Then stDocName = "frm_main" Else stDocName = "frm_main2" End If DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.Close acForm, Me.Name Else MsgBox "パスワードが違います" Me.[password].SetFocus End If End If Exit_rogin_Click: Exit Sub Err_rogin_Click: MsgBox Err.Description Resume Exit_rogin_Click End Sub ーー以上ーー 現在はこのようになっているのですが、これだとなぜかアカウントが"1"でも"2"でも frm_mainが開いてしまいます。 長くなって申し訳ないのですが、アドバイスをお願いします。

  • アクセス　コンボボックスについて

    コンボボックス　印刷ボタンについて アクセス勉強中です。 フォームで作成した画面　だけを印刷する、コンボボックスを作成しています。 コンボボックスウィザードにてフォーム印刷ボタンを作成したのですが、 1000人くらいの、すべてのデーターが印刷されてしまい困っております。 どこを変更すれば1枚だけ印刷ができるのでしょうか？ イベントプロジャという部分は下記です。 またプロジャー以外に何かしなければならないのでしょうか？？ どうぞ宜しくお願いいたします。 Option Compare Database Private Sub リスト70_AfterUpdate() ' コントロールの値と一致するレコードを検索する Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[IDI] = " & Str(Me![リスト70]) Me.Bookmark = rs.Bookmark End Sub Private Sub コンボ73_AfterUpdate() ' コントロールの値と一致するレコードを検索する Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[NO] = " & Str(Me![コンボ73]) Me.Bookmark = rs.Bookmark End Sub Private Sub コンボ73_BeforeUpdate(Cancel As Integer) End Sub Private Sub 生年月日_AfterUpdate() Me.年_____齢 = Int(DateDiff("d", [生年月日] - 1, Date) / 365.25) End Sub Private Sub 郵便番号_AfterUpdate() Me!現住所.SetFocus Me!現住所.SelStart = Len(Me!現住所) End Sub Private Sub コマンド121_Click() On Error GoTo Err_コマンド121_Click Dim stDocName As String Dim MyForm As Form stDocName = "顧客リスト" Set MyForm = Screen.ActiveForm DoCmd.SelectObject acForm, stDocName, True DoCmd.PrintOut DoCmd.SelectObject acForm, MyForm.Name, False Exit_コマンド121_Click: Exit Sub Err_コマンド121_Click: MsgBox Err.Description Resume Exit_コマンド121_Click End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する