Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

新着の投稿記事


タイトル3570
記事No42932   [関連記事]
投稿日: 2018/07/02(Mon) 04:17
投稿者スーパーコピーブランド激安通販専門店
解決済: ON
参照先http://www.kopi356.com
限定SALE!
人気限定モデル!
全国無料店舗!
大得価セールス中!
正規品人気定番!
【新商品!】送料込☆セール!
新作大SALE☆【送料無料!】
※激安人気新品※
人気直営店、超激安!
超格安、送料無料,5☆大好評!
【新商品!】制作精巧!
新作極上本革バッグ!
【最新入荷】男女兼用
大売り出しSALE!
日本正規専門店,激安販売中!

タイトルhttp://www.nawane111.com
記事No42931   [関連記事]
投稿日: 2018/07/02(Mon) 02:43
投稿者グッチ時計コピー
参照先http://5395
ルイヴィトンコピー品第1店 販売専門店
★真のスーパーコピー品質をお届けするルイヴィトンブランドコピー!
※価値あるブランドスーパーコピー財布、バッグのヴィトンコピー※
■品質重視なブランドコピー商品販売!
★高級品☆┃時計┃バッグ┃財 布┃その他┃
◆★ 誠実★信用★顧客は至上
●在庫情報随時更新!
品質がよい 価格が低い 実物写真 品質を重視
100%品質保証 100%満足保障 信用第一
★人気最新品┃特恵中┃☆腕時計、バッグ、財布、ベルト、靴、帽子、アクセサリー、小物☆
★当店商品送料無料日本全国!
※全物品激安,到着するのは迅速で、安全。
■あなたの訪問のを期待しています!☆ヽ(▽⌒)
会社名称 ルイヴィトンコピーN品第1店
ホームページ上でのご注文は24時間受け付けております

タイトルRe: ACCESSで写真を添付(挿入?)する方法
記事No42930   [関連記事]
投稿日: 2018/06/20(Wed) 17:03
投稿者克彦
Private Sub cmd写真取り込_Click()
Dim intRet As Integer 'ダイアログ用変数
Dim GetFileName As String 'フルパスの値

With Application.FileDialog(msoFileDialogOpen)
'ダイアログのタイトルを設定
.Title = "ファイルを開くダイアログ"
'ファイルの種類を設定
.Filters.Clear
.Filters.Add "Microsoft Office Excelファイル", "*.xls,*.csv,*.jpg"


.FilterIndex = 1
'複数ファイル選択を許可しない
.AllowMultiSelect = False
'初期パスを設定
' .InitialFileName = CurrentProject.Path
' .InitialFileName = "\\192.168.137.xxx\ホルダー名"
.InitialFileName = "\\192.168.137.xxx\cdsAccess\accdb\作業免許写真"
' \\Cbcl32\作業免許写真
'ダイアログを表示
intRet = .Show

If intRet <> 0 Then
'ファイルが選択されたとき
'そのフルパスを返り値に設定
GetFileName = Trim(.SelectedItems.Item(1))
Else
'ファイルが選択されなければブランク
GetFileName = ""
End If
End With
'選択されたフルパスをテキストボックスへ表示
Me.txt写真パス = GetFileName


上記を加工してください


> OS:
> Access Version:2016
>
>
> 現在、仕事にて図面の管理をしております。
> 具体的な流れとしては、
> @お客様より建物の構造図面・建築図面等をお預かりする
> Aお預かりした図面を確認し、「図面預り書」を作成する
> B建築の先生に貸出しするため預り書同様、「貸出し書」を作成する
> (内容は預かり書とほぼほぼ変わりません。)
> C返却された図面を確認し、預かり先・貸出先に「図面返却確認書」を作成する
>
> やりたいことは、A・Bで作成する「図面預かり書」と「貸出し書」に
> 図面写真を添付(挿入?)することです。
> 添付する写真は両方とも同じ写真で同じ枚数です。
>
> 1冊のみお借りする場合もあれば、数10冊お借りする場合もあるため、図面写真に番号を
> 振っていき(@、A、B・・・)、その写真を預かり書・貸出し書を印刷する際、
> ”別紙1”として提出&保管をしたいのです。
>
> また、写真の保管場所は作成する案件によって
> フォルダを分けていますので、作成するたび変わっていきます。
> 出来たらエクセルでも見るような【参照】ボタンをクリックしたらフォルダが出てきて
> 保存しているフォルダから複数枚選ぶ、といったことがしたいです。
>
> 上記のようなことがしたいのですが、どなたか分かる方
> いらっしゃいますでしょうか??
> エクセルで管理していたのですが、容量が重くなっていくばかりで
> ACESSに挑戦するいい機会でもありますので、教えていただけると幸いです。
> よろしくお願いいたします。

タイトルACCESSで写真を添付(挿入?)する方法
記事No42929   [関連記事]
投稿日: 2018/05/16(Wed) 10:37
投稿者yp
OS:
Access Version:2016


現在、仕事にて図面の管理をしております。
具体的な流れとしては、
@お客様より建物の構造図面・建築図面等をお預かりする
Aお預かりした図面を確認し、「図面預り書」を作成する
B建築の先生に貸出しするため預り書同様、「貸出し書」を作成する
(内容は預かり書とほぼほぼ変わりません。)
C返却された図面を確認し、預かり先・貸出先に「図面返却確認書」を作成する

やりたいことは、A・Bで作成する「図面預かり書」と「貸出し書」に
図面写真を添付(挿入?)することです。
添付する写真は両方とも同じ写真で同じ枚数です。

1冊のみお借りする場合もあれば、数10冊お借りする場合もあるため、図面写真に番号を
振っていき(@、A、B・・・)、その写真を預かり書・貸出し書を印刷する際、
”別紙1”として提出&保管をしたいのです。

また、写真の保管場所は作成する案件によって
フォルダを分けていますので、作成するたび変わっていきます。
出来たらエクセルでも見るような【参照】ボタンをクリックしたらフォルダが出てきて
保存しているフォルダから複数枚選ぶ、といったことがしたいです。

上記のようなことがしたいのですが、どなたか分かる方
いらっしゃいますでしょうか??
エクセルで管理していたのですが、容量が重くなっていくばかりで
ACESSに挑戦するいい機会でもありますので、教えていただけると幸いです。
よろしくお願いいたします。

タイトルレポートのプレビューで右クリック出来たり出来なかったり
記事No42928   [関連記事]
投稿日: 2018/05/02(Wed) 17:13
投稿者ゆんゆん
OS:Windows7
Access Version:2007

掲題の通りなのですがプレビュー画面で右クリック出来たり出来なかったりするのは何が原因でしょうか?
常に右クリック出来るようにしたいのですが。。。

☆現状☆
@オプションの「既定のショートカット メニュー(W)」にはチェックを入れています。
Aレポートを始めその他プロジェクト内で
 CurrentDb.Properties("AllowShortcutMenus") = False は書いていません。

タイトルシャネル コピー 財布
記事No42927   [関連記事]
投稿日: 2018/04/17(Tue) 11:09
投稿者シャネル コピー 財布
入荷困難のシャネルの大人気カンボンラインの激安ブランドコピー2つ折財布です!スーパー コピー ブランド http://www.hxqiu.com/ ブラックボディ&エナメルブラックのココマークを施され、中がショッキングピンクのキュートしすぎる組み合わきめが細かく柔らかい上質なカーフスキンを使用し、CCマークがオシャレな作りです。シャネル コピー 財布 http://www.hxqiu.com/?brand-25.html 大きく開くお札入れに、お札は折りたたんで入れる機能のタイプです。

タイトルRe^9: 指定ファイルを開きたい
記事No42926   [関連記事]
投稿日: 2018/04/12(Thu) 09:48
投稿者ナバ
投稿を間違えましたか?

タイトルRe^8: 指定ファイルを開きたい
記事No42925   [関連記事]
投稿日: 2018/04/11(Wed) 16:52
投稿者あいかんな
> > > 3.
> > > Debug.Print "explorer """ & strPath & "\" & Me![顧客ID] & ".Folder"""
> > > として、どういう文字列ができているのか確認してください。
> >
> > 置き換えてみましたが、顧客Fが開きます
>
> Debug.Print で動作は変わりません。
> イミディエイトウィンドに結果が表示されますので、
> それをコピペしてください。

タイトルRe^7: 指定ファイルを開きたい
記事No42924   [関連記事]
投稿日: 2018/04/11(Wed) 15:11
投稿者ナバ
> > 3.
> > Debug.Print "explorer """ & strPath & "\" & Me![顧客ID] & ".Folder"""
> > として、どういう文字列ができているのか確認してください。
>
> 置き換えてみましたが、顧客Fが開きます

Debug.Print で動作は変わりません。
イミディエイトウィンドに結果が表示されますので、
それをコピペしてください。

タイトルRe^6: 指定ファイルを開きたい
記事No42923   [関連記事]
投稿日: 2018/04/11(Wed) 14:34
投稿者あいかんな
ナバさま

ご返信ありがとうございます。

> 1.
> まずは「ダメ」を説明してください。
> このコードでいずれかのエラーメッセージが出るのか、
> メッセージが出ないがファイルが開かないのか。


@顧客Fの中に顧客IDと同じ名前のフォルダはある
Aファイルがありません。保存先フォルダーを開きます と表記
B顧客Fが開きます。

> 2.
> [顧客ID] を Me![顧客ID] にしてみてください。

上記と同じく、顧客Fが開きます

> 3.
> Debug.Print "explorer """ & strPath & "\" & Me![顧客ID] & ".Folder"""
> として、どういう文字列ができているのか確認してください。

置き換えてみましたが、顧客Fが開きます

ページの先頭へ 前ページへ戻る