|
▼ichinose さん みなさん、こんばんは
要領の悪い質問に、親切に回答いただきましてありがとうございます
>>の全部が分からない訳ではないんでしょ。
>>自分で書いたコードを提示して、
>>どこが分からないのかを書きましょう。
と言っていただけたので、ichinoseさんや皆さんのアドバイスを参考にコードを作成してみました
シート”工番"にComboBox1を配置した形でやってみました
<標準モジュールで>
Public 検索キー As Variant
Public TDB2 As DB1
Public intFF As Integer
Public maxR As Long
Const PA = "C:\Documents and Settings\xxxx\デスクトップ\接続TEST\TDB2"
Public i As Integer, RC As Long, j As Integer, C As Integer
Public Type DB1
工事番号 As String * 5
工番2 As String * 2
発注者 As String * 36
工期1 As String * 10
工期2 As String * 10
工事名 As String * 60
工事場所 As String * 100
請負金額 As String * 12
請負消費税 As String * 8
申請部署 As String * 2
現場代理人 As String * 20
申請日 As String * 10
先方担当 As String * 16
当社担当 As String * 16
前払金 As String * 10
契約日 As String * 8
契約No As String * 20
条件 As String * 60
特記事項1 As String * 60
特記事項2 As String * 60
削除FLG As String * 2
End Type
Sub READ_DB1()
intFF = FreeFile
i = 1
Open PA For Random As intFF Len = Len(TDB2)
maxR = LOF(intFF) / Len(TDB2)
Do While maxR + 1 > i
Get #intFF, i, TDB2
If TDB2.削除FLG <> "" Then
With Worksheets("工番").OLEObjects("ComboBox1").Object
.AddItem TDB2.工事番号
.List(i - 1, 1) = TDB2.工番2
End With
End If
i = i + 1
Loop
Close #intFF
End Sub
で、なんとかいけました
どうもありがとうございました
|
|