كيف يمكن فتح النموذج عند العنصر المحدد

السلام عليكم ورحمة الله وبركاته:

اخي العزيز حاولت بصراحة ان اتوصل الى شيء لكن الامكانية ضعيفة جدا بالبرنامج ، والفكرة صراحة عجبتني ، اتمنى من الاعضاء الذين يملكون الامكانية ان يساعدو في هذا البرنامج - وانا على يقين انهم لايقصرون - .

مع التقدير ...

السلام على الجميع هل من احد يرد السلام

ارجو توضيح مثالك بشرح بسيط لكي يتسنى لنى فهم القصد واكون شاكرا لك يااخي f_ajjour

اخي الكريم شكرا على المبادرة الخيرة

الفكرة :

الشجرة عبارة عن عرض كل مستوى من المستويات مصدره جدول "طبعا الجداول مرتبطة ببعضها"

وقد انشات لها نماذج لكل مستوى نموذج خاص به

اريد عند الوقوف على احد المستويات في الشجرة واحد العناصر بها

ان يقوم بفتح النموذج الخاص بالمستوى

ويفتح عند السجل الذي يخص العنصر

مع الشكر الجزيل

فادي

تفضل اخى

ضع هذا الكود فى النموذج و ستحصل على ما تريد

Function Str2Int(ByVal InStrng As Variant) As String
  Dim StrLn As Long
  Dim Cntr As Long
  Dim NewStr As String
  Str2Int = ""
  StrLn = Len(Nz(InStrng))
  If StrLn = 0 Then Exit Function
  NewStr = ""
  For Cntr = 1 To StrLn
    Select Case Mid(InStrng, Cntr, 1)
      Case "0" To "9"
        NewStr = NewStr & Mid(InStrng, Cntr, 1)
    End Select
  Next Cntr
  Str2Int = NewStr
End Function

Private Sub axTreeView_NodeClick(ByVal Node As Object)

Select Case Left(Node.Key, 1)
Case Is = "r"
DoCmd.OpenForm "tbl1", , , "id=" & Str2Int(Node.Key)
Case Is = "o"
DoCmd.OpenForm "tbl2", , , "[رقم]=" & Str2Int(Node.Key)
Case Else
DoCmd.OpenForm "tbl3", , , "hwo3='" & Node.Text & "'"
End Select

End Sub

شكرا اخي ابو يوسف

فعلا هذا هو المطلوب

مشكور كتيير

فادي

اخي ابو يوسف :

هل يمكن فتح النموذج المذكور بزر امر من خارج الشجرة

up

up

بالطبع أخى هذا ممكن

لكن سنحتاج الى بعض التعديلات البسيطة

اضف مربع نص الى النموذج و ليكن اسمه txt يمكنك اخفاؤه

اضف زر امر بأى اسم

هذا الاجراء تم اضافته فى السابق

Private Sub axTreeView_NodeClick(ByVal Node As Object)

Select Case Left(Node.Key, 1)
Case Is = "r"
DoCmd.OpenForm "tbl1", , , "id=" & Str2Int(Node.Key)
Case Is = "o"
DoCmd.OpenForm "tbl2", , , "[رقم]=" & Str2Int(Node.Key)
Case Else
DoCmd.OpenForm "tbl3", , , "hwo3='" & Node.Text & "'"
End Select

End Sub

استبدله بهذا

Private Sub axTreeView_NodeClick(ByVal Node As Object)

If Len(Node.Key & "") > 0 Then
Me.Txt = Node.Key
Else
Me.Txt = Node.Text
End If

End Sub

و فى حدث عند الضغط لزر الامر ضع هذا الكود

Select Case Left(Me.Txt, 1)
Case Is = "r"
DoCmd.OpenForm "tbl1", , , "id=" & Str2Int(Nme.Txt)
Case Is = "o"
DoCmd.OpenForm "tbl2", , , "[ÑÞã]=" & Str2Int(Me.Txt)
Case Else
DoCmd.OpenForm "tbl3", , , "hwo3='" & Me.Txt & "'"
End Select

مشكور اخي ابو يوسف

اتعبتك معي

فادي