זה הקוד שgeneral:

Dim rs As Recordset
Dim db As Database

זה הקוד שב form _LOAD

Set db = OpenDatabase(App.Path & "\Y.mdb")
Set rs = db.OpenRecordset("select * from X", dbOpenDynaset)

כאשר

X שם טבלה

Y שם מסד נתונים

ככה הוספתי רשומה חדשה

rs.AddNew
rs!Z = Text1.Text

rs.Update

Z שם טור במסד נתונים

TEXT1 מה שנכנס לשם

ככה עשיתי חיפוש

rs.FindFirst "H='" & Text1.Text & "'"
Text2.Text = rs!f
Text7.Text = rs!T

-----------------------------------------------------------------------

תראה יש לי במסד נתונים כמה שדות מחיר מספר סרטוט לקוח וכו..

יש נגיד לקוח בשם X מספר סרטוט הוא 1 מחיר 1000

לקוח בשם Y מספר סרטוט 98 מחיר 200

לקוח X מספר סרטוט 96 מחיר 900

אני רוצה להציג מתוך מסד נתונים כמו ברישומון

כאשר אתה מחפש נגיד לקוח זה יציג בטבלה את כול הרשומותץ שהלקוח שלהם זה מה שחיפשת

נגיד הלקוח הוא X וחיפשת X זה יציג לך בטבלה את כל הרשימות שהלקוח שלהם הוא X

במקרה שלנו

X מספר סרטוט 1 מחיר 1000

X מספר סרטוט 96 מחיר 900

את לקוח Y ופרטיו הוא לא יציג

הבנתם?

בלתי אפשרי לקרוא מה שכתבת (נראה כאילו העתקת את זה מפורום אחר...)

עטוף את הקוד שלך בטג קוד (כפתור # למעלה).

(ותיפטר מכל ירידות השורה המיותרות בדרך)

אחי עשיתי מה שביקשת עכשיו אפשר עזרה?

הנה תמונה שתסביר הכולל

http://www.siz.co.il/up.php?file=kmcdyo1jjzkv.jpg