+- 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ığı: Şifre denetiminde değişken sürücü (/konu-sifre-denetiminde-degisken-surucu.html)
Sayfalar:
1
2
Cvp: Şifre denetiminde değişken sürücü - herdogan - 27/02/2010
Sayın benremix;
sorum şu şekilde çözülmüştür
Dim BB As String
aa = CurrentProject.Path
BB = left(aa, 1)
Dim fso As Object
Dim drv As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If BB = "C" Then
Set drv = fso.drives.Item("c")
ElseIf BB = "D" Then
Set drv = fso.drives.Item("D")
ElseIf BB = "E" Then
Set drv = fso.drives.Item("E")
ElseIf BB = "F" Then
Set drv = fso.drives.Item("f")
ElseIf BB = "G" Then
Set drv = fso.drives.Item("G")
ElseIf BB = "I" Then
Set drv = fso.drives.Item("I")
ElseIf BB = "H" Then
Set drv = fso.drives.Item("H")
ElseIf BB = "H" Then
Set drv = fso.drives.Item("H")
End If
Cvp: Şifre denetiminde değişken sürücü - benremix - 27/02/2010
Sn Herdoğan geri bildirim için teşkkürler. Saygılar...