Makro Kodundaki Tarihi Textboxtan Nasıl Alır

[cavanoos]

Merhaba arkadaşlar;

Alttaki kodda veritabanına bağlanıp liste çekiyorum.Kodun içindeki tarih kısımlarını,bir userform oluşturup içine 2 adet textbox koysam,textboxa yazdığım tarihleri kodun içindeki yerine gelmesini,nasıl sağlarız.

Yardım edebilir misiniz ?

Sub Makro5()
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DRIVER=SQL Server;SERVER=SERVER\SQL2008;UID=Uuu;pwd=cava;APP=2007 Microsoft Office system;WSID=SERVER;DATABASE=OPEN" _
, Destination:=Range("$I$10")).QueryTable
.CommandText = Array( _
"SELECT tbPersonel.nPersonelID AS 'Personel ID', tbPersonel.sAdi AS 'Adı', tbPersonel.sSoyadi AS 'Soyadı', tbBordroFirmaDepartman.sAciklama AS 'Mağaza', tbPersonel.dteIseGirisTarihi AS 'Giriş Tarihi'" & Chr(13) & "" & Chr(10) & "" _
, _
"FROM OPEN.dbo.tbBordroFirmaDepartman tbBordroFirmaDepartman, OPEN.dbo.tbPersonel tbPersonel" & Chr(13) & "" & Chr(10) & "WHERE tbPersonel.sDepartmanKodu = tbBordroFirmaDepartman.sDepartmanKodu AND ((tbPersonel.dteIseGiri" _
, _
"sTarihi Between {ts '2012-01-01 00:00:00'} And {ts '2012-01-31 00:00:00'}) AND (tbBordroFirmaDepartman.sTelefon3='MAĞAZA'))" _
)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tablo_İşe_Başlayan_Personeller"
.Refresh BackgroundQuery:=False
End With
End Sub

 

[Taruz]

Merhaba...

Değişkenlerin (metin kutuları) biçimini sql server'ın istediği gibi yıl/ay/gün formatına dönüştürerek sql deyiminizin içerisine yerleştirebilirsiniz..:

.CommandText = Array("SELECT nPersonelID AS 'Personel ID', sAdi AS 'Adı', sSoyadi AS 'Soyadı', sAciklama AS 'Mağaza', dteIseGirisTarihi AS 'Giriş Tarihi'" _
& " FROM OPEN.dbo.tbBordroFirmaDepartman tbBordroFirmaDepartman, OPEN.dbo.tbPersonel tbPersonel" & Chr(13) & "" & Chr(10) & "WHERE tbPersonel.sDepartmanKodu = tbBordroFirmaDepartman.sDepartmanKodu AND " _
& " dteIseGirisTarihi Between [B][COLOR="Red"]'" & Format(Textbox1Adi, "yyyy/mm/dd") & "'[/COLOR][/B] And [B][COLOR="red"]'" & Format(Textbox2Adi, "yyyy/mm/dd") & "'[/COLOR][/B] AND sTelefon3='MAĞAZA'")

 

[cavanoos]

Sayın Taruz;

Teşekkür ederim.Sorunum çözülmüştür.Saolun...