- Katılım
- 19 Ekim 2007
- Mesajlar
- 83
- Excel Vers. ve Dili
- excell 2003,access 2003,visual basic 6.0
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
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