会社で使っているAccessのファイルで「ファイル」→「開く」からは開けるのですがアイコンをダブルクリックして開こうとすると「パスがありません」と出てきて文字化けしたパスが表示されます。ファイルはサーバに置いてあって他の端末からはアイコンから開くことができます。Excelでも同じようなことがありました。どなたか解決方法を教えてください。よろしくお願いします。

A 回答 (3件)

再度登場


>アイコンはショートカットではなくファイル自体です。
 てことは、エクスプローラから起動しているのですか?

最近OFFICEの再セットアップをしませんでしたか?
それも最初はCで再セットアップはDでしませんでしたか?

だとすると再セットアップの方法が誤っています。
一回アンインストールして
C:¥PROGRAMFILES¥MICROOFFICE
のフォルダーを削除してから再セットアップして下さい。

がんばって下さい。応援します。
 
    • good
    • 0
この回答へのお礼

再セットアップはしておらず、インストール先もC:¥PROGRAMFILES¥MICROOFFICE でしたが、OFFICEの再インストールをしたら起動できるようになりました。アドバイスありがとうございました。今後ともよろしくお願いします。

お礼日時:2001/10/23 15:59

ショートカットアイコンを作成してAccessのファイルを開いているのか?


それとも実際のファイルを直接実行しているのかどちらですか?

前者ならショートカットアイコンを作成し直してください。

後者ならレジストリが壊れている可能性があります。

この場合は
1.エクスプローラを起動して「ツール」-「フォルダ オプション」をクリックする。
2.「ファイルタイプ」をクリックする。
3.「Microsoft Access アプリケーション」を選択して「編集」をクリックします。
4.アクションの「開く」を選択して「編集」をクリックします。
5.「%1」と入力されている所が有ると思うので「"%1"」に変更する。
で直るかな??

素直に「ヘルプ」-「アプリケーションの自動修復」を実行するのも良いかも知れません。(Access2000以降ならば)

この回答への補足

回答ありがとうございます。%1のところは"%1"となっていました。ちなみにAccess97で、OSはWindows95です。

補足日時:2001/10/23 09:01
    • good
    • 0

その開かないアイコンを右クリックして→プロパティ


そこのリンク先に指定してあるのが、違うのでしょう
内容を修正するより削除してアイコンを作り直したほうが早いです。

原因
 リンク先のファイルが移動されたです

がんばって下さい

この回答への補足

回答ありがとうございます。説明不足で申し訳ありません。アイコンはショートカットではなくファイル自体です。

補足日時:2001/10/23 08:26
    • good
    • 0

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

このQ&Aを見た人はこんなQ&Aも見ています

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

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

QACCESS2003のデータアクセスページの使い方について

イントラ内でACCESS2003のデータアクセスページを使いたい。

1.ACCESS2003のデータアクセスページを作成しました。
2.そのMDBファイルと、データアクセスページ(htmファイル)を、WINDOWS2000ServerのInetpub内のwwwrootフォルダの中へ入れました。
3.ここにはイントラ内のHPなどを置いています。(普通に見れています。)
4.クライアントから、データアクセスページのhtmファイルを見に行くと「データソースログオン」が立ち上がります。(パスワードを設定しています。)
5.パスワードを入れるとデータアクセスページ(htm)から、通常のアクセスのフォームのごとくデータ入力が出来る予定なのですが(泣)できません。(泣)

で、悩んでおります。

ACCESS2003のMDBファイルとデータアクセスページ(HTMファイル)をサーバーのwwwrootへ置いただけでは、データアクセスページを通してmdbファイルへの入出力は不可能なのでしょうか?

Aベストアンサー

MDBに接続されたAccessプロジェクトを開いている場合データアクセスページは自動的にそのデータベースに接続されてそのパスがデータアクセスページのConnectionString プロパティに設定されます。
ページを作成した後でデータベースを移動またはコピーした場合はConnectionString プロパティに設定されているパスを更新して新しい保管場所を設定する必要がありますがどうなっていますか?
そこを確認してみてください。

Qファイルパスを複数書いて、そのファイルパス全てからファイルを順に取り込

ファイルパスを複数書いて、そのファイルパス全てからファイルを順に取り込みたい。

A1,B1.C1・・・と、セルにファイルの絶対パスを書いて、A1から順に書いてあるファイルパスだけそのパスからファイルを取り込むマクロを作りたいです。

ファイルを指定してファイルを取り込むマクロを作ったのですが、毎回ファイルを指定するのが面倒です。
なので、シートにあらかじめファイルパスを書いておいて、そのファイルパスからファイルを取り込むようにしたいです。
取り込むファイルは複数で、その時によって違います。(といっても、多くても5つくらいですが・・・)

どなたか作り方を教えていただけませんでしょうか。

質問内容が分かりづらかったらすみません。
何かあれば補足いたしますのでよろしくお願いします。

Aベストアンサー

簡単に書きます。考え方です。

>ファイルを指定してファイルを取り込むマクロ
今はファイルもこのマクロの中で指定されていると思います。
これを
「ファイル名をマクロの引数として与えて実行、その引数のファイルを取り込むマクロ」
という構造にかえてやります。

SUB AAA(FL)      ← 取り込み用マクロ、ファイル名を与えてやる。()を(filename as string)
OPEN FL        ← openの後に記載しているファイル名を変数filenameに変えることで汎用化になる。
取り込んだ処理
END SUB

SUB CALLAAA      ← 実行させるマクロ
FL1=A1の値       ←A1セルの値を変数に設定する
CALL AAA(FL1)     ←取り込み用マクロAAAを実行する、引数はA1の内容でファイル名の値
FL2=A2の値       ←A2セルの値を変数に設定する
CALL AAA(FL2)     ←取り込み用マクロAAAを実行する、引数はA2の内容でファイル名の値
FL3=A3の値       ←A3セルの値を変数に設定する
CALL AAA(FL3)     ←取り込み用マクロAAAを実行する、引数はA3の内容でファイル名の値
・・・
(5回分)
・・・
END SUB

エクセルの画面から
マクロを実行させるのは今までの「sub AAA」でなくて「sub CALLAAA」、
「sub CALLAAA」の中で「sub AAA」を繰り返し実行してくれます。

取り込みn回分を一気に実行してくれるマクロ、

取り込み用マクロ、
になります。
マクロからマクロを実行、親-子みたいな関係です。

分かるところから、少しずつ片づけてみてください。


--------------------

sub xxx
end sub

function xxx
end function
と記載することで、
マクロの記録保存のほか、
自分のオリジナルの処理を記載できます。

--------------------
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv252.html#1
ここのサイトの「ブックシート」、ファイル操作も参考になります。

簡単に書きます。考え方です。

>ファイルを指定してファイルを取り込むマクロ
今はファイルもこのマクロの中で指定されていると思います。
これを
「ファイル名をマクロの引数として与えて実行、その引数のファイルを取り込むマクロ」
という構造にかえてやります。

SUB AAA(FL)      ← 取り込み用マクロ、ファイル名を与えてやる。()を(filename as string)
OPEN FL        ← openの後に記載しているファイル名を変数filenameに変えることで汎用化になる。
取り込んだ処理
END SUB

SUB C...続きを読む

Qホームページ移転に伴う.htaccessの使い方ですがアップロードして

ホームページ移転に伴う.htaccessの使い方ですがアップロードして削除できなくなる事ないですか??また、さくらサーバーは.htaccess使えますか??

Aベストアンサー

.htaccessだけではなく、
ファイルはパーミッションによっては一旦削除できなくなると思いますよ・・・
使えないのにアップすると削除出来ないとか。

>さくらサーバーは.htaccess使えますか??
使えます。
.htaccessを使えない有料サーバってあるのでしょうか?・・・

Q共有しているエクセルファイルをOffce2003で開こうとすると他で開いていないのに読み取り専用になってしまいます。

MS VistaでOffice2003Proを使用しています。
MS Windows2000 Serverでエクセルのファイルを共有しているのですが、他のPCで開いていないのにも関わらず、「xxx.xlsは編集のためロックされています。使用中は'xxx'です。[読み取り専用]で開くか、または、読み取り専用で開き、ほかの人がファイルの使用を終了したときに通知を受け取るには、[通知]をクリックします。」と出てしまいます。
毎回ではなく、頻繁にでます。また、すべてのファイルではなく、特定のファイルです。これらのファイルに共通していることは、VBAでマクロが組んであります。
ご回答よろしくお願いいたします。l

Aベストアンサー

的外れな回答でしたら申し訳ありません。

もしかするとVBAマクロに「読み取り専用モードで開く」記述がされているのかもしれません。
マクロを組まれた人に尋ねてみてはいかがでしょうか。

参考:http://excelvba.pc-users.net/fol4/4_2.html

QAccessで作成したテーブルのOLEオブジェクトの使い方

Accessで作成したテーブルにデータ型(OLEオブジェクト型)で画像を取り込みできるようにしました。
取り込みした画像を開くためのフォームを作成して画像を開けるようにしました。
下記の内容です。

Private Sub Form_Open(Cancel As Integer)
Form.Caption = ProgName
End Sub

しかし「ビットマップ形式」ですと問題なく開くのですが、「JPG形式」ですと開けないのです。取り込みしたAccessテーブルのフィールドから直接だとひらけます。
Accessで作成したフォームから、「JPG形式」の画像を開くにはどうすればよろしいですか?
また、画像を1000件ほど取り込みすると大きいデータベースになってしまいます。Accessのデータベースのサイズは制限があるのかしら?
アドバイスいただけれは幸いです。

Aベストアンサー

Access のバージョンは?
んで Web で検索する努力はしましょうよ。
丸 1日ぐらい検索しっぱなしで悩まないと。

Google「access ole jpeg」で検索
http://www.google.com/search?hl=ja&lr=lang_ja&ie=UTF-8&oe=UTF-8&q=access+ole+jpeg&num=50

Access 2003 では以下のような制限があるようです。
■ Access 2003 で OLE オブジェクトとして JPEG および GIF 画像を取り扱う場合の注意事項
http://support.microsoft.com/kb/884484/ja

■ OLE オブジェクト型のフィールドに格納されているイメージが正しく表示されません
http://support.microsoft.com/kb/832508/ja

解決策としては JPEG を開ける OLE コンテナになるアプリケーションをインストールしておく。

Google「Access データベース サイズ 制限」で検索
http://www.google.com/search?hl=ja&num=50&q=Access+%E3%83%87%E3%83%BC%E3%82%BF%E3%83%99%E3%83%BC%E3%82%B9+%E3%82%B5%E3%82%A4%E3%82%BA+%E5%88%B6%E9%99%90&lr=lang_ja

Access のバージョンは?
んで Web で検索する努力はしましょうよ。
丸 1日ぐらい検索しっぱなしで悩まないと。

Google「access ole jpeg」で検索
http://www.google.com/search?hl=ja&lr=lang_ja&ie=UTF-8&oe=UTF-8&q=access+ole+jpeg&num=50

Access 2003 では以下のような制限があるようです。
■ Access 2003 で OLE オブジェクトとして JPEG および GIF 画像を取り扱う場合の注意事項
http://support.microsoft.com/kb/884484/ja

■ OLE オブジェクト型のフィールドに格納されているイメージが正...続きを読む

Qインプットボックスからファイルを開くようにしました。しかし、すでに開い

インプットボックスからファイルを開くようにしました。しかし、すでに開いているか確認する項目がうまく作動しません。どのように記述するか教えて頂けませんでしょうか。

Sub Macro1()
Dim wb As Workbook
Dim psw As Boolean
Dim fil As String
fil = InputBox("ファイル名入力")

For Each wb In Workbooks ’すでに開いているか確認。二重に開くのを防止
If wb.Name = "fil.xls" Then ’ここの部分がうまく作動してくれません。
psw = True
Exit For
End If
Next wb
If psw = False Then
Workbooks.Open Path & "C:¥" & fil
End If
End Sub

Aベストアンサー

横からすみません。
>Workbooks.Open ThisWorkbook.Path & "\" & fil & ".xls" 'ここを修正するとエラーになってしまいます。
先ほどの質問の補足に
>しかし、教えて頂いた方法でうまくファイルを開く事ができません。バックスラッシュの表示もうまくいかず¥になってしまいます
とありましたので
このサイトでは ¥マークが /(バックスラッシュ)で表示されます。
ThisWorkbook.Path & "¥" & fil & ".xls"
が正しいです。
今は 全角で ¥ を出していますが 正しくは半角です。
それと
ThisWorkbook.Path ですので
開きたいファイルが、同じフォルダにあることが前提です。

QAccess2000でFTPの使い方について。

Access2000のフォームから、実行のボタンをクリックするとFTPサーバに接続→ファイル取得→Accessテーブルに取込→FTPサーバのファイル削除→FTPサーバの接続切断という処理をしたいのですがどのようにしたらよいかわかりません。説明不足だとは思いますが、アドバイスを宜しくお願い致します。

Aベストアンサー

ちなみに先ほどのFTPサンプルは、BASP21をインストール後、サンプルのコードを新規モジュールに貼り付けて(たとえば以下をまるごと)実行すればAccessでもそのまま動きます。

sub file_download()

Dim ftp As Object, rc As Long, v As Variant, v2 As Variant
Dim ctr As Long

Set ftp = CreateObject("basp21.FTP")
ftp.OpenLog "c:\temp\log.txt"
rc = ftp.Connect("ftp.microsoft.com", "anonymous", "")
If rc = 0 Then
v = ftp.GetDir("bussys/winnt/winnt-public", 2) ' ディレクトリ一覧(詳細)
If IsArray(v) Then
For Each v2 In v
Debug.Print v2
Next
End If
v = ftp.GetDir("bussys/winnt/winnt-public") ' ディレクトリ一覧(ファイル名のみ)
If IsArray(v) Then
For Each v2 In v
Debug.Print v2
Next
End If
rc = ftp.GetFile("bussys/winnt/winnt-public/*", "c:\temp") 'ファイル受信

end sub

実行には20秒ほどかかります。
実行前にはCドライブにtempというフォルダを作っておいてください。

ちなみに先ほどのFTPサンプルは、BASP21をインストール後、サンプルのコードを新規モジュールに貼り付けて(たとえば以下をまるごと)実行すればAccessでもそのまま動きます。

sub file_download()

Dim ftp As Object, rc As Long, v As Variant, v2 As Variant
Dim ctr As Long

Set ftp = CreateObject("basp21.FTP")
ftp.OpenLog "c:\temp\log.txt"
rc = ftp.Connect("ftp.microsoft.com", "anonymous", "")
If rc = 0 Then
v = ftp.GetDir("bussys/winnt/winnt-public", 2) ' ディレクトリ一...続きを読む

Q既にファイルが開いているのなら開かない(二重起動防

アクセス 既にファイルが開いているのなら開かない(二重起動防止)とするには?

自分なりにコードを考えてみたのですが

Sub Sample()
Dim acApp As Access.Application

Set acApp = CreateObject("Access.Application")
acApp.OpenCurrentDatabase "C:\test.accdb"

'該当のファイルが開いてないのなら、
If acApp.ReadOnly = False Then
acApp.Visible = True
acApp.UserControl = True
End If

End Sub


これだと、.ReadOnlyがコンパイルエラーになります。
どうやらReadOnlyはアクセスには用意されてない用語のようです。

このような場合どうすればいいでしょう?

Aベストアンサー

Accessファイルがローカルにあるのなら
ファイルを開けば拡張子が
accdb → laccdb
mdb → ldb
のファイルが作成されますので、Dir 関数で調べるのが一番簡単です。
ただし、排他モードで開いた場合は上記ロック情報のファイルは作成されません。
また、Accessが異常終了した場合には上記ファイルは残ったままになることも有り。

別案としては
Dim Ac as object
set ac=getobject("C:\test.accdb").application
・・・以下省略
などもありますが、Accessを前面に持ってくる必要があったりします。

QRuby on Rails 「attr_accessor」 の使い方に

Ruby on Rails 「attr_accessor」 の使い方について

こんにちは。

現在、Ruby on Railsで登録画面を作成しているのですが、attr_accessorで定義した項目に対して、validationのチェックを行うと、問題が起きてしまいました。

attr_accessorで定義した項目は、DB登録の対象ではないのですが、lengthのチェック等を行う必要があり、validates_length_of等を使って入力チェックを行っています。

問題になったのは、入力があったときだけチェックをかけたいのに、入力がなくてもチェックがかかってしまうという状態になってしまうことです。
「:if => 項目?」を書いてみると、「undefined method」のエラーがでてしまいます。

どなたか対応策の分かる方がおられましたらご教授いただけないでしょうか?

下記に実際の問題箇所のモデルクラスのソースを書いておきます。

 class User < ActiveRecord::Base

   attr_accessor :NEW_USER_PW ← 追加したアクセサ

   # 追加したアクセサに対するチェック
   validates_length_of :NEW_USER_PW, :minimum=>4, :message=>"は%d桁以上を設定してくださ            
    い。", :on => :update, :if => :NEW_USER_PW?

 end

上記のチェック内の「:if => :NEW_USER_PW?」で落ちてしまいます。
入力がないのにチェックに引っかかるとまずいので、入力がないときだけ上記チェックを行えれば良いのですが・・・。

どうぞ宜しくお願い致します。

Ruby on Rails 「attr_accessor」 の使い方について

こんにちは。

現在、Ruby on Railsで登録画面を作成しているのですが、attr_accessorで定義した項目に対して、validationのチェックを行うと、問題が起きてしまいました。

attr_accessorで定義した項目は、DB登録の対象ではないのですが、lengthのチェック等を行う必要があり、validates_length_of等を使って入力チェックを行っています。

問題になったのは、入力があったときだけチェックをかけたいのに、入力がなくてもチェックがかかってしまうという状...続きを読む

Aベストアンサー

attr_accessor :NEW_USER_PWを定義したからといって、
NEW_USER_PW?メソッドが定義されるわけではりません。
attr_accessorはゲッターとセッターメソッドを作るだけです。
それ以外の論理値を返すようなメソッドは自作しなければなりません。

NEW_USER_PW?メソッドを作成されていないのなら、「undefined method」が
出てしまうのは当然です。

質問にあるように、「入力があった場合のみ」とありますので、
NEW_USER_PW?メソッドを下記のように実装すればチェック可能です。

def NEW_USER_PW?
@NEW_USER_PW.size > 0
end

また、ifにはprocオブジェクトを渡すこともできますので、
:if => Proc.new{|u| u.NEW_USER_PW.size > 0}
と書いてもいいでしょう。


NEW_USER_PWというインスタンス変数はすべて大文字を使用されていますが、
見る人によっては定数と勘違いします。
変数であれば小文字表記を利用するほうが良いかもしれません。

attr_accessor :NEW_USER_PWを定義したからといって、
NEW_USER_PW?メソッドが定義されるわけではりません。
attr_accessorはゲッターとセッターメソッドを作るだけです。
それ以外の論理値を返すようなメソッドは自作しなければなりません。

NEW_USER_PW?メソッドを作成されていないのなら、「undefined method」が
出てしまうのは当然です。

質問にあるように、「入力があった場合のみ」とありますので、
NEW_USER_PW?メソッドを下記のように実装すればチェック可能です。

def NEW_USER_PW?
@NEW_USER_PW.s...続きを読む

QVBA 新規にエクセルを開き既存のファイルを開く

VBAで新規にエクセルのアプリケーションを起動し、
その中に既存のファイルを起動する方法は有りますか?


Sub Sample()
Dim appExcel As Excel.Application
Dim WSH As Variant
Dim strPath As String

Set appExcel = New Excel.Application
Set WSH = CreateObject("Wscript.Shell")

strPath = ActiveWorkbook.Path

With appExcel
.Visible = True
.Workbooks.Add
.ActiveWorkbook.SaveAs (strPath & "\ test.xls")
End With

Set WSH = Nothing
End Sub

このコードは、ネットから拾ったサンプルコードなのですが
新しいアプリケーションでエクセルを立ち上げることはできたのですが
新規のブックが開いてしまい、
更に、開きたいファイルに上書き保存してしまいそうです。

新規のブックが開く原因は
.Workbooks.Addで、
上書き保存する原因は
.ActiveWorkbook.SaveAs
だとわかってるのですが、
この部分を同変更すればいいのかがわかりません。

Workbooks.Open?Filename:="C:\Users\test.xlsx"
だと、現在実行しているvbaファイルを同じ枠内で
該当のファイルが開いてしまいます。

VBAで新規にエクセルのアプリケーションを起動し、
その中に既存のファイルを起動する方法は有りますか?


Sub Sample()
Dim appExcel As Excel.Application
Dim WSH As Variant
Dim strPath As String

Set appExcel = New Excel.Application
Set WSH = CreateObject("Wscript.Shell")

strPath = ActiveWorkbook.Path

With appExcel
.Visible = True
.Workbooks.Add
.ActiveWorkbook.SaveAs (strPath & "\ test.xls")
End With

Set WSH = Nothi...続きを読む

Aベストアンサー

こんにちは。

Excel.Application オブジェクトの 直下に .Workbooks コレクションがある訳ですから、
  appExcel.Workbooks.Open Filename:=......
という風に指定すればいいことになります。
ご提示の記述では、WSHは使っていないようですから、省いたものでお応えします。

Sub Re8741206()
Dim appExcel As Excel.Application
Dim strPath As String

  Set appExcel = New Excel.Application

  strPath = "C:\Users" ' ActiveWorkbook.Path

  With appExcel
    .Visible = True
    ' ' 既存のブックを開く
    .Workbooks.Open Filename:=strPath & "\test.xlsx"  '"C:\Users\test.xlsx"

    ' ' 処理

    ' ' 処理が済んだら閉じる
'    .Quit
  End With

  ' ' 処理が済んだら解放
  Set appExcel = Nothing
End Sub

こんにちは。

Excel.Application オブジェクトの 直下に .Workbooks コレクションがある訳ですから、
  appExcel.Workbooks.Open Filename:=......
という風に指定すればいいことになります。
ご提示の記述では、WSHは使っていないようですから、省いたものでお応えします。

Sub Re8741206()
Dim appExcel As Excel.Application
Dim strPath As String

  Set appExcel = New Excel.Application

  strPath = "C:\Users" ' ActiveWorkbook.Path

  With appExcel
    .Visible = True
    ' '...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報