işaretlediğim yerde hata veriyor çözemedim

[Mesut Gündüz]

Option Compare Database



Private Sub cmdBaglanti_Click()

End Sub

Private Sub Form_Current()
Me.İşyeriŞifre.SetFocus
DoCmd.RunCommand acCmdCopy
Me.txtBaglanti = "http://ebildirge.ssk.gov.tr/WPEB/amp/loginldap?j_username=" & Me.TCNO & "&isyeri_kod=" & Me.IşyeriKod & "&j_password=" & Me.Şifre & "&isyeri_sifre=" & Me.İşyeriŞifre
Me.cmdBaglanti.Hyperlink.Address = Me.txtBaglanti

End Sub

'https://ebildirge.ssk.gov.tr/WPEB/amp/loginldap?j_username=###########&isyeri_kod=##&j_password=#####&isyeri_sifre=#####

Private Sub Form_Load()
Me.txtBaglanti = "https://ebildirge.ssk.gov.tr/WPEB/amp/loginldap?j_username=" & Me.TCNO & "&isyeri_kod=" & Me.IşyeriKod & "&j_password=" & Me.Şifre & "&isyeri_sifre=" & Me.İşyeriŞifre
Me.cmdBaglanti.Hyperlink.Address = Me.txtBaglanti
End Sub

 

[Mesut Gündüz]

dosya ekledim

doya ekledim

 

[Taruz]

Merhaba..

Kopyala komutunu veri olmayan alanlara uygulamak istediğiniz için bu htayı alıyorsunuz..

Aşağıdaki yapıya benzer bir düzenek oluşturursanız sorunu aşarsınız..:

If IsNull(Me.İşyeriŞifre) Then
Me.İşyeriŞifre = "Şifre yok"
Else
Me.İşyeriŞifre.SetFocus
DoCmd.RunCommand acCmdCopy
Me.txtBaglanti = "bağlantı adresi" & Me.TCNO & "&isyeri_kod=" & Me.IşyeriKod & "&j_password=" & Me.Şifre & "&isyeri_sifre=" & Me.İşyeriŞifre
Me.cmdBaglanti.Hyperlink.Address = Me.txtBaglanti
End If