Access2000で検索システムを作りました。条件を入力したらマッチするデータが表示される(フォームを開く形にしています。)という流れです。それまで正常に機能していたのですが,ネットワーク上のパソコンの名前を変えたところ、「'\\変更前のパソコン名\****\**.mdb'は無効なパスです。パス名を正確に指定しているか、またはファイルが属するサーバーに接続しているかを確認して
ください。」というエラーが出てフォームが開きません。 
エラーが出て止まってしまう箇所の記述は DoCmd. Openform "フォーム名"となっています。フォーム名の前にパスを指定することができるのでしょうか?ヘルプではさがせなかったのですが。どなたか回避方法を教えてください。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

そのフォームはリンクテーブルを見ているフォームじゃないですか?


であればリンクのはり直しをすれば済むだけだと思います。
まあADOという可能性もなきにしもあらずですが
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QC:\WINDOWS\TEMP\B2Temp\Attachとは・・・

添付ファイルをメーラーからパソコンに落とすときに、
現在の場所を表すのに
「C:\WINDOWS\TEMP\B2Temp\Attach」
と表示されます。場所を表しているのだと思うのですが、くわしくどういう意味なのか教えて下さい。

Aベストアンサー

Cドライブの中のwindowsフォルダの中のtempフォルダの中のB2Tempフォルダの中のAttachフォルダ、という意味だと思います。質問の意図を取り違えてましたらすみません。スタートメニューを右クリックしてエクスプローラーで階層を確認されたら分かりやすいかと思います。

QEXCELで日付を****年上期、****年下期で表現する関数

EXCELで、例えば、A1セルに2005/02/23
というような形式で日付が入力されています。
会社では4月1日~9月30日までを上期、
10月1日~翌年3月31日までを下期としています。
2005/02/23は2004年下期
2004/08/15は2004年上期
2004/10/17は2004年下期
2005/04/01は2005年下期
と表現するような関数を教えてください。

Aベストアンサー

いろんな方法がありますが、分析ツールが入っていればedate()を使って簡単に年度の換算が出来ます。
=edate(日付, -3)
とすると3ヶ月前の日付になるので、
=year(edate(日付, -3)) が年度、
=month(edate(日付, -3)) がその年度の何番目の月か
になるわけです。それを使って、

=year(edate(日付, -3))&"年"&choose(int(month(edate(日付, -3))/7)+1,"上期","下期")

なんてヤルわけですね。

Qエクセルの指定したセルに指定した文字が入ると、ユーザーフォームのように文字が出るようにしたい

エクセルで指定したセルにたとえば、
"りんご”という文字が入った時に、注意書きが出るようにしたいと思っています。

A1に、「りんごとみかん」と入ったら、 それに気づくようにしたいのですが、

イメージとしては、
VBAでユーザーフォームを作って、A1に「りんご」が入ったらユーザーフォームが出てくる
感じをイメージしていますが、
そこまで手が込んでいなくても、いいのですが
注意書きが出るようにしたいです。
教えてください。

Aベストアンサー

No.1です。

>4列目に入力しているときには、A4に”りんご”が入ったらメッセージボックス出現
>6列目に入力しているときは、A6に”りんご”が入ったらメッセージボックス出現

結局A列すべてを対象とした方が良かったのですね?

>If .Address = "$A$1" Then
の行を
>If .Column = 1 And .Count = 1 Then
に変更してみてください。

※ 余計なお世話かもしれませんが、
仮にA1~A20セルを対象とし、入力セルを再選択・消去するコードは↓のような感じになります。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
str = "りんご" '//ここで文字列を指定
If Intersect(Target, Range("A1:A20")) Is Nothing Or Target.Count > 1 Then Exit Sub
If InStr(Target, str) > 0 Then
MsgBox str & "が含まれています。"
Target.Select
Selection.ClearContents
End If
End Sub

※ 「りんご」以外の文字にも対応できるように、
str という変数を使ってみました。m(_ _)m

No.1です。

>4列目に入力しているときには、A4に”りんご”が入ったらメッセージボックス出現
>6列目に入力しているときは、A6に”りんご”が入ったらメッセージボックス出現

結局A列すべてを対象とした方が良かったのですね?

>If .Address = "$A$1" Then
の行を
>If .Column = 1 And .Count = 1 Then
に変更してみてください。

※ 余計なお世話かもしれませんが、
仮にA1~A20セルを対象とし、入力セルを再選択・消去するコードは↓のような感じになります。

Private Sub Worksheet_Chang...続きを読む

QExcel2010 \Office14\XLSTARTが見つからない

Windows7 Excel2010
図形のデフォルトを変更するため
次のサイトの⑤
http://www.kye.co.jp/kye-kyg-help-ex019.html
⑤ブックを保存する
  1.ファイル名→「Book」とする
  2.ファイルの種類→[Excelテンプレート(.xltx)を選択
  3.保存場所→
  C:\Program Files\Microsoft Office\Office14\XLSTART(Windows7)
をしようとしても\XLSTARTが見つかりません。
画像のように\Office14には、1041のフォルダのみです。
どうすればいいのでしょうか?ご存知の方
原因と対処方法を教えてください。

Aベストアンサー

そこじゃありません。
C:\Users\<ユーザープロファイルフォルダ名>\AppData\Roaming\Microsoft\Excel\XLSTART
です。

確認法
Excelを起動し、Alt+F11 などでVBEを起動させます。
そのままCtrl+Gで下部にイミディエイトウィンドウを開きます。
イミディエイトウインドウに
?Application.StartupPath
とだけ入力してEnterキーを叩くと、すぐ下にXLSTARTフォルダへのフルパスが表示されます。

Qファイル名やシート名、パス等の変更を参照する方法

エクセルで他のファイルや他のシートのセルを参照している場合に、環境の変化で他のファイル名やパスが変更されたり、シート名が変更されると「ファイルが見つかりません。」というメッセージが表示され、影響が出たセルの数だけ利用者が元のファイルやシートを探す羽目になり、操作上の面倒を強いられております。
この場合、この様な手間を掛けないで済むよう予め変数を設定するセルを用意しておくように修正したいと思います。
環境に変更が生じた場合は、この変数を設定したセルだけを変更すれば個々のセルに影響が出ないようにすることが望ましいと考えますが、実際にどのようにすれば実現できるのかエクセルの関数等を調べても判りません。
具体的にファイル名やシート名、パス等の環境を設定するセルと、それを参照するセルの関係を下記の例で、
(1)参照するセルXの設定内容
(2)ファイル名やシート名、パスを自動的に設定したり、参照する方法
以上のご教示を、よろしくお願いいたします。

セルA:ファイル名を変更設定するセルで、内容:Table01
セルB:シート名を変更設定するセルで、内容:Sheet01
セルC:パスを変更設定するセルで、内容:D:\Data\Table
セルX:参照するセルで、変更前の内容:C:\Data\Table\[TableA.xls]SheetA'!C5

エクセルで他のファイルや他のシートのセルを参照している場合に、環境の変化で他のファイル名やパスが変更されたり、シート名が変更されると「ファイルが見つかりません。」というメッセージが表示され、影響が出たセルの数だけ利用者が元のファイルやシートを探す羽目になり、操作上の面倒を強いられております。
この場合、この様な手間を掛けないで済むよう予め変数を設定するセルを用意しておくように修正したいと思います。
環境に変更が生じた場合は、この変数を設定したセルだけを変更すれば個々のセル...続きを読む

Aベストアンサー

#1です。#1で出来ないと言いましたが、訂正します。下記で出来ると思います。
Sheet1のB1セルに「Sheet3」、C1に「A1」と入っているとき、Sheet3のA1セルの値を持ってくるには
例えばSheet1に関数=INDIRECT(B1&"!"&C1)を入れると
値を引いてきます。ブックの場合も
B3にaa1.xls(ブック名)
C3にTEST(シート名)
D3にA1として
=INDIRECT("["&B3&"]"&C3&"!"&D3)で値を引いてきました。


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

おすすめ情報