كيف اجعل الزر ينفذ الامر الذي في الحقل

اخي الفاضل

نصيحه لوجه الله حاول دائما تكتب تسميات الأوامر باللغة الإنجليزية حتى لا تتعذب في كتابة الأكواد الخاصة بها .

تم تعديل مسميات جميع الأوامر في النموذج والحقول في الجدول الى تسميات انجليزية

تم حل المشكلة الخاصة بك

حاول تطلع على الأكواد في محرر الفيجول بيسك

zaOpenCommand.rar

السلام عليكم

بعد اذن أختي واستاذتي الفاضلة زهرة أظن انه يريد ان ينفذ الكود المخزن في الجدول والله أعلم

أذا كان هذا طلبك

أضف مودل جديد وضع هذا الكود داخله

Private Const THISGUID = "d3552bc4-fc8b-4e7d-8c0e-84902975e8cd"
Private Property Get ThisModuleName() As String
  For i = 0 To Modules.Count - 1
	 Set mdl = Modules(i)
	 If mdl.Find(THISGUID, 1, 1, -1, -1) Then
		ThisModuleName = mdl.Name
		Exit For
	 End If
  Next
End Property

Public Sub AMHD3552BC4_RunMyCode(lpVBCode As String)
On Error GoTo Err_Handler
Dim MdlName As String
Dim ModuleNameCheked As Integer
'put the Module Name here
MdlName = "Module1"
Dim ProcName As String
ProcName = "AMHD3552BC4_TempProc"
Dim mdl As Module
Set mdl = Modules.Item(MdlName)
ModuleNameCheked = 1
Dim ProcStart As Long, ProcLineCount As Long
ProcStart = mdl.ProcBodyLine(ProcName, vbext_pk_Proc)
ProcLineCount = mdl.ProcStartLine(ProcName, vbext_pk_Proc) + _
				mdl.ProcCountLines(ProcName, vbext_pk_Proc) - ProcStart
mdl.DeleteLines ProcStart + 1, ProcLineCount - 1
mdl.InsertLines ProcStart + 1, lpVBCode + vbNewLine + "End Sub"
Call AMHD3552BC4_TempProc
DoCmd.Save acModule, MdlName
Set mdl = Nothing
Exit Sub
Err_Handler:
  If ModuleNameCheked = 0 Then
	 MdlName = ThisModuleName
	 If MdlName = "" Then
		MsgBox "Can't Find The Module": Exit Sub
	 Else
	   ModuleNameCheked = 1
	   Set mdl = Modules.Item(MdlName)
	   Resume Next
	 End If
  End If
  MsgBox "Error In Executing Code" + vbNewLine + "Error Description : " + Err.Description
End Sub


Public Sub AMHD3552BC4_TempProc()
End Sub

ثم عند الضغط على الزر ضع

AMHD3552BC4_RunMyCode "the vb code"

والله أعلم

شكرا للمشـرفة زهـــره Mo7eb_Alrasool

نعم اريد ان ينفذ الكود المخزن

و لكن لم استطع تفيذ الكود يا Mo7eb_Alrasool اجو تجعله في ملف اكسس

السلام عليكم

db1.rar