• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Bir klikle SSK e-bildirge girişi.

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Sayın modalı göndermiş olduğunuz dosya saldırı nedeniyle olması lazım silinmiş tekrar gödnerirseniz sevinirim.
 
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_p assword=#####&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


BU KODLARLA ACCESS TE SSK GİRİŞİNİ YAPABİLİRSİNİZ..
 
sgk'dan şifre girmek gerçekten çok zamanımızı alıyor.Acaba buranın da kısayolunu yapabilirmisiniz.

Şimdiden teşekürler
 
Son düzenleme:
//app.ssk.gov.tr/SigortaliTescil/amp/loginldap?j_username=xxxxxxx&isyeri_kod=xxxxxx&j_password=xxxxxxxxx&isyeri_sifre=xxxxxxxxxxx

xxxxxx yazılan yerlere şifrenizi yazmanız yeterli
 
//saglik.ssk.gov.tr/vizite/welcome.do?kullaniciAdi=&isyeriKodu=&sistemSifresi=&isyeriSifresi=

ben bu yoldan gittim hatam nerde
 
<form name="KullaniciLoginForm" method="post" action="/vizite/kullanici_login.do" style="margin: 0px;">
<table width="250" cellspacing="2" cellpadding="2" align="center" class="borderTable">
<tr class="headerRow">
<TD colspan="5" align="left" class="label"><b>Kullanıcı Girişi</b></TD>
</tr>
<tr class="row1">
<td width="110px"><b>Kullanıcı Kodu </b></td>
<td width="5px"><b>:</b></td>
<td><input type="text" name="kullaniciAdi" maxlength="11" value="" style="width:100px;" class="label"></td>
<TD><b>-</b></TD>
<TD><b><input type="text" name="isyeriKodu" maxlength="3" value="" style="width:30px;" class="label"></b></TD>
</tr>

<tr class="row2">
<td width="110px"><b>Sistem Şifresi </b></td>
<td width="5px"><b>:</b></td>
<td colspan="3"><input type="password" name="sistemSifresi" maxlength="10" value="" style="width:100px;" class="label"></td>
</tr>
<tr class="row1">
<td width="110px"><b>İşyeri Şifresi </b></td>
<td width="5px"><b>:</b></td>
<td colspan="3"><input type="password" name="isyeriSifresi" maxlength="10" value="" style="width:100px;" class="label"></td>
</tr>

<tr class="row1">
<TD colspan="6" align="center">
<input type="submit" name="kaydet" value=" Giriş " class="button">
</TD>


burdan başka ne sonuç çıkabilirki
 
Private Sub Form_Current()
Me.İşyeriŞifre.SetFocus
DoCmd.RunCommand acCmdCopy
Me.txtBaglanti = "http://saglik.ssk.gov.tr/vizite/welcome.do?kullaniciAdi=" & Me.TCNO & "&isyeriKodu=" & Me.IşyeriKod & "&sistemSifresi=" & Me.Şifre & "&isyeriSifresi=" & Me.İşyeriŞifre
Me.cmdBaglanti.Hyperlink.Address = Me.txtBaglanti

End Sub

'https://saglik.ssk.gov.tr/vizite/welcome.do?kullaniciAdi=###########&isyeriKodu=###&sistemSifresi=##########&isyeriSifresi=##########

Private Sub Form_Load()
Me.txtBaglanti = "https://saglik.ssk.gov.tr/vizite/welcome.do?kullaniciAdi=" & Me.TCNO & "&isyeriKodu=" & Me.IşyeriKod & "&sistemSifresi=" & Me.Şifre & "&isyeriSifresi=" & Me.İşyeriŞifre
Me.cmdBaglanti.Hyperlink.Address = Me.txtBaglanti
End Sub


Sayın Modalı

Neden bu şekilde çalışmıyor.
 
Private Sub Form_Current()
Me.İşyeriŞifre.SetFocus
DoCmd.RunCommand acCmdCopy
Me.txtBaglanti = "http://saglik.ssk.gov.tr/vizite/welcome.do?kullaniciAdi=" & Me.TCNO & "&isyeriKodu=" & Me.IşyeriKod & "&sistemSifresi=" & Me.Şifre & "&isyeriSifresi=" & Me.İşyeriŞifre
Me.cmdBaglanti.Hyperlink.Address = Me.txtBaglanti

End Sub

'https://saglik.ssk.gov.tr/vizite/welcome.do?kullaniciAdi=###########&isyeriKodu=### &sistemSifresi=##########&isyeriSifresi=####### ###

Private Sub Form_Load()
Me.txtBaglanti = "https://saglik.ssk.gov.tr/vizite/welcome.do?kullaniciAdi=" & Me.TCNO & "&isyeriKodu=" & Me.IşyeriKod & "&sistemSifresi=" & Me.Şifre & "&isyeriSifresi=" & Me.İşyeriŞifre
Me.cmdBaglanti.Hyperlink.Address = Me.txtBaglanti
End Sub



bunun neden çalışmadığını bilen varmıdır..
 
Sn. Mesut GÜNDÜZ ssk e-bildirge girişi programını indiremiyorum

Program varsa elinizde eklerseniz sevinirim. İyi çalışmalar....
 
Merhaba,
VBA bilmiyorum.
Bu sitede yapılan bir çalışma üzerine bir iki ekleme yaptım. SSK ile ilgili e-bildirge, işçi giriş/çıkış, vizite kağıdına aynı menüden ulaşabilirsiniz.
 
Moderatör tarafında düzenlendi:
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst