Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1785 / 9994

←次へ　｜　前へ→


	【11495】Re:テーブルのデータシートビューの列幅調整

pon - 10/2/26(金) 18:19 -


	引用なし

	パスワード

よろずやさん　小僧さん
HPのご紹介ありがとうございました

出来るんですね♪

以前から気にしていたのですが、お目にかかるのはお初です
試して感激です

You Can Do That with Datasheets?
は
tp://msdn.microsoft.com/en-us/library/aa217449(office.11).aspx
の
Public Function FixColumnWidthsOfTable _
　　　　　　　　　　　(stName As String)
と
Private Sub SetDAOFieldProperty _
　　　　　　　 (fld As DAO.Field, _
stName As String, vValue As Variant, _
　　　　　　　 lType As Long)
で動作確認できました

で、
一度、列幅調整を行っておいて、その列幅取得しておけば
いつでも復旧出来るのでとっても楽が出来そうです

　　Sub DatasheetBestFit()
　　Dim ctl As Control
　　Const BestFit = -2
　　
　　DoCmd.OpenTable "ｚｚ"
　　　　
　　　　On Error Resume Next
　　　　With Screen.ActiveDatasheet
　　　　　　For Each ctl In .Controls
　　　　　　　　ctl.ColumnWidth = BestFit
　　　　　　　　'Debug.Print ctl.ColumnWidth
　　　　　　Next
　　　　End With
　　　　
　　　　DoCmd.SelectObject acForm, "ｚｚ", True
　　　　
　　　　DoCmd.OpenTable "ｚｚ"
　　　　DoCmd.SelectObject acTable, "ｚｚ", True
　　　　
　　　　'RefreshDatabaseWindow
　　　　
　　End Sub

　　Sub DatasheetBestFit2()
　　Dim ctl As Control
　　Const BestFit = -2
　　
　　DoCmd.OpenTable "ｚｚ"
　　　　
　　　　On Error Resume Next
　　　　With Screen.ActiveDatasheet
　　　　　　For Each ctl In .Controls
　　　　　　　　'ctl.ColumnWidth = BestFit
　　　　　　　　'Debug.Print ctl.ColumnWidth
　　　　　　　　ctl.ColumnWidth = 500
　　　　　　　　
　　　　　　　　
　　　　　　Next
　　　　End With
　　　　
　　　　DoCmd.OpenTable "ｚｚ"
　　　　DoCmd.SelectObject acTable, "ｚｚ", True
　　　　　　
　　End Sub

ただ、どのコードも、実行後フォーカスを失っているみたいで
You Can Do That with Datasheets?
の場合には、いったん、
データベースウインドウを選択
テーブル選択
スクロールバークリック
しないと、テーブルの縦スクロールが出来ません

手動でテーブルを開いた場合は、
即、マウスでスクロール可能になるのですが・・・・

DoCmd.SelectObject acTable, "ｚｚ", True
とか試してみましたが、希望の操作にはなりませんでした

なにかアドバイスありましたらよろしくお願いいたします

1,259 hits

▼

【11483】テーブルのデータシートビューの列幅調整 pon 10/2/25(木) 16:22