الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

هل يمكن عمل نموذج جديد بالكود

بدأه الفيلسوف111 في 11 ديسمبر 2008 · 1 رد · 465 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

كل عام وانتـــــــــــــــــــــــــــــــــــــــــــــم بخير بمناسبة عيد الاضحى المبارك

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

وشكـــــــــــــــــــــرا ...................... :blush: اكسس 2003

تم تعديل هذه المشاركة بواسطة الفيلسوف111 في 11 ديسمبر 2008 في 17:43

طارق العيد

#2
	  Function ClickEventProcForm()
		 Dim frm As Form, ctl As Control, mdl As Module
		 Dim lngReturn As Long
		 On Error GoTo Error_ClickEventProcForm
		 Set frm = CreateForm
		 Set ctl = CreateControl(frm.Name, acCommandButton, , , , 1000, _
			1000)
		 ctl.Caption = "Click here"
		 Set mdl = frm.Module
		 lngReturn = mdl.CreateEventProc("Click", ctl.Name)
		 mdl.InsertLines lngReturn + 1, vbTab & "MsgBox ""Way cool!"""
		 DoCmd.Close acForm, frm.Name, acSaveYes
		 ClickEventProcForm = True
	  Exit_ClickEventProcForm:
		 Exit Function
	  Error_ClickEventProcForm:
		 MsgBox Err & " :" & Err.Description
		 ClickEventProcForm = False
		 Resume Exit_ClickEventProcForm
	  End Function

http://support.microsoft.com/kb/159690/ar

طارق العيد

مواضيع مشابهة