الاقسام

وعليكم السلام اخى فايز مشاركه مع اخى ومعلمنا جعفر @jjafferr جزاه الله كل خير Private Sub Command22_Click() 'Me.Frm_Eara.SetFocus 'DoCmd.GoToRecord , , acNewRec If Len(Me.ZVisitorName1 & "") = 0 Then 'ÇÓã ÇáãÓÊÚíÑ MsgBox "ÝÖáÇ ÃÏÎá ÇÓã ÇáãÓÊÚíÑ" Me.ZVisitorName1.SetFocus Exit Sub ElseIf Len(Me.BookeName & "") = 0 Then 'ÇÓã ÇáßÊÇÈ MsgBox "ÝÖáÇ ÃÖÝ ÇÓã ÇáßÊÇÈ" Me.BookeName.SetFocus Exit Sub ElseIf Len(Me.J1 & "") = 0 Then 'ÑÞã ÇáÌÒÁ MsgBox "ÝÖáÇ ÃÖÝ ÑÞã ÇáÌÒÁ" Me.J1.SetFocus Exit Sub ElseIf Len(Me.ZVisitorDay1 & "") = 0 Then 'Çáíæã MsgBox "ÝÖáÇ ÃÏÎá íæã ÇáÇÓÊÚÇÑÉ" Me.ZVisitorDay1.SetFocus Exit Sub ElseIf Len(Me.ZVisitorDate1 & "") = 0 Then 'ÇáÊÇÑíÎ MsgBox "ÝÖáÇ ÃÏÎá ÊÇÑíÎ ÇáÇÓÊÚÇÑÉ" Me.ZVisitorDate1.SetFocus Exit Sub ElseIf Len(Me.ZHessa1 & "") = 0 Then 'ÇáÍÕÉ MsgBox "ÝÖáÇ ÃÏÎá ÇáÍÕÉ" Me.ZHessa1.SetFocus Exit Sub End If Dim db As DAO.Database Dim Rs As DAO.Recordset Dim Rss As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT Table_Eara.* FROM Table_Eara;") Rs.AddNew Rs("VisitorName1") = Me.ZVisitorName1 Rs("BookeName") = Me.BookeName Rs("J1") = Me.J1 Rs("VisitorDay1") = Me.ZVisitorDay1 Rs("VisitorDate2") = Me.ZVisitorDate2 Rs("VisitorDay2") = Me.ZVisitorDay2 Rs("VisitorDate1") = Me.ZVisitorDate1 Rs("Hessa1") = Me.ZHessa1 Rs.Update Rs.Close Me.Requery Beep MsgBox ("Êã ÅÖÇÝÉ ÇáÈíÇäÇÊ ÈäÌÇÍ"), , "ãÈÑæß" Me.ZVisitorName1 = Null Me.BookeName = Null Me.J1 = Null Me.ZVisitorDay1 = Null Me.VisitorDate1 = Null Me.ZHessa1 = Null Me.ZVisitorDay2 = Null Me.ZVisitorDay2 = Null End Sub   Aa_Library.rar

جزاك الله خيرا اخى واستاذى خالد بالامس غلبنى حقل التاريخ ثم تفحصت الحقل الى ان وجدت تنسيق now  ثم بحثت ووجدت رابط ولكن كنت هنجت واضعه للاستفاده وسوف احاول تطبيقه ايضا https://theaccessbuddy.wordpress.com/2014/01/02/dsum-function-the-art-of-writing-a-criteria-3/ جزاك الله خيرا اخى @Hawiii جميل وشغال تمام بارك الله فيكم اخوانى

استاذ محمد حسن المحمد بارك الله فيك  لكن ما احتاجه انه القائمة A هي الاساس والB فرعي  يعني انه الاسم من قائمة B موجود في A يتم تحديده وترحيل الصف بالكامل من قائمة A باللون الاخضر  الى شيت جديد يعني مقارنه او  انه الاسماء في A وفي B يتم مطابقتها وانشاء عمود جديد او شيت جديد الاسماء حسب التسلسل مترتبته لكيت يتم مطابقتها   

السلام عليكم اريد تعديل زر الحاقي يسمح بالتكرار Private Sub Command5_Click() On Error GoTo Error_ErrorZ     If Len(Me.B1 & vbNullString) = 0 Or Len(Me.B2 & vbNullString) = 0 Or Len(Me.B3 & vbNullString) = 0 Or Len(Me.B4 & vbNullString) = 0 Or Len(Me.B5 & vbNullString) = 0 Then          Else     DoCmd.SetWarnings False     DoCmd.OpenQuery "Query1"     DoCmd.SetWarnings True '    MsgBox "Done", vbInformation End If      Error_ErrorZ:     MsgBox "Not Done", vbInformation End Sub زرالحاقي (4).rar

السلام عليكم أخي الكريم أرجو أن يكون ما طلبت في الملف المرفق تقبل تحياتي 11111.xlsm