Excel VBA質問箱 IV

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

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


14975 / 76734 ←次へ | 前へ→

【67245】ごめんなさい。コードが抜けてました。
発言  Jaka  - 10/11/17(水) 13:28 -

引用なし
パスワード
   すみません。
貼り付け忘れていた物がありました。

全て標準モジュール

Function TBLName_dist(Dbs As DAO.Database) As Variant
  Dim TB() As String, i As Long, ii As Long
  For i = 0 To Dbs.TableDefs.Count - 1
    If Left(Dbs.TableDefs(i).Name, 4) <> "MSys" Then
     ii = ii + 1
     ReDim Preserve TB(1 To ii)
     TB(ii) = Dbs.TableDefs(i).Name
    End If
  Next i
  If ii = 0 Then
   TBLName_dist = Empty
  Else
   TBLName_dist = TB
  End If
End Function


Function TBLE選択(TbNm_F As Variant) As String
  Dim List_Tb() As String, i As Long
  Dim TbTb As Variant, No As Long

  For i = 1 To UBound(TbNm_F)
    If Left(TbNm_F(i), 4) <> "MSys" Then
     No = No + 1
     ReDim Preserve List_Tb(1 To No)
     List_Tb(No) = TbNm_F(i)
    End If
  Next

  With UserForm1
    .ListBox1.List = List_Tb
    .Show
    If .ListBox1.ListIndex >= 0 Then
     TBLE選択 = .ListBox1.List(.ListBox1.ListIndex)
    Else
     TBLE選択 = Empty
    End If
    'Unload .ListBox1.Parent
  End With
End Function
1 hits

【67226】エクセルからアクセスデータを取込方法 まい 10/11/16(火) 11:53 質問
【67227】Re:エクセルからアクセスデータを取込方法 Jaka 10/11/16(火) 13:07 発言
【67242】Re:エクセルからアクセスデータを取込方法 まい 10/11/17(水) 13:05 お礼
【67245】ごめんなさい。コードが抜けてました。 Jaka 10/11/17(水) 13:28 発言
【67228】Re:エクセルからアクセスデータを取込方法 Yuki 10/11/16(火) 15:57 発言
【67230】Re:エクセルからアクセスデータを取込方法 かみちゃん 10/11/16(火) 20:03 発言
【67237】Re:エクセルからアクセスデータを取込方法 Yuki 10/11/17(水) 9:37 発言
【67244】Re:エクセルからアクセスデータを取込方法 まい 10/11/17(水) 13:09 お礼
【67243】Re:エクセルからアクセスデータを取込方法 まい 10/11/17(水) 13:07 お礼

14975 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free