Ahmed.IQ

اخي الكريم الحلبي .

شكرا لك لكن هذا ليس المطلوب هذه الطريقة يقوم بأستيراد القيمة الى حقل غير منظم .

الفكرة التي قمت بها تحديث حقل منظم داخل جدول رأس الفاتورة

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

تحديث اجمالي الفاتورة عن طريق التايمر.accdb

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

On Error GoTo Err:
DoCmd.OpenForm "t", acDesign, , , , acHidden
Dim db As DAO.Database
Dim frm As Form
Dim newBt As Control
Dim i As Long, j As Long

Set frm = Application.Forms(1)

'For i = 0 To 1
For j = 1 To 1
    Set newBt = CreateControl("T", acCommandButton, Left:=100 + 3000, Top:=500)
    Set newBt = Nothing
Next j
'Next i
DoCmd.Close acForm, "T", acSaveYes
Err:
MsgBox Err.Number

شكراً استاذ محمد انا حليتها عن طريق افتر ابديت للفورم بشكل كامل وادت المطلوب

تفضل كود لانشاء زر جديد بشرط ان يكون النموذج في وضع التصميم ويمكن ان ينشاء الزر من نموذج اخر 

On Error GoTo Err:
Dim db As DAO.Database
Dim frm As Form
Dim newBt As Control
Dim i As Long, j As Long

Set frm = Application.Forms(1)

'For i = 0 To 1
For j = 1 To 1
    Set newBt = CreateControl("أسم النموذج", acCommandButton, Left:=100 + 3000, Top:=500)
    Set newBt = Nothing
Next j
'Next i
Err:
MsgBox Err.Number

الكود كان يعمل الضافة زرين بنفس المستوى الان يضيف زر  واحد

السلام عليكم ورحمة الله 

سؤال اخواني الاعزاء

كيف يتم معرفة اذا كان المستخدم ادخل بيانات او عدلت بيانات أم لم يقم بعمل اي شي داخل نموذج مستمر ؟

هل هناك امكانية لمعرفة هذا الامر

حلي بسيط اقوم بعمل استعلام تحديث  لحقل المجموع داخل الجدول بشرط رقم الفاتورة بعد حدث بعد التحديث

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

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

شكرا لك اخي ابو زاهر والاخ عبداللطيف على تعاونكم

اخواني الكرام شكراً لتعبكم لكن الفكرة هيا .

كيف راح نقوم بحفظ المجموع في جدول رأس الفاتورة بعد كل اضافة للاصناف تتم في النموذج الفرعي .

الطريقة التي تم ذكرها من قبلكم انا اعرفها هيا عمل حقل غير منظم وجعل مصدرة هوا حقل في النموذج الفرعي مسؤول عن جمع المبالغ  

شوفي اخي افضل طريقة تعمل حقل غير منظم في النموذج الرئيسي وتعمل مصدرة حقل الجمع في النموذج الفرعي .

بعدين تروح تعمل استعلام تحديث لحقل التوتل في الجدول 1 بشرط رقم الفاتورة.

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

اخي ابو زاهر لم يحدث المجموع في النموذج الرئيسي .

بارك الله بك انا حليتها بطريقة مطولة اشوي

تفضل اخي ابو زاهر

اضافة قيمة لحقل عن طريق حقل بالنموذج الفرعي.accdb

اخ ايمن لا تنفع هذه الطريقة جربتها 

نفس المشكلة الي عندي ..

محتاج ان اظهر نتيجة المجموع مبلغ الفاتورة لحقل منظم في رأس الفاتورة بالاعتماد على الحقل في ذيل الفاتورة الي هو نموذج فرعي بحاول فيه من الصبح ما ضبط معي :)

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

جرب الكود التالي

me.text1 = السنة

me.text3 = الشهر واليوم

Dim fs, cf, strFolder
strFolder = CurrentProject.Path & "\" & "Image"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "'لم يتم انشاء المجلد"
Else
MsgBox "'" & strFolder & "'تم انشاء المجلد"
End If
End If
strFolder = CurrentProject.Path & "\Image" & "\" & "" & Me.Text1 & ""
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "'تم انشاء المجلد "
Else
MsgBox "'" & strFolder & "'لم يتم انشاء المجلد"
End If
End If
strFolder = CurrentProject.Path & "\Image\" & Me.Text1 & "" & "\" & "" & Me.Text3 & ""
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "' تم انشاء المجلد"
Else
MsgBox "'" & strFolder & "'لم يتم انشاء المجلد"
End If
End If

الحقل المخفي راح نستخدمه في تسمية المجلد حسب السنين والكود الي تقصده 

=Year(Date())

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

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

بخصوص التسمية سهله اجعل الكود عند الفتح النموذج وجعل لك حقل مخفي وعطية اسمه مثل YearName يكون مصدر بياناته =Year(Date()) وبدل حقل test ضع الكود التالي

"" &  Me.YearName & "" راح ياخذ يحفظ لك الفايل بأسم السنة

فقط تقوم بتكرار الكود حسب رغبتك

Dim fs, cf, strFolder
strFolder = CurrentProject.Path & "\" & "Image"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي "
Else
MsgBox "'" & strFolder & "'لم يتم انشاء المجلد"
End If
End If
strFolder = CurrentProject.Path & "\Image" & "\" & "test"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي "
Else
MsgBox "'" & strFolder & "'لم يتم انشاء الملجد"
End If
End If

هذا كود اننشاء مجلد واحد

Dim fs, cf, strFolder
strFolder = CurrentProject.Path & "\" & "Image"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
If fs.FolderExists(strFolder) = True Then
MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار"
Else
MsgBox "'" & strFolder & "'لم يتم انشاء المجلد في المسار"
End If
End If

السلام عليكم ورحمة الله 

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

السلام عليكم ورحمة الله

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

شكراً اخ ابو زاهر .

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

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

وهذا شكل الكود النهائي .

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

On Error GoTo enderr
 DoCmd.SetWarnings False
'النموذج
Set Rs = Forms![form1]![F_ReceiptDetails].Form.RecordsetClone
'الجدول للتحري
   Set RsEdit = CurrentDb.OpenRecordset("T_items")

Rs.MoveFirst
'دوران
Do While Not Rs.EOF
     RsEdit.MoveFirst
'دوران للجدول
   Do Until RsEdit.EOF
   'اذا وجد السجل
    If RsEdit!ID = Rs!IDIt Then
    'تحرير
         RsEdit.Edit
         RsEdit!Stok = RsEdit!Stok + Rs!Quantity
         RsEdit!AmountRe = ((RsEdit!Stok - Rs!Quantity) * (RsEdit!AmountRe) + (Rs!Amount * Rs!Quantity)) / RsEdit!Stok
         RsEdit.Update
   End If
   RsEdit.MoveNext
   Loop


Rs.MoveNext
Loop
Set Rs = Nothing
Set RsEdit = Nothing
DoCmd.SetWarnings True
MsgBox " تم تحديث البينات ", vbInformation, "تم "
Exit Sub
enderr:
MsgBox " لم يتم تحديث البيانات ", vbInformation, "لم يتم التعديل"
DoCmd.SetWarnings True

ابو زاهر شكرا على الرد اخي .

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

النموذج الرئيسي اسمه form1 النموذج الفرعي اسمه F_ReceiptDetails

الجدول اسمه T_items الجداول التي احتاج الى تعديلها داخل الجدول stok  وا amount

الحقول التي سيتم اخذ المعلومات الجديده منها لغرض تحديث الحقول في الجدول هيا stoknew  و amountnew  بشرط ان id داخل الجدول يساوي idit داخل النموذج الفرعي

وهذا الكود بعد التعديل عليه

On Error GoTo enderr
 DoCmd.SetWarnings False
'النموذج
Set Rs = Forms![form1]![F_ReceiptDetails].Form.RecordsetClone
'الجدول للتحري
   Set RsEdit = CurrentDb.OpenRecordset("T_items")

Rs.MoveFirst
'دوران
Do While Not Rs.EOF
     RsEdit.MoveFirst
'دوران للجدول
   Do Until RsEdit.EOF
   'اذا وجد السجل
    If RsEdit!ID = Me.F_ReceiptDetails!IDIt Then
    'تحريره
         RsEdit.Edit
         RsEdit!Stok = Me.F_ReceiptDetails!Stoknew
         RsEdit.Update

'         RsEdit.Edit
'         RsEdit!AmountRe = Me.F_ReceiptDetails!Amountnew
'         RsEdit.Update
   End If
   RsEdit.MoveNext
   Loop


Rs.MoveNext
Loop
Set Rs = Nothing
Set RsEdit = Nothing

MsgBox " تم تعديل السجلات الى الجدول بنجاح ", vbInformation, "تم "
Exit Sub
enderr:
MsgBox " خطا في البيانات ", vbInformation, "لم يتم التعديل"

 DoCmd.SetWarnings True

السلام عليكم ورحمة الله

عندي جدول اصناف وفيه عدة حقول منها حقل السعر وحقل الكمية 

عندي نموذج مستمر ممكن افتح في النموذج الواحد خمسة اصناف او اكثر ودخل الكميات المشتراة واسعارها الجديده

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

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

هل هناك نجعل استعلام التحديث يحدث كافة الاصناف الموجوده بالنموذج وليس اول صنف فقط؟

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

عندي سؤال كيف يمكن ان اصدر بيانات جدول الى عدة صفحات داخل اكسيل او عدة اكسيلات 

لو فرضنا عند بيانات بجدول وكانت البيانات الموجوده في الجدول تحتوي على ترقيم والبيانات الموجوده 1000 سجل

لو احتاجت الى حفظ من 1 الى 250 في الصفحة الاولى او الاكسيل الاول 

ومن 251 الى 500 في الصفحة الثانية او الاكسيل الثاني

ومن 501 الى 750 في الصفحة الثالثة او الاكسيل الثالث

ومن 751 الى 100 في الصفحة الرابعة او الاكسيل الرابع 

هل هناك طريقة لتصدير البيانات من الجدول الى الاكسيل بهذه الطريقة ؟

بارك الله بك اخي الكريم

حل موفق