السيد الجوهرى

حاول ان تبحث ستجد ما يسرك

كيف استطيع تغير خصائص الكومبو بوكس كالخط مثلا وكيف يمكن تمكين الكتابة بداخلة حيث عند كتابة اول حرف يظهر الاسم

تم حل المشكلة شكرا لكل من تفاعل

On Error Resume Next Dim dbs As Database Dim rst As Recordset Dim nodX As Node Set dbs = CurrentDb Set rst = dbs.OpenRecordset("accountsub", dbOpenDynaset) Set nodX = TreeView0.Nodes.Add(, , "A", "دليل الحسابات") With rst Do While Not .EOF Set nodX = TreeView0.Nodes.Add("A" & CStr(Nz(!no_account)), tvwChild, "A" & CStr(!no_subaccount), CStr(!no_subaccount) & ":" & !name_subaccount) nodX.EnsureVisible .MoveNext Loop End With rst.Close Set dbs = Nothing For Each nodX In TreeView0.Nodes nodX.Expanded = False nodX.Sorted = True Next

هذة صورا توضح حقيقة المشكلة

السؤال هو ان عند التعديل بالجدول الذي تقراء منة الشجرة لم يتم التعديل بالشجرة نفسها على سبيل المثال تم التعديل بالجدول من محمد الى احمد وبالتالي عند فتح الشجرة لابد ان يكون احمد الذي يحدث غير ذلك ولا يتم التعديل بالشجرة هل من حل عند تعديل البيانات بالجدول يتم تعديلها تلقائيا عند فتح الشجرة وشكرا لكم

مجهود جيد استاذ عبدالله الى الامام دائما

جهد مشكور علية

فغلا تم تغيير نوع حقل المتاح الاساسي دون حذف اى اعمدة وبناء علية اشتغل الاستعلام بطريقة جيدة

اعتقد ان المشكلة فى الاعمدة accno accname عند حذف تلك الاعمدة يعمل البحث بشكل صحيح

شكرا على جهدك الطيب استاذ رمهان no_subaccount رقم الحساب الفرعي

Database6.rar

جدول اخى الكريم

ما هو الخطأ فى هذا الكود Private Sub Command37_Click() Command20.Enabled = True ''''ßæÏ ÇáÈÍË If IsNull(Me![Txtserch]) = True Then MsgBox " ÃÏÎá ÑÞã ÇáÍÓÇÈ" & " [ " & " !!! " & " ] " & "ÝÇÑÛ", vbCritical, "ÊäÈíå" Txtserch.SetFocus Exit Sub End If If IsNull(Txtserch) Then Exit Sub Dim db As Database, rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("accountsub") rs.Index = "PrimaryKey" rs.Seek "=", Txtserch.Value If rs.NoMatch Then Beep MsgBox " åÐÇ ÇáÍÓÇÈ ÛíÑ ãæÌæÏ ÈÏáíá ÇáÍÓÇÈÇÊ", , "ÇáãÈÑãÌ" ElseIf Not rs.NoMatch Then txt1 = rs!no_subaccount txt2 = rs!name_subaccount Txt3 = rs!no_account Txt4 = rs!name_account Text103 = rs!noacc Text102 = rs!accname Text49 = rs!emil Text41 = rs!telno Text42 = rs!adresse Text45 = rs!fax Chaa = rs!acc text5 = rs!nama_account End If Txtserch.SetFocus Txtserch = "" End Sub [attachment=93944:U8888ntitled.jpg]