+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Network Login Olma (/konu-network-login-olma.html)
Network Login Olma - covannipacino - 10/02/2020
Merhaba arkadaşlar
Ben ağ ortamında tablodan aldığım kullanıcı adı ve şifre ile bir servera login olup dosya upload yapmak istiyorum.
Şu anda bunu mapli bir drive oluşturarak yapabiliyorum ama kullanıcılar map açıkken dizine girip bütün dosyaları görebiliyorlar. Benim istediğim Access üzerinden sadece tıklanan dokümanın açılmasını sağlamak. Şimdiden teşekkürler.
Cvp: Network Login Olma - ozanakkaya - 10/02/2020
Merhaba, malesef birşey anlamadım. Örnek uygulama ve login olunan sitenin sayfa kaynak kodlarını eklerseniz inceleyip çözüm bulmaya çalışırız.
Cvp: Network Login Olma - covannipacino - 10/02/2020
Hocam merhaba örnek dosyayı hazırlıyorum biraz komplike sistemden ayırmam zor ancak aşağıdaki function la yaptığım işlemi
objNetwork.MapNetworkDrive K: drive olarak yapmaktan ziyade drive maplameden yapmak istiyorum. Dosyayı hazırlayıp en kısa sürede atacağım
Public Function sysdepoac() As String
Dim objNetwork
Dim strDriveLetter
Dim strRemotePath
Dim strUserName
Dim strPassWord
strDriveLetter = Dlookup ("surucu", "domainbilgileri", "ekranno=ekrannom")
strRemotePath = Dlookup ("uzakdizin", "domainbilgileri", "ekranno=ekrannom")
Set objNetwork = CreateObject("WScript.Network")
strUserName = Dlookup ("domainandclientname", "domainbilgileri", "ekranno=ekrannom")
strPassWord = Dlookup ("parola", "domainbilgileri", "ekranno=ekrannom")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, , strUserName, strPassWord
End Function
Public Function sysdepokapa() As String
Dim objNetwork
Dim strDriveLetter
Dim strRemotePath
Dim strUserName
Dim strPassWord
strDriveLetter = Dlookup ("surucu", "domainbilgileri", "ekranno=ekrannom")
strRemotePath = Dlookup ("uzakdizin", "domainbilgileri", "ekranno=ekrannom")
Set objNetwork = CreateObject("WScript.Network")
strUserName = Dlookup ("domainandclientname", "domainbilgileri", "ekranno=ekrannom")
strPassWord = Dlookup ("parola", "domainbilgileri", "ekranno=ekrannom")
objNetwork.RemoveNetworkDrive Dlookup ("surucu", "domainbilgileri", "ekranno=ekrannom")
End Function
Cvp: Network Login Olma - burhanb - 20/02/2020
merhaba.
bekliyoruz.
RE: Network Login Olma - covannipacino - 03/10/2020
Yazdığım koddaki şekliyle oluyor ancak bir sürücü atayıp login olup sonra işleminiz bitince logini kopartıyorsunuz. Verdiğim kodlar çalışıyor ihtiyacı olan kullanabilir.
Ben verileri tablodan alıyorum. Tablodan almadan formda da aşağıdaki şekilde uyarlarsınız.
Ben işlemi dokümanları network ortamında ortak bir alana kopyalamak için kullanıyorum. Programı kullananların ortak alana giriş izinleri yok. Bu sayede login olup kopyalama yapabiliyorlar.
strDriveLetter = "K:"
strRemotePath = "\\192.168.1.1\Test\"
Set objNetwork = CreateObject("WScript.Network")
strUserName = "Ahmet"
strPassWord = "123456Abc"