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

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

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

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

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]

شكرا جزيلا على المساعدة والمرور الطيب من الجميع هذا الكود اشتغل ولا ادري لماذا كود الاستاذ \ رمهان لم يعمل معي رغم انى غيرت جهاز الكمبيوتر عموما الشكر موصول للجميع

1-نقل التركيز.rar

عند كتابة الرقم لم ينقلي الى ما اريد بل يقف عند الرقم 1 شكرا على المجهود

شكرا استاذ رمهان هذا الكود ينقلنى الى السجل الاول فقط بغض النظر عن رقم السجل

شكرا اخي رمهان على مرورك الطيب بالطبع افكار جيدة هى بالفعل مطبقة على برنامجى لكن اريد وضع مزيد من الاحترافية على برنامجى وتكون طريقة البحث داخل نموذج قيود اليومية طريقة مميزة

لدي نموذج Form1 علية زر بحث عند الضغط على زر بحث يفتح نموذج أخر Form2 بداخلة مربع نص وزر بحث ما اريدة عند كتابة Id الموجودة داخل Form1 يتم نقل التركيز الى الرقم الذى تم كتابتة فى مربع النص نقل التركيز.rar

كيف يمكن حذف السطر الفارغ فى النموذج الفرعى المرتبط بنموذج رئيسي

شكرا لك