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

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

كيف استطيع تغير خصائص الكومبو بوكس كالخط مثلا

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

تم حل المشكلة

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

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

رقم الحساب الفرعي

ارسل ملف به جدول ال accountsub   فقط وبدون بيانات !! موافق ؟؟

Database6.rar

وبعد ما اكتشفت انى برد على الموضوع دا فى موضوع تانى ههههههههههه زهامر وكدا

 

اتمنى من الاخ السيد رقم رسالة الخطأ او صورة ليها يكون احسن

 

 

وشكرا لك

اخى الكريم هو ايه نوع الكائن دا accountsub

جدول ولا استعلام ولا جدول مربوط SQL

ارجو التوضيح

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

ما هو الخطأ فى هذا الكود

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]

السلام عليكم 

 

انا كذلك جربت مرفق الاخ السيد الجوهري وكله تمام 

 

انا عملت كود ثاني اللي ممكن نجربه وهو:

    Set rst = Forms!Form1![Table1 subform].Form.Recordset
    rst.FindFirst "[id]=" & Me.Text0
    DoCmd.Close acForm, "Form2"
   

جعفر

شكرا  جزيلا  على المساعدة  والمرور الطيب من الجميع

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

عموما الشكر موصول للجميع

لدي تمام اخي سيد .

ممكن ترفق الملف بعد تطبيق الكود !

تحياتي

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

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

شكرا    على المجهود  

Private Sub Command5_Click()
x = Text0
DoCmd.Close
Forms![Form1]![Table1 subform].SetFocus
DoCmd.SearchForRecord acActiveDataObject, , acFirst, "id=" & x
End Sub

شكرا استاذ رمهان 

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

الاستاذ السيد الجوهري

 

مما لاشك ان اسئلة تاتي بحجمكم العلمي لا تكون سهلة . 

 

الآن لدي اقتراح وافقتني عليه اوكي لم توافقني ستجد ما تريد باذن الله :

 

1. ما رايك ان يكتب البحث في مربع البحث الافتراضي للنموذج الفرعي والموجود مع ازرار التنقل

 

2. مارايك ان يكون مربع في النموذج الرئيسي او مربع تحرير وسرد وليس مربعا في نموذج جديد ومستقل

 

 

 

تحياتي

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

لدي  نموذج  Form1  علية زر بحث    

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

ما اريدة عند كتابة Id   الموجودة داخل  Form1     يتم نقل التركيز  الى الرقم الذى تم كتابتة  فى مربع النص

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

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

شكرا    لك