ابو ياسين المشولي

اخواني الافاضل عملت كود وهو يقوم بالغرض ولكنه بطي بسبب كثر السجلات فهل من بديل وهذا الكود Dim rst As DAO.Recordset Dim bb As Integer Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [اقمشة]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC rst.edit b = Nz(DSum("[quntt]", "Data", "komash='" & rst!komash & "'")) R = Nz(DSum("[quntt1]", "Data", "komash1='" & rst!komash & "'")) s = Nz(DSum("[quntt2]", "Data", "komash2='" & rst!komash & "'")) f = Nz(DSum("[quntt3]", "Data", "komash3='" & rst!komash & "'")) m = Nz(DSum("[quntt4]", "Data", "komash4='" & rst!komash & "'")) n = Nz(DSum("[quntt5]", "Data", "komash5='" & rst!komash & "'")) k = Nz(DSum("[quntt6]", "Data", "komash6='" & rst!komash & "'")) y = Nz(DSum("[quntt7]", "Data", "komash7='" & rst!komash & "'")) rst("qunt4").Value = b + R + s + f + k + m + n + y rst.Update rst.MoveNext Next i MsgBox " تم تحديث السجلات الى الجدول بنجاح ", vbInformation, "تنبيه" rst.Close Set rst = Nothing

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

بعد اذن اخي ابو عبدالله اتفضل هذا طلبك Set rs = CurrentDb.OpenRecordset("SELECT * FROM Alsnaf WHERE ID_Sanf ='" & Me.txt_2 & "'" & _ "or A2='" & Me.txt_2 & "'") If rs.RecordCount > 0 Then ID_Sanf = rs!ID_Sanf Sanf = rs!Sanf A2 = rs!A2 Else MsgBox "لايوجد رقم" 'Rajmsanf = "" Sanf.SetFocus txt_2.SetFocus ID_Sanf = Null Sanf = Null A2 = Null End If

اتفضل عملت لك الحدث في الباركود وفي كود مختصر Market.rar

بالتوفيق اخي محمد صلاح1 ونكرر الشكر للاخ جعفر

تسلم اخي جعفر وهذا حسب طلب الاخ محمد صلاح MP3_WAV_Player_SEMO_Pa3x(3).accdb

من قوانين المنتدى فتح موضوع جديد وولمعومه انا جهزت الحل ومنتظر لفتح موضوع جديد الا اذا سمحت الادارة فنحن في الخدمه

شوف هذا

الف الف مبروك يستاهلو مزيد من التقدم ربنا يوفق الجميع

ماطلع عندي نفس الشرح

الى الامام بارك الله فيك

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

فاهمك اخي لاني جربت me.form ولم يفلح اما لو هو مربع او مكان صورة نعم يتغير

جرب هذا DFirst("[التاريخ]", "[الجدول]", "[رقم الزبون]=" & Me.[اسم الحقل] & "")

ممكن من اختلاف الاوفيس عندي 2010

راجع هذا الموضوع اضغط هــنــا

اتفضل هذا pdf DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, CurrentProject.Path & "\" & "s1" & ".PDF", False xx (1).accdb

اعمل تقرير بنفس تنسيق النموذج واجله بدل ما ياخذ البينات من الاستعلام ياخذها من التقرير

وهنا برقم التليفون Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("Clients", dbOpenDynaset) rs.FindFirst "Tel = '" & Me!Tel & "'" If Not rs.NoMatch Then rs.Bookmark = rs.Bookmark Me.Societé = rs!Societé Me.Adresse = rs!Adresse Me.Tel = rs!Tel Me.Email = rs!Email Me.nomClien = rs!nomClien Me.Ville = rs!Ville Else 'غير ذلك اي انه لم يجد سجل MsgBox " يـرجـاء الـتـأكـد .... لا يـو جـد زبون بـهـذا الرقم : " & Me.Tel, , " : خـطـاء " End If

اتفضل DoCmd.OpenForm "form1", , , , , acHidden If Me.name2 = [Forms]![form1]![name1] Then Me.name2.BackColor = 5570153 Me.name2.ForeColor = 0 Beep MsgBox "الناتج صحيح" Else Me.name2.BackColor = 255 Me.name2.ForeColor = 16777215 Beep MsgBox "الناتج خطا" End If

ماعندي 2007 2010 2007 كلها تشتغل ب 2007

اتفضل 2010 Print1.accdb

بدل ما تخليه بدون طابعه في كود يغير الطابعه الافتراضيه تعمل في زر امر قبل كود فتح التقرير راجع هذا

مشاركة مع الحبايب مثال (5).accdb

غير هذا DoCmd.OpenReport ("إسم التقرير"), acViewPreview ' open report الى DoCmd.OpenReport ("إسم التقرير"), acViewNormal ' open report