Tür Uyuşmazlığı Hatası

merhaba arkadaşlar yardımcı olur musunuz, bu hatanın ne demek olduğunu biliyorum ama acaba dikkatimden kaçan bir şey mi var,"ekle" adlı fonksiyona değerler gönderiyorum, tam olarak gönderme satırında "dgr0" ı göstererek hata veriyor, dosya ekte, işlemler " ANAFORM" da .....

Private Sub btnEkle_Click()



If cmb2 = "KISILER" Then

dgr0 = Me.mtn1 'kisi_kodu
dgr1 = Me.mtn2 'adi_soyadi
dgr2 = Me.cmb1 'departman
dgr3 = Me.mtn3 'sifre
dgr4 = Me.mtn4 'telefon
dgr5 = "KISILER"
dgr6 = "[kisi_kodu]"
dgr7 = "KISILER_EGITIMLER"
dgr8 = "[kisiler_id]"
dgr9 = "[egitimler_id]"

'buraya kişiler alt formunu başlatan kod yazılacak





durum = ekle(dgr0, dgr1, dgr2, dgr3, dgr4, dgr5, dgr6, dgr7, dgr8, dgr9)

End If
End Sub

Merhaba.Koddaki gibi ByVal olarak yazın diğerlerinide.

Function ekle(Optional ByVal dgr0 As String = ""

(19/10/2020, 10:12)feraz yazdı: Merhaba.Koddaki gibi ByVal olarak yazın diğerlerinide.

Function ekle(Optional ByVal dgr0 As String = ""

tamam oldu teşekkürler, yalnız bu referans aktarma ve değer aktarma olayı hakkında kısa bi bilgi verebilir misiniz, kısacık, mesela hangi durumlarda hangi modeli kullanmalıyız, ya da neyse ben intten araştırayım, tekrar teşekkürler

(19/10/2020, 13:26)tarkanaykın yazdı:

(19/10/2020, 10:12)feraz yazdı: Merhaba.Koddaki gibi ByVal olarak yazın diğerlerinide.

Function ekle(Optional ByVal dgr0 As String = ""

tamam oldu teşekkürler, yalnız bu referans aktarma ve değer aktarma olayı hakkında kısa bi bilgi verebilir misiniz, kısacık, mesela hangi durumlarda hangi modeli kullanmalıyız, ya da neyse ben intten araştırayım, tekrar teşekkürler

Byref ve byval olayı karışık biraz.
Eğer hata mesajında byref diye çıkarsa byval olrak ekleyin Byval eklenmezse stabdart olarak byref olur sizin ekteki gibi.
Bir video atarım bunlarla ilgili Tr kaynaklarda vardı.
Rica ederim.

Mesela videolardan biri bu.

Buda ikinci sanırım bunda tam anlarsınuz bende ilk defa izledim Lakin farkını biliyorum ama nasıl anlatılır bilemiyorum.

https://youtu.be/VoCaJYdajF4