بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'jjafferr'.
تم العثور علي 9 نتائج
-
عاوز اضع شرط في الاستعلام باستخرراج السجل الذى يحتوي على احدث تاريخ بين مجموعة تواريخ
-
زيادة الكمية عند ادخال نفس الصنف في الفاتورة لقيت االكود المطلوب لكم مش عارف اطبقة بصراحة في كود اسهل من دا او طريقة اخري واكون شاكر لكم ودا الكود اللي لقيتة ومرفق لكم ايضا قاعدة البيانات المراد التطبيق عليها Private Sub Form_BeforeUpdate(Cancel As Integer) Dim sql As String If DCount("[ItemID]", "[InvoiceDetails Table]", "[InvoiceID]=" & Me.InvoiceID & "and [ItemID]=" & Me.ItemID) > 0 Then sql = "UPDATE [InvoiceDetails Table] SET [InvoiceDetails Table].Quantity = [InvoiceDetails Table]![Quantity]+[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![Quantity] WHERE ((([InvoiceDetails Table].InvoiceID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![InvoiceID]) AND (([InvoiceDetails Table].ItemID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemID]));" DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (sql) Me.Undo DoCmd.SetWarnings (warningson) End If End Sub تجربة.rar ودا رابط الموضوع
-
عاوز الناتج يخزن في الجدول توضيح اكتر عندي اجمالى مبلغ الفاتورة -اجمالى الخصم ---------الناتج يخزن في الاجمالى وهو حقل من جدول يعني عاوز الناتج يخزن في حقل الجدول اللي هو الاجمالى
-
السلام عليكم ورحمه الله وبركاته,, انا عندي نموذجين form1 ,form2 النموذج الاول فيه اكثر من مربع نص يدخله المس تخدم وبالاخير فيه زر (button) ينقله الى النموذج الثاني احتاج طريقة او كود تنقل نفس البيانات المدخله من المستخدم في مربع النص من النموذج الاول الى مربع اخر في النموذج الثاني عند الضغط على الزر بشرط اغلاق النموذج الاول اتمنى تفيدوني وشكرا...
-
السلام عليكم ورحمة الله وبركاته اخواني الاعزاء صادفتني مشكلة جديدة في القاعدة وهي ان التقرير لا يظهر نتائج الجمع الاجمالية بالاضافة الى عدم ظهور الارقام بالشكل القياسي ومرفق طيا القاعدة للاطلاع عليها تحياتي ZT.accdb
-
السلام عليكم ممكن حد يترجملي الكود ده Sub LoopFillRange() ' Fill a range by looping through cells Dim CellsDown As Long, CellsAcross As Long Dim CurrRow As Long, CurrCol As Long Dim StartTime As Double Dim CurrVal As Long ' Change these values CellsDown = 500 CellsAcross = 200 Cells.Clear ' Record starting time StartTime = Timer ' Loop through cells and insert values CurrVal = 1 Application.ScreenUpdating = False For CurrRow = 1 To CellsDown For CurrCol = 1 To CellsAcross Range("A1").Offset(CurrRow - 1, CurrCol - 1).Value = CurrVal CurrVal = CurrVal + 1 Next CurrCol Next CurrRow ' Display elapsed time Application.ScreenUpdating = True MsgBox Format(Timer - StartTime, "00.00") & " seconds" End Sub