Merhabalar. Bir tablomla ilişkili alt tablom mevcut. Liste kutusunda müşteri listesine tıkladığımda ilgili formu açmasını istiyorum. Bunun kod satırında veri türlerine takıldım.

Müşteri Listesi tablosu ile işlem kayıt tablosu ilişkili. Otomatik numara ve isim soyisim ile. Sıra numarası benzersiz olduğu için bu şekilde düşündüm. İşlem kayıt tablosundaki isim kısmının türünü sayı yaptım ki ilişkide sorun olmasın ve listedeki 2. kişinin kaydı şeklinde olarak görünsün diye.  Ancak liste kutusunda çift tıklama olayına

Private Sub LST_CARI_LISTESI_DblClick(Cancel As Integer)

DoCmd.OpenForm "MUSTERI_ISLEMLER", , , "[MUSTERI_ADI]='" & Me.LST_CARI_LISTESI.Column(1) & "'"

End Sub

yazdığımda integer olduğundan dolayı hata alıyorum. Bu kod satırında nasıl bir değişiklikle hata almayı önlerim. Umarım anlatabilmişimdir, karıştı biraz.
Şimdiden teşekkürü bir borç bilirim.

Hocam örnek koysaydınız kendim uyguladığım bir kodu deneme fırsatım olurdu. Ancak eklemediğiniz için benim taslağımda uyguladığım kodu paylaşıyorum. Umarım istediğinize ulaşırsınız. 

Dim acilacak_form As String
Dim kriter As String
   
acilacak_form = "AÇILACAKFORMADINIYAZIN"
kriter = "[Kimlik]=" & Me![LİSTEADINIYAZIN]
   
DoCmd.OpenForm acilacak_form, , , kriter
 
‘EĞER FARKLI BİR FORMA GEÇİLECEKSE ALTTAKİ KODU EKLEYİN.
‘DoCmd.Close acForm, "KAPATILACAKFORMADINIYAZIN"

(14/09/2022, 21:59)aydin5353 yazdı: Hocam örnek koysaydınız kendim uyguladığım bir kodu deneme fırsatım olurdu. Ancak eklemediğiniz için benim taslağımda uyguladığım kodu paylaşıyorum. Umarım istediğinize ulaşırsınız. 

Dim acilacak_form As String
Dim kriter As String
   
acilacak_form = "AÇILACAKFORMADINIYAZIN"
kriter = "[Kimlik]=" & Me![LİSTEADINIYAZIN]
   
DoCmd.OpenForm acilacak_form, , , kriter
 
‘EĞER FARKLI BİR FORMA GEÇİLECEKSE ALTTAKİ KODU EKLEYİN.
‘DoCmd.Close acForm, "KAPATILACAKFORMADINIYAZIN"

Buradaki problemim maalesef 2 farklı veri türünü ilişkilendirebilmekti. Ancak bunu yapamadığım için bende gereksiz bir şekilde sıra numaraları ile isimleri eşitleyip ilişkilendirmede bunları kullandım. Değerli cevabınız için teşekkür ederim. Bunu da deneyeceğim, size sonucu yazayım.

(14/09/2022, 20:39)farukozgursoy yazdı:

Private Sub LST_CARI_LISTESI_DblClick(Cancel As Integer)

DoCmd.OpenForm "MUSTERI_ISLEMLER", , , "[MUSTERI_ADI]='" & Me.LST_CARI_LISTESI.Column(1) & "'"

End Sub

yazdığımda integer olduğundan dolayı hata alıyorum. Bu kod satırında nasıl bir değişiklikle hata almayı önlerim. Umarım anlatabilmişimdir, karıştı biraz.
Şimdiden teşekkürü bir borç bilirim.

eger
DoCmd.OpenForm "MUSTERI_ISLEMLER", , , "[MUSTERI_ADI]='" & Me.LST_CARI_LISTESI.Column(1) & "'"
alan sayı ise
'" & Me.LST_CARI_LISTESI.Column(1) & "' burayı
" & Me.LST_CARI_LISTESI.Column(1) & "
şekilde (tek tırnagı kaldırıp) deneyin

Teşekkür ederim