26/08/2010, 15:12
Merhaba arkadaşlar.Yapmış olduğum proje ağ üzerinden bir çok kulanıcını kullanmaktayız. Bilgisayarların IP adresleri sabit. Yapmak istediğim aşağıdaki kod ile resim otomatik alınmaktadır. Bunu paylaşıma açılan klasör içerisinden ağ üzerinden nasıl çağırabilirim. Teşekkürler
Private Sub Form_Current()
On Error GoTo Err_Foto
Resim.Picture = ""
Resim.Picture = CurrentProject.Path & "/Resimler/" & Me.TC.Value & ".jpg"
Err_Foto:
If Err.Number = 2220 Then
Resume Next
Else
End If
End Sub
Private Sub Form_Current()
On Error GoTo Err_Foto
Resim.Picture = ""
Resim.Picture = CurrentProject.Path & "/Resimler/" & Me.TC.Value & ".jpg"
Err_Foto:
If Err.Number = 2220 Then
Resume Next
Else
End If
End Sub