İşe yaradı hocam,
Diğer şartlar içi çalışmaya devam ediyorum, umarım bitecek
Access Sorgusunda Alan Adı Değişkeni
@feraz hocam between olayında tarihleri textlere yazınca filtreleme yapıyor, ancak yazdığım tarihi silerken Excel donup kalıyor.
Nerde yanlış yapıyor olabilirim.
Sub filtre()
Dim secim As String
Dim secim2 As String
Dim alan As String
On Error Resume Next
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\Database.accdb"
If ComboBox14.Value = "Başlama Zamanı" Then
alan = "BaslamaZamani"
ElseIf ComboBox14.Value = "Bitiş Zamanı" Then
alan = "BitisZamani"
ElseIf ComboBox14.Value = "Hatırlatma Zamanı" Then
alan = "HatirlatmaZamani"
End If
secim = Format(TextBox10.Value, "dd.mm.yyyy")
secim2 = Format(TextBox11.Value, "dd.mm.yyyy")
'..................Tarih Fitreleri.................................................
If ComboBox15.Value = "Eşittir" Then
rs.Open "select*from Ajandam WHERE int([" & alan & "]) =" & CDbl(CDate(secim)) & "", baglan, 1, 1
ElseIf ComboBox15.Value = "Arasında" Then
rs.Open "select*from Ajandam WHERE int([" & alan & "]) between " & CDbl(CDate(secim)) & " and " & CDbl(CDate(secim2)) & "", baglan, 1, 1
End If
With ListView1
.ListItems.Clear
If rs.RecordCount > 0 Then
Do While Not rs.EOF
.ListItems.Add , , rs(0).Value & ""
For i = 1 To rs.Fields.Count - 1
.ListItems(.ListItems.Count).ListSubItems.Add , , rs(i).Value & ""
Next i
rs.MoveNext
Loop
End If
End With
Set rs = Nothing
Set con = Nothing
End Sub
On error resume next bunu silin kod nerde hata veriyorsa resim atın hata mesajıyla.
Ayrıca koddaki int yerine clng yada cdbl ile değiştirin bence.
Ayrıca berduş hocanın Fix yöntemini uygularsanız bence daha iyi olur.
Ayrıca koddaki int yerine clng yada cdbl ile değiştirin bence.
Ayrıca berduş hocanın Fix yöntemini uygularsanız bence daha iyi olur.
(28/06/2020, 18:56)feraz yazdı: On error resume next bunu silin kod nerde hata veriyorsa resim atın hata mesajıyla.Hocam bilgisayar basina gecince deneyecegim. Alicimri hocam önermişti denemek istedim.
Ayrıca koddaki int yerine clng yada cdbl ile değiştirin bence.
Ayrıca berduş hocanın Fix yöntemini uygularsanız bence daha iyi olur.
(28/06/2020, 22:04)kanakan52 yazdı:(28/06/2020, 18:56)feraz yazdı: On error resume next bunu silin kod nerde hata veriyorsa resim atın hata mesajıyla.Hocam bilgisayar basina gecince deneyecegim. Alicimri hocam önermişti denemek istedim.
Ayrıca koddaki int yerine clng yada cdbl ile değiştirin bence.
Ayrıca berduş hocanın Fix yöntemini uygularsanız bence daha iyi olur.
Zafer hocam, fix dahil birçok yöntem denedim ama enteresandır tarih yazarken sorun yok ama silerken Excel yanıt vermeyip kapanıyor.
Dosyayı ekleyin halledelim,açıklamada ekleyin
Konuyu Okuyanlar: 1 Ziyaretçi