(01/03/2021, 15:36)C*e*l*o*y*c*e yazdı: '" & linesearchtxtbox & "' Bu şekilde metin için kullanılıyor.
" & linesearchtxtbox & " Bu şekilde(tek tırnak yok) ise sayılarda kullanılır.
buna göre düzenleme yapabilirsiniz.
Sayın Atoyken,
C*e*l*o*y*c*e,
Teşekkürler. Dediğiniz uyarlamayı yaptığımda yukarıdaki kod blogum için çalıştı. Ancak farkettim ki bu kod yapısı veri kaynağındaki form altındaki sorguyu tamamen değiştiriyor. Bu nedenle arama amaçlı kullanılması yanlış diye düşünüyorum. Bu kodla arama yapıp formu kapatıp tekrar açan kullanıcı, dataları farklı şekilde son arama kaynağını baz alarak görmüş olacak. Bunu gözden kaçırmışım.
O nedenle arama amaçlı aşağıdaki kodu devreye soktum.
Ancak burada da ilginç bir şekilde. Tek form tipinde bu kod hatasız çalışırken. Bölünmüş formda aynı veri tipindeki(sayı) değişken için "type mismatch" hatası vermekte.
Bunun nedeni nedir yardımcı olabilirseniz sevinirim. Bölünmüş bu formda ' kullanarak string tipinde değeri aratırken ise hata almıyorum.
Private Sub
searchbutton_Click()
On Error GoTo Err_
searchbutton_Click()
Dim stDocName As String
Dim stLinkCriteria As Integer
stDocName = "Form"
stLinkCriteria = "[line]=" & [
linesearchtxtbox]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_
searchbutton_Click:
Exit Sub
Err_
searchbutton_Click:
MsgBox Err.Description
Resume Exit_
searchbutton_Click
End Sub
EDİT: Kod içerisinde geçen aşağıdaki ifadenin tipini string olarak değiştirdiğimde kodum çalıştı. Ancak line alanı integer. Dolayısıyla aşağıdaki yapıyı string yapınca çalışıp integer yaptığımda çalışmama durumunu anlayamadım. Buradaki string tipi farklı bir noktayı mı tanımlıyor acaba?
Dim stLinkCriteria As String