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

استبدل السطر التالي DoCmd.OpenReport "rpt", acViewPreview بهذا DoCmd.OpenReport "rpt", acViewPreview, , "ID = " & ID ====================================== ارجو ان يكون لدى الاخوة حل لهذا تحياتي

يعمل مع جميع الحقول بدون مشاكل ان شاء الله وتم اخفاء الحقول التي ليس بها بيانات تم راجع المرفق بارك الله فيك Database1.zip تخياتي

لاني غيرت اسم مربع تحرير وسرد الى xxx

بالاضافة الى ما تفضل به الاخوة ولهم الشكر هل تقصد اذا كان السجل يحتوي على 10 حقول واردت تحديث بيانات 8 حقول فقط فهل هذا ممكن ؟؟ ضع 2 مربع نص في النموذج لتحديد من / الى txtFrom ، txtTo ثم استخدم الكود التالي لتفريغ قيمة الحقول المحددة Dim mySQL As String Dim rst As Recordset Dim i As Double If IsNull([txtFrom]) Or IsNull([txtTo]) Then MsgBox "اختر من / الى اولا", vbCritical, "اوفيسنا" DoCmd.GoToControl "txtFrom" Else mySQL = "Select * From tbl1" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = Me.txtFrom To Me.txtTo rst.Edit rst(i) = Null rst.Update Next Me.Requery End If تحياتي DbTest.rar

بالتوفيق اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم تسمية الحقول 1 ، 2 ، 3 ... الخ خطأ ويُحدث تعارض ومشاكل في الاكواد قمت باعادة التسمية A ، B ، C Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) If IsNull(Me.a) Then a.Visible = False End If If IsNull(Me.B) Then B.Visible = False End If If IsNull(Me.C) Then C.Visible = False End If If IsNull(Me.D) Then D.Visible = False End If If IsNull(Me.E) Then E.Visible = False End If End Sub Database1.zip تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم DoCmd.OpenForm "Obectives_form", , , "ID=" & Me.List0 1_2.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم جرب الحل التالي 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 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 توزيع اللجان علي الطلبة.rar تحياتي

هل تقصد عدم تكرار الحقل id_clreck والزيادة تكون في num_in في نفس السجل اذا كان الامر كذلك فما مشكلة الكود الاول Me.num_clreck = Nz(DLast("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1 برحاء توضيح اكثر ولك الشكر تحياتي

وعليكم السلام ورحمة الله وبركاته ضع شرط if قبل فتح التقرير ليتحقق من ان الحقل ليس فارغ كالتالي if [a1]<>"" then يمكن ولكن ستحتاح الى اكواد وستفقد شىء مهم وهو ربط النموذح الفرعي مع النموذج الرئيسي بحث.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Dim mySQL As String Dim rst As Recordset Dim i As Double mySQL = "Select * From tbl_bayanat" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To rst.RecordCount rst.Edit rst![هللة] = Me.مربع_تحرير_وسرد4 rst.Update rst.MoveNext Next Me.frm_2.Requery تجربة(1).rar تحياتي

دعنا نجرب طريقة اخرى On Error GoTo err: Dim mySQL As String Dim rst As Recordset Dim i As Double mySQL = "Select * From TBtime" mySQL = mySQL & " WHERE id_clreck = " & Me.id_clreck Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) For i = 1 To 1 rst.Edit rst!num_in = rst!num_in + 1 rst.Update Next Me.num_clreck = 1 err: If err.Number = 3021 Then mySQL = "Select * From TBtime" mySQL = mySQL & " WHERE id_clreck = " & Me.id_clreck Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) For i = 1 To 1 rst.AddNew rst!num_in = rst!num_in + 1 rst.Update Next Me.num_clreck = 1 End If TIME.rar من فضلك اعلمني بالنتيجة تحياتي

مرحبا اخي الكريم فضلا تجربة الحل المرفق TIME.rar تحياتي

السلام عليكم مرحبا اخي الكريم جرب التالي If [Forms]![FormName]![FieldName] = "محمد" _ Or [Forms]![FormName]![FieldName] = "خالد" _ Or [Forms]![FormName]![FieldName] = "علي" Then تحياتي

السلام عليكم مرحبا اخي الكريم بدايةً : نموذج البحث يبجث في حميع الحقول وانت تريد اذا لم يتم العثور على نتائج يضيف القيمة ... حسناً ماذا لو بحثت عن الفصل او العمر وكان هذا الرقم غير موجود هل سيضفيه ؟ لا بد ان تراعي هذه الجزئية جيداً ثانياً : عند الاضافة فلن يتم اضافة باقي الحقول كالعمر والفصل وهذه الجزئية لا بد ان تراعي جيداً واليك اضافة القيمة الموجودة في مربع البحث في حقل الاسم Private Sub xxx_AfterUpdate() If Me.student.Form!txtCount > 0 Then Me.student.Requery Else mySQL = "INSERT INTO tbl_name(student_name) VALUES('" mySQL = mySQL & Me.xxx & "');" CurrentDb.Execute mySQL Me.student.Requery End If End Sub مدرسه.rar تحياتي

استبدال السطر Me.num_clreck = Nz(DLookup("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1 بالتالي Me.num_clreck = Nz(DLast("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1 TIME.rar تخياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخ الكريم Private Sub id_clreck_NotInList(NewData As String, Response As Integer) MsgBox "غير مسجل", vbCritical, "officena" DoCmd.CancelEvent Me.Undo Response = acDataErrContinue End Sub Private Sub id_clreck_Click() Me.num_clreck = Nz(DLookup("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1 End Sub TIME.rar تحياتي

غير خاصية LimitToList / الالتزام بالقائمة الى yes تحياتي

يمكن وضع القيمة الافتراضية للحقل =Date()-1 تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم سنستخدم الوحدة النمطية التالية ' للتحويل من ميلادى لهجرى Public Function Greg2Hijri(gDate As String, Optional DateFrmat As String = "dd/mm/yyyy") As String Dim orgCal As Integer Dim nDate As Date orgCal = Calendar Calendar = vbCalGreg nDate = gDate Calendar = vbCalHijri Greg2Hijri = Format(nDate, "dd/mm/yyyy") Calendar = orgCal End Function ' للتحويل من هجرى لميلادى Public Function Hijri2Greg(hDate As String, Optional DateFrmat As String = "dd/mm/yyyy") As String Dim orgCal As Integer Dim nDate As Date Dim tStr As String orgCal = Calendar Calendar = vbCalHijri nDate = hDate Calendar = vbCalGreg Hijri2Greg = Format(nDate, "dd/mm/yyyy") Calendar = orgCal End Function وفي النموذج نسضع الكود التالي Private Sub تاريخ_العقد_ميلادي_BeforeUpdate(Cancel As Integer) Me.[تاريخ العقدر هجري].Value = Greg2Hijri(Trim([تاريخ العقد ميلادي].Value), "dd/mm/yyyy") End Sub Private Sub تاريخ_العقدر_هجري_BeforeUpdate(Cancel As Integer) Me.[تاريخ العقد ميلادي].Value = Hijri2Greg(Trim([تاريخ العقدر هجري].Value), "dd/mm/yyyy") End Sub Private Sub تاريخ_انتهاء_العقد_ميلادي_BeforeUpdate(Cancel As Integer) Me.[تاريخ انتهاء العقد هجري].Value = Greg2Hijri(Trim([تاريخ انتهاء العقد ميلادي].Value), "dd/mm/yyyy") End Sub Private Sub تاريخ_انتهاء_العقد_هجري_BeforeUpdate(Cancel As Integer) Me.[تاريخ انتهاء العقد ميلادي].Value = Hijri2Greg(Trim([تاريخ انتهاء العقد هجري].Value), "dd/mm/yyyy") End Sub Up_عقود.rar تحياتي

وعليكم السلام ورحمة الله وبركاته يمكن طبعاً ولكن هذا ليس تخصص access ولكنك تحتاج الى لغات برمجة اخرى مثل php مع MySql او vb.net مع Sql Server تحياتي

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

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

تفضل اخي الكريم Private Sub city_NotInList(NewData As String, Response As Integer) Dim ctl As Control Dim strSQL As String Set ctl = Me!city If MsgBox(" اسم المدينة" & " / " & _ Me.city.Text & " / ليس ضمن القائمة هل تريد إضافته ", _ vbOKCancel, "officena") = vbOK Then Response = acDataErrAdded strSQL = "INSERT INTO tbl_city(city) VALUES('" strSQL = strSQL & NewData & "');" CurrentDb.Execute strSQL MsgBox "تمت الاضافة ", , "officena" Else Response = acDataErrContinue ctl.Undo End If End Sub school.rar تحياتي

اشكرك استاذي الفاضل على كلماتك الرقيقة دمت لاخيك تحياتي