Skip to main content

AccessTr.neT


Şifre denetiminde değişken sürücü

Şifre denetiminde değişken sürücü

Çözüldü #7
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
Cevapla
Çözüldü #8
Sn Herdoğan geri bildirim için teşkkürler. Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task