dr_bioman قام بنشر ديسمبر 10, 2021 مشاركة قام بنشر ديسمبر 10, 2021 السلام عليكم لدي نموزج رئيسي اسمه special بداخله نموزج فرعي مستمر اسمه special22 وايضا listbox المطلوب عند الضغط علي الليست بوكس دبل كليك ان يتم اضافة البيانات الي النموزج special22 وهذا مايحدث بالفعل ولكن لا ينتقل محدد السجلات الي السجل الجديد تمهيدا لاضافة بيانات اخري بل احدده انا بنفسي اريد بعد الضغط علي الليست بوكس ان يتم اضافة الببانات وينتقل محدد السجلات الي السجل الجديد تلقائيا تمهيدا لاضافة بيانات اخري وشكرا لحضراتكم add new record.rar رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر ديسمبر 10, 2021 مشاركة قام بنشر ديسمبر 10, 2021 1 ساعه مضت, dr_bioman said: السلام عليكم لدي نموزج رئيسي اسمه special بداخله نموزج فرعي مستمر اسمه special22 وايضا listbox المطلوب عند الضغط علي الليست بوكس دبل كليك ان يتم اضافة البيانات الي النموزج special22 وهذا مايحدث بالفعل ولكن لا ينتقل محدد السجلات الي السجل الجديد تمهيدا لاضافة بيانات اخري بل احدده انا بنفسي اريد بعد الضغط علي الليست بوكس ان يتم اضافة الببانات وينتقل محدد السجلات الي السجل الجديد تلقائيا تمهيدا لاضافة بيانات اخري وشكرا لحضراتكم استخدم هذا الكود ... Dim mydb As Database Dim rs As Recordset Dim rss As Recordset Dim str As String str = " [list] = '" & List20 & "'" Debug.Print List20 Set mydb = CurrentDb Set rs = mydb.OpenRecordset("analysis", dbOpenDynaset) rs.FindFirst str Forms![special]![special22]![Analysis] = rs.Fields(2) Forms![special]![special22]![normal] = rs.Fields(3) Forms![special]![special22]![Tam] = rs.Fields(4) Set rss = mydb.OpenRecordset("special-det") rss.AddNew rss.Update Me.special22.SetFocus SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" رابط هذا التعليق شارك More sharing options...
dr_bioman قام بنشر ديسمبر 10, 2021 الكاتب مشاركة قام بنشر ديسمبر 10, 2021 جزاك الله خيرا. لي سوال اذا تكرمت. ماذا لو كانت الليست بوكس موجوده بنموزج اخر يعني لو عندي زر اضافة تحليل وبالضغط عليه يتم فتح نموزج A ويكون داخله الليست بوكس وعند الضغط مرتين علي عنصر الليست بوكس يتم تنفيذ نفس الكود كيف يمكنني عمل خاصية setfocus للنموزج special22 من خلال نموزج A وكيف يمكن استخدام sendkeys down في هذه الحاله ومعزرة عالاطاله رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر ديسمبر 10, 2021 مشاركة قام بنشر ديسمبر 10, 2021 منذ ساعه, dr_bioman said: جزاك الله خيرا. لي سوال اذا تكرمت. ماذا لو كانت الليست بوكس موجوده بنموزج اخر يعني لو عندي زر اضافة تحليل وبالضغط عليه يتم فتح نموزج A ويكون داخله الليست بوكس وعند الضغط مرتين علي عنصر الليست بوكس يتم تنفيذ نفس الكود كيف يمكنني عمل خاصية setfocus للنموزج special22 من خلال نموزج A وكيف يمكن استخدام sendkeys down في هذه الحاله ومعزرة عالاطاله تريد طريقة الاشارة الى النموذج الفرعي من نموذج اخر .... صحيح .... يتم ذلك بالاشارة الى النموذج الرئسيي ثم الفرعي ثم نقل التركيز اليه Forms![special]!special22.SetFocus رابط هذا التعليق شارك More sharing options...
dr_bioman قام بنشر ديسمبر 10, 2021 الكاتب مشاركة قام بنشر ديسمبر 10, 2021 وكيف يمكن استخدام sendkeys down في هذه الخاله جربت ووضعت Forms! [special]! Special22. Setfocus SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" ولكن لا يعمل الكود بيتم اضافة البيانات ولا ينتقل الي السجل الجديد رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر ديسمبر 10, 2021 مشاركة قام بنشر ديسمبر 10, 2021 (معدل) يا دكتور جرب استبدال الكود تبعك اللى على Listbox بالكود الاتى Dim mydb As dao.Database Dim rs As dao.Recordset Dim rss As dao.Recordset Dim str As String str = " [list] = '" & List20 & "'" Debug.Print List20 Set mydb = CurrentDb Set rs = mydb.OpenRecordset("analysis", dbOpenDynaset) rs.FindFirst str Set rss = mydb.OpenRecordset("special-det") rss.AddNew rss![id] = Me.id rss![Analysis] = rs.Fields(2) rss![normal] = rs.Fields(3) rss![Tam] = rs.Fields(4) rss.Update Me.special22.Requery تم تعديل ديسمبر 10, 2021 بواسطه ابو جودي رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر ديسمبر 10, 2021 مشاركة قام بنشر ديسمبر 10, 2021 38 دقائق مضت, dr_bioman said: بيتم اضافة البيانات ولا ينتقل الي السجل الجديد تفضل مثالك بعد التعديل ... جرب add new record.mdb 1 رابط هذا التعليق شارك More sharing options...
dr_bioman قام بنشر ديسمبر 11, 2021 الكاتب مشاركة قام بنشر ديسمبر 11, 2021 21 ساعات مضت, ناقل said: شكرا اخي ناقل هذا هو المطلوب اخي ابوجودي اشكرك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان