محمد أبوعبدالله

وعليكم السلام وحمة الله وبركاته ضع في الاستعلام في حقل التاريخ المعيار التالي between forms!frm1!A and forms!frm1!B وفي نموذج frm1 اكتب التاريخ الذي تريد تحياتي

وعليكم السلام ورحمة الله وبركاته اجعل الحقل مطلوب مع عدم التكرار تحياتي

جزاك الله خيرا استاذنا الفاضل تحياتي

ضع اول الكود on error resume next تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

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

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم برجاء زيارة هذا الموضوع الزاخر بالمناقشات وارجو من الله ان يفيدك تحياتي

مرحبا اخي الكريم يمكنك استخدام الكود التالي DoCmd.RunCommand acCmdPageSetup وانصحك بزيارة هذا الموضوع الاكثر من هام والذي سيفيدك باذن الله تحياتي

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

جزاك الله خيرا استاذنا الفاضل من بعد اذن استاذي خسين تفضل اخي الكريم Option Compare Database Option Explicit Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long Private Sub أمر0_Click() If InternetGetConnectedState(0&, 0&) Then labal1.Caption = Translate(labal1.Caption, "ar", "en") labal2.Caption = Translate(labal2.Caption, "ar", "en") labal13.Caption = Translate(labal13.Caption, "ar", "en") Me.أمر19.Visible = True Else MsgBox "تأكد من اتصالك بالانترنت" End If End Sub Private Sub أمر19_Click() If InternetGetConnectedState(0&, 0&) Then labal1.Caption = Translate(labal1.Caption, "en", "ar") labal2.Caption = Translate(labal2.Caption, "en", "ar") labal13.Caption = Translate(labal13.Caption, "en", "ar") Else MsgBox "تأكد من اتصالك بالانترنت" End If End Sub تحياتي

وعليكم السلام ورحمة الله وبركاته غير مسار حقظ التقرير من GetWinTemp الى CurrentProject.Path من PDF_Name_Path = GetWinTemp & "\ImitatePDFPrintingLikeInOracleButFromMsAccess.pdf" الى PDF_Name_Path = CurrentProject.Path & "\ImitatePDFPrintingLikeInOracleButFromMsAccess.pdf" تحياتي او قم بتعريف المتغير GetWinTemp اولا Public Function GetWinTemp() As String GetWinTemp = Environ("Temp") End Function

تفضل اخي الكريم Dim Xid As Integer Xid = Nz(DMax("[Id]", "tbl_name"), 0) + 1 mySQL = "INSERT INTO tbl_name (id,student_name) Values ('" & Xid & "', '" & Me.xxx & "');" CurrentDb.Execute mySQL Me.student.Requery مدرسه جديد.rar تحياتي

تفضل اخي الكريم جرب المرفق واعلمني بالنتيجة lab_OK كمبوبوكس متعدد.rar تحياتي

هل جربت تغيير خاصية تأمين السجلات الى سجل محرر ايضا تغيير زمن التحديث الافتراضي 60 ثانية ممكن تغييره الى اقل من ذلك والتجربة تحياتي

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

السلام عليكم مرحبا اخي الكريم اجعل مصدر الكومبوبكس الجدول الذي تريد تجربة.rar تحياتي

تمام وبارك الله فيك تحياتي

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

استبدل السطر For J = 1 To Me.count_legan بالتالي For J = Nz(DMax("[lagna]", "emthan_tbl_bianat"), 0) + 1 To Nz(DMax("[lagna]", "emthan_tbl_bianat"), 0) + 1 + Me.count_legan والكود كامل On Error GoTo Err: Dim mySQL As String Dim rst As Recordset Dim i As Double, J As Double If IsNull([cbo_saf]) Then MsgBox "اختر الصف اولا", vbCritical, "اوفيسنا" Else DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE emthan_tbl_bianat SET emthan_tbl_bianat.lagna = 0 WHERE (((emthan_tbl_bianat.saf)=[forms]![frm_golos_sry]![cbo_saf]));" DoCmd.SetWarnings True mySQL = "Select * From emthan_tbl_bianat" mySQL = mySQL & " WHERE saf ='" & Me.cbo_saf & "'" mySQL = mySQL & " ORDER BY golos1" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst ' For J = 1 To Me.count_legan For J = Nz(DMax("[lagna]", "emthan_tbl_bianat"), 0) + 1 To Nz(DMax("[lagna]", "emthan_tbl_bianat"), 0) + 1 + Me.count_legan For i = 1 To Me.kk rst.Edit rst![lagna] = J rst.Update rst.MoveNext Next Next Me.Requery End If Err: If Err.Number = 3121 Then Else End If توزيع اللجان علي الطلبة_2.rar تحياتي

لديك قوس ناقص تحياتي

هل تقصثد توزيع لجميع الصفوف مرة واحدة ؟ تحياتي

تفضل اخي الكريم قاعدة بيانات1.rar تحياتي

نعم هو نفس المرفق مع تعديل البيانات 1265.Database1.accdb.zip تحياتي

لا يوجد مرفقات تحياتي

نفس النتيجة تحياتي