املاء فورم من فورم اخرى

وعليكــم السـلام ورحمة الله وبركاتـه..

أخي المشكلة في هذا الكود في النموذج out

Private Sub Form_Current()
If Me.PLACE <> "" Then
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "place"
End If
End Sub

وهو كما تلاحظ يجبر النموذج على الانتقال فوراً إلى سجل جديد، مادام السجل الحالي يحوي اسماً... هذا يعني أنك لا تستطيع الوقوف عند أي سجل غير خالي، سواء فتحت النموذج الثاني أو لا...

حل ممكن هو أن تتخلص من هذا الحدث، وأن تعدل حدث النقر المزدوج في النموذج in ليصبح:

Private Sub PLACE_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdSaveRecord
Forms!out.Recordset.AddNew
Forms!out.PLACE.SetFocus
Forms!out.PLACE = Me.PLACE
Forms!out.Requery
End Sub

مرفق الملف بعد التعديل...

أخوك أحمد.

2_FORMS_.rar

السلام عليكــم ورحمـة الله وبركاتــه ،،

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

بالتوفيق للجميع

2_FORMS_.rar

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــه ،،

رحم الله والديكم على المشاركة و المساعدة

لكن لدي سؤال هو كيف يمكنني عمل نفس العمل لكن يتم الاضافة الى سوب فورم من فورم مستقلة(اقصد نفس العمل لكن يتم ملء سوب فورم و طبعا هذه السوب فورم مرتبطة بفورم )

يتم الاضافة الى سوب فورم بدل الفورم

لاني حقيقة لم استطيع الاملاء بهذه الطريقة

و رحم الله والديكم دنيا و اخرة

بســم الله الـرحمــن الرحيــم

اخواني و اخواتي

يا ريت تساعدوني في حل هذه المشكلة التي طالما ارقتني

و هي كيفية اضافة بيانات من فورم مستقلة الى سوب فورم مرتبطة بفورم اخرى

و هي كما في مثال السيد يوسف احمد مشكورا لكن بدل اضافة البيانات الى فورم اردت ان اضيفها الى سوب فورم

و رحم الله والديكم دنيا و اخرة

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــه ،،

اخواني ما في طريقة تمكنني من اضافة من فورم مستقلة الى سوب فورم اخرى تكون مرتبطة بفورم رئيسية؟؟؟؟

(عند فتح السوب فورم و الفورم المرتبطة بها هناك زر امر عند الضغط عليه يفتح فورم اخرى و عند الاختيار من ذلك الفورم يتم تنزيل البيانات الى السوب فورم)

يا ريت المساعدة

و رحم الله والديكم دنيا و اخرة

وعليكــم السـلام ورحمة الله وبركاتـه..

أخي الكريم، هذا مثال يوضح إضافة مادة إلى تفاصيل طلبية، من نموذج مستقل، أرجو الاطلاع على الملف المرفق، مع العلم بأن كل الكود الذي يقوم بالعملية هو التالي (في النموذج frmLookupProducts):

Private Sub ProductID_DblClick(Cancel As Integer)
	Dim frm As Form

	If CurrentProject.AllForms("frmOrders").IsLoaded Then
		Set frm = Forms("frmOrders")

		With frm.frmSubOrderDetails.Form.Recordset
			.AddNew
			.OrderID = frm.OrderID
			.ProductID = Me.ProductID
			.UnitPrice = Me.UnitPrice
			.Update
		End With
	End If

	Set frm = Nothing
End Sub

أرجو أن تستفيد من المثال...

AddToSubForm.rar