Sorguyla Userforma Veri Almak

[alitolga2000]

Aşağıdaki yazdığım kodlarla ilgili sayfalara verileri aktarıyorum.
Bunu userform üzerinde yapmak istiyorum,

Kodlar içinde
kapikagidi makrosundaki
sicilno barkod adi soyadi tarih saat1 saat2 (6 şar adet veri oluyor en fazla)
olanların herbiri textboxta gözükecek şekilde
mazeret makrosuda
sicilno barkod adi soyadi mazeretturu tarih (6 şar adet veri oluyor en fazla)
yine herbiri aynı userform üzerinde gözükecek şekilde ayarlayabilirmiyiz?
ama sicilno için textbox1 e girdiğimde iki koduda çalıştırıp tüm textboxlara yazmalı ( verileri yaklaşık 78 adet textboxa yazacak)

kriter olan kısımlarda textboxlarda elle girilip sabit duracak bunlar,
mazeretler.tarih>={d '2012-01-01'
mazeretler.mazeretturu=5
kapikagidi.tarih Between {d '2012-10-15'} And {d '2012-11-15' (2 Ayrı Textbox da)

Sub Mazeret()
With ActiveSheet.QueryTables.Add(Connection:=Array(Arra y( _
"ODBC;DRIVER={PostgreSQL ANSI};DATABASE=pw_pdks;SERVER=172.17.12.254;PORT=5 432;SSLMODE=prefer;UID=postgres;;ReadOnly=0;Protoc ol=6.4;Fa" _
), Array( _
"keOidIndex=0;ShowOidColumn=0;RowVersioning=0;Show SystemTables=0;ConnSettings=;Fetch=100;Socket=8192 ;UnknownSizes=0;MaxVarcharSiz" _
), Array( _
"e=254;MaxLongVarcharSize=8190;Debug=0;CommLog=0;O ptimizer=1;Ksqo=1;UseDeclareFetch=0;TextAsLongVarc har=1;UnknownsAsLongVarchar=0" _
), Array( _
";BoolsAsChar=1;Parse=0;CancelAsFreeStmt=0;ExtraSy sTablePrefixes=dd_;LFConversion=1;UpdatableCursors =0;DisallowPremature=0;TrueIs" _
), Array( _
"Minus1=0;BI=0;ByteaAsLongVarBinary=0;UseServerSid ePrepare=0;LowerCaseIdentifier=0" _
)), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT sicil.sicilno, sicil.barkod, sicil.adi, sicil.soyadi, mazeretler.mazeretturu, mazeretler.tarih" & Chr(13) & "" & Chr(10) & "FROM public.mazeretler mazeretler, public.sicil sicil" & Chr(13) & "" & Chr(10) & "WHERE sicil.idnum = mazeretler.sicilid AND" _
, _
" ((sicil.sicilno =01688 ) AND (mazeretler.mazeretturu=5) AND (mazeretler.tarih>={d '2012-01-01'}))" _
)
.Name = "Sicil-Mazeret"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
Sub kapikagidi()
With ActiveSheet.QueryTables.Add(Connection:=Array(Arra y( _
"ODBC;DRIVER={PostgreSQL ANSI};DATABASE=pw_pdks;SERVER=172.17.12.254;PORT=5 432;SSLMODE=prefer;UID=postgres;;ReadOnly=0;Protoc ol=6.4;Fa" _
), Array( _
"keOidIndex=0;ShowOidColumn=0;RowVersioning=0;Show SystemTables=0;ConnSettings=;Fetch=100;Socket=8192 ;UnknownSizes=0;MaxVarcharSiz" _
), Array( _
"e=254;MaxLongVarcharSize=8190;Debug=0;CommLog=0;O ptimizer=1;Ksqo=1;UseDeclareFetch=0;TextAsLongVarc har=1;UnknownsAsLongVarchar=0" _
), Array( _
";BoolsAsChar=1;Parse=0;CancelAsFreeStmt=0;ExtraSy sTablePrefixes=dd_;LFConversion=1;UpdatableCursors =0;DisallowPremature=0;TrueIs" _
), Array( _
"Minus1=0;BI=0;ByteaAsLongVarBinary=0;UseServerSid ePrepare=0;LowerCaseIdentifier=0" _
)), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT sicil.sicilno, sicil.barkod, sicil.adi, sicil.soyadi, kapikagidi.tarih, kapikagidi.saat1, kapikagidi.saat2" & Chr(13) & "" & Chr(10) & "FROM public.kapikagidi kapikagidi, public.sicil sicil" & Chr(13) & "" & Chr(10) & "WHERE sicil.idnum = kapikagidi" _
, _
".sicilid AND ((sicil.sicilno='01688') AND (kapikagidi.tarih Between {d '2012-10-15'} And {d '2012-11-15'}))" _
)
.Name = "Sicil-KapiKagidi"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub


yardımcı olacak arkadaşlar şimdiden çok teşekkürler.