اضافة سجل جديد للنمازج المستمره

[dr_bioman]

السلام عليكم

لدي نموزج رئيسي اسمه special

بداخله نموزج فرعي مستمر اسمه special22

وايضا listbox

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

اريد بعد الضغط علي الليست بوكس ان يتم اضافة الببانات وينتقل محدد السجلات الي السجل الجديد تلقائيا تمهيدا لاضافة بيانات اخري

وشكرا لحضراتكم

add new record.rar

[ناقل]

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}"

 

[dr_bioman]

جزاك الله خيرا. 

لي سوال اذا تكرمت. 

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

يعني لو عندي زر اضافة تحليل وبالضغط عليه يتم فتح نموزج A ويكون داخله الليست بوكس

وعند الضغط مرتين علي عنصر الليست بوكس يتم تنفيذ نفس الكود

كيف يمكنني عمل خاصية setfocus للنموزج special22 من خلال نموزج A

وكيف يمكن استخدام sendkeys down في هذه الحاله

ومعزرة عالاطاله

[ناقل]

منذ ساعه, dr_bioman said:

جزاك الله خيرا. 

لي سوال اذا تكرمت. 

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

يعني لو عندي زر اضافة تحليل وبالضغط عليه يتم فتح نموزج A ويكون داخله الليست بوكس

وعند الضغط مرتين علي عنصر الليست بوكس يتم تنفيذ نفس الكود

كيف يمكنني عمل خاصية setfocus للنموزج special22 من خلال نموزج A

وكيف يمكن استخدام sendkeys down في هذه الحاله

ومعزرة عالاطاله

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

Forms![special]!special22.SetFocus

 

[dr_bioman]

وكيف يمكن استخدام sendkeys down في هذه الخاله

جربت ووضعت

Forms! [special]! Special22. Setfocus
   SendKeys "{DOWN}"
   SendKeys "{DOWN}"
   SendKeys "{DOWN}"
   SendKeys "{DOWN}" ولكن لا يعمل الكود

بيتم اضافة البيانات ولا ينتقل الي السجل الجديد 

 

 

[ابو جودي]

يا دكتور جرب استبدال الكود تبعك اللى على 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 بواسطه ابو جودي

[ناقل]

38 دقائق مضت, dr_bioman said:

بيتم اضافة البيانات ولا ينتقل الي السجل الجديد 

 

تفضل مثالك بعد التعديل ... جرب 

 

add new record.mdb

[dr_bioman]

21 ساعات مضت, ناقل said:

شكرا اخي ناقل هذا هو المطلوب

اخي ابوجودي اشكرك