مشكلة الارتباطات التشعبية

[سمير الجبالي]

أساتذة المنتدى الأفاضل والأعضاء الكرام السلام عليكم ورحمة الله وبركاته

عندي برنامج تم تصميمه على أكسس وهو واجهة مستخدمين موزعة على 6 أجهزة وقاعدة بيانات على السيرفر البرنامج يعمل بشكل نظامي دون مشاكل 

ولكن تم اضافة بأحد الفورمات زر إدراج صورة كارتباط تشعبي من مجلد من السيرفر تم حفظ الصور فيه وزر عرض الصورة . 

المشكلة أنه حين يقوم أحد بإدراج صورة ( كإرتباط تشعبي ) يظهر الارتباط عند الجميع ولكنه لا يعمل إلا من خلال الجهاز الذي تمت من خلاله إدراج هذا الارتباط .

واجهة البرنامج لكل موظف موجودة بالسيرفر أي عندي 6 مجلدات بداخلها واجهة البرنامج الذي تم مشاركته مع الموظفين الستة أي أنه لكل موظف واجهته التي لا يشاركه بها أحد. 

قاعدة البيانات واحدة تم ربطها بالواجهات . مجلد الصور الذي يتم إدراج الصور منه كاراتباط تشعبي بمربع النص المحدد أيضاً مشترك عند الموظفين ؟

وهذا هو الكود للادراج 

Private Sub Command4_Click()
Dim OFN As OPENFILENAME
  On Error GoTo Err_cmdInsertPic_Click

  With OFN
    .lpstrTitle = "صورة"
    If Not IsNull([صورة]) Then .lpstrFile = [صورة]
    .Flags = &H1804
    .lpstrFilter = MakeFilterString("Image files (*.bmp;*.gif;*.jpg;*.wmf)", "*.bmp;*.gif;*.jpg;*.wmf", _
      "All files (*.*)", "*.*")
  End With

  If OpenDialog(OFN) Then
    [صورة] = OFN.lpstrFile
   
    SysCmd acSysCmdSetStatus, "Afbeelding: '" & [صورة] & "'."
  End If
  Exit Sub

Err_cmdInsertPic_Click:
  MsgBox Err.Description, vbExclamation
End Sub

 

 

وهذاكود عرض الصورة والراسلة التي تظهر إذا لم يتم إدراج صورة

Private Sub Command5_Click()
On Error Resume Next
If Not IsNull(Me.صورة) Then
Application.FollowHyperlink Me.صورة
Else
MsgBox "لم يتم إدراج صورة للتأشيرة مرفقة بالمعاملة"
Me.صورة.SetFocus
End If

End Sub

.......

أرجو الإطلاع للمساعدة 

[سمير الجبالي]

هل يوجد نقاط لم أقم بتوضيحها ؟؟؟؟؟