برجاء المساعدة فى عمل ذلك الاستعلام

استاذ / حسام فين ردودك الجميلة هو السؤال صعب ولا اية ؟؟؟؟

helskran كتب:

استاذ / حسام فين ردودك الجميلة هو السؤال صعب ولا اية ؟؟؟؟

السلام عليكم ... 

أهلا بك اخي ...

اعتقد أن الاستعلام هو :  

SELECT Id , name , Nz(MustPaid , 0) AS C_MustPaid  , Nz(PaymentIn, 0) AS C_PaymentIn , Nz(PaymentOut, 0) AS C_PaymentOut , C_MustPaid  - (C_PaymentIn - C_PaymentOut)  AS Final FROM
(
SELECT Clients.Id, Clients.name , 
(SELECT SUM(Amount) FROM Accounts WHERE Accounts.ClientsId = Clients.Id) AS MustPaid ,
(SELECT SUM(Amount) FROM Treasury WHERE Treasury.Clients_Emp_Id = Clients.Id AND Treasury_In_Out = 0) AS PaymentIn ,
(SELECT SUM(Amount) FROM Treasury WHERE Treasury.Clients_Emp_Id = Clients.Id AND Treasury_In_Out = 1) AS PaymentOut 
FROM Clients
)

 و هو يعمل داخل بيئة الأكسس فقط , أما لو أردت التعامل معه بالدوت نت , فالدالة Nz  لا تعمل لأنها جزء من الــ Access Library  و ليست جزء من المحرك Jet  أو ACE  لذلك نستبدلها بالدالة  بمزيج من IIF + IsNull  كمايلي : 

SELECT Id , name , IIF(IsNull(MustPaid) , 0 ,MustPaid ) AS C_MustPaid  , IIF(IsNull(PaymentIn), 0, PaymentIn) AS C_PaymentIn , IIF(IsNull(PaymentOut), 0 , PaymentOut) AS C_PaymentOut , C_MustPaid  - (C_PaymentIn - C_PaymentOut)  AS Final FROM
(
SELECT Clients.Id, Clients.name , 
(SELECT SUM(Amount) FROM Accounts WHERE Accounts.ClientsId = Clients.Id) AS MustPaid ,
(SELECT SUM(Amount) FROM Treasury WHERE Treasury.Clients_Emp_Id = Clients.Id AND Treasury_In_Out = 0) AS PaymentIn ,
(SELECT SUM(Amount) FROM Treasury WHERE Treasury.Clients_Emp_Id = Clients.Id AND Treasury_In_Out = 1) AS PaymentOut 
FROM Clients
)

شكرا جزيلا 1- ولكن هو لا يظهر جميع العملاء .

2- بالاضافة انة يظهر ما علية فقط وانا اريد ان يظهر ما له وما علية .

وشكرا مقدما

السلام عليكم ..

أهلا و سهلا بك أخي ..

القاعدة المرفقة فيها عملين فقط و هما يظهران في الاستعلام ..

الاستعلام بعد التعديل هو : 

SELECT Id , name , Nz(MustPaid , 0) AS C_MustPaid  , Nz(PaymentIn, 0) AS C_PaymentIn , Nz(PaymentOut, 0) AS C_PaymentOut , C_MustPaid  - (C_PaymentIn - C_PaymentOut)  AS Final , IIF(Final > 0 , Final , 0) AS [ما عليه] , IIF(Final < 0 , ABS(Final) , 0) AS [ما له] FROM
(
SELECT Clients.Id, Clients.name , 
(SELECT SUM(Amount) FROM Accounts WHERE Accounts.ClientsId = Clients.Id) AS MustPaid ,
(SELECT SUM(Amount) FROM Treasury WHERE Treasury.Clients_Emp_Id = Clients.Id AND Treasury_In_Out = 0) AS PaymentIn ,
(SELECT SUM(Amount) FROM Treasury WHERE Treasury.Clients_Emp_Id = Clients.Id AND Treasury_In_Out = 1) AS PaymentOut 
FROM Clients
) AS TT

اخى العزيز حسام شكرا جزيلا لك وجزاك الله خيرا .

بس فى طلب اخير وهو الحصول على ما لة وما علية خلا فترة معينة والسؤال نضيف التاريخ من جدول accounts ام التاريخ من جدول Treasury وكيف يكون الاستعلام النهائى بعد اضافة التاريخ وشكرا مقدما

1- طلب اخر لو عاوز انقل بيانات ممعينة الى جدول اخر

2- لو عاوز انسخ بيانات ممعينة الى جدول اخر

وشكرا جزيلا

السلام عليكم ..

أهلا بك اخي ...

بالنسبة لجعل الاستعلام يعمل بين تاريخين فهو بالشكل : 

SELECT Id , name , Nz(MustPaid , 0) AS C_MustPaid  , Nz(PaymentIn, 0) AS C_PaymentIn , Nz(PaymentOut, 0) AS C_PaymentOut , C_MustPaid  - (C_PaymentIn - C_PaymentOut)  AS Final , IIF(Final > 0 , Final , 0) AS [ما عليه] , IIF(Final < 0 , ABS(Final) , 0) AS [ما له] FROM
(
SELECT Clients.Id, Clients.name , 
(SELECT SUM(Amount) FROM Accounts WHERE Accounts.ClientsId = Clients.Id AND (Date_A BETWEEN  #1/1/2013# AND #1/10/2013#)) AS MustPaid ,
(SELECT SUM(Amount) FROM Treasury WHERE Treasury.Clients_Emp_Id = Clients.Id AND Treasury_In_Out = 0 AND (Date_A BETWEEN  #1/1/2013# AND #31/12/2013#)) AS PaymentIn ,
(SELECT SUM(Amount) FROM Treasury WHERE Treasury.Clients_Emp_Id = Clients.Id AND Treasury_In_Out = 1 AND (Date_A BETWEEN  #1/1/2013# AND #31/12/2013#)) AS PaymentOut 
FROM Clients
) AS TT

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

الطريقة الصحيحة للحساب تتوجب العودة لكل سجلات الــ Accounts  و الــ Treasury  نضعها في recordSet  ثم نرتب حسب التاريخ و نحسب الحقول ما له و ما عليه عن طريق حلقة For  تمر على كل السجلات .

ثم تعرض من الجدول الناتج , نعرض السجلات التي توافق التاريخ المطلوب .

-------------------------

عملية نسخ البيانات , عن طريق استعلام إلحاق أو مباشرة بالسكوال : 

INSERT INTO C2 (Num , FirstName)
SELECT Id , Name FROM Clients WHERE Id BETWEEN 10 AND 100;

نقل البيانات .. يتطلب نسخ البيانات أولا ثم حذفها ... ضمن Transaction  واحدة و يتم ذلك عن طريق VBA  كمايلي : 

Private Sub Command0_Click()
On Error GoTo Err_DoArchive
  Dim ws As DAO.Workspace   'Current workspace (for transaction).
  Dim db As DAO.Database    'Inside the transaction.
  Dim bInTrans As Boolean   'Flag that transaction is active.
  Dim strSql As String      'Action query statements.
  Dim strMsg As String      'MsgBox message.

  'Step 1: Initialize database object inside a transaction.
  Set ws = DBEngine(0)
  ws.BeginTrans
  bInTrans = True
  Set db = ws(0)

  'Step 2: Execute the append.
  strSql = "INSERT INTO C2 (Num , FirstName)  SELECT Id , Name FROM Clients WHERE Id BETWEEN 10 AND 100;"
  db.Execute strSql, dbFailOnError

  'Step 3: Execute the delete.
  strSql = "DELETE FROM Clients WHERE Id BETWEEN 10 AND 100;"
  db.Execute strSql, dbFailOnError

  'Step 4: Get user confirmation to commit the change.
  strMsg = "Archive " & db.RecordsAffected & " record(s)?"
  If MsgBox(strMsg, vbOKCancel + vbQuestion, "Confirm") = vbOK Then
    ws.CommitTrans
    bInTrans = False
  End If

Exit_DoArchive:
  'Step 5: Clean up
  On Error Resume Next
  Set db = Nothing
  If bInTrans Then   'Rollback if the transaction is active.
    ws.Rollback
  End If
  Set ws = Nothing
Exit Sub

Err_DoArchive:
  MsgBox err.Description, vbExclamation, "Archiving failed: Error " & err.Number
  Resume Exit_DoArchive
End Sub

بالتوفيق .

جزاك الله خيرا على مجهودك .

لى طلب اخر احتاج تصميم قاعدة بيانات صحيحة للحسابات والمبيعات لان  ما ابدا بالبرنامج اجد تصميم القاعدة  ليس صحيحا

وشكرا مقدما .

أهلا و سهلا بك أخي ..

تصميم قاعدة للحسابات و المبيعات يعتبر مشروع كبير ..

ابحث في المنتدى , ستجد الكثير من مشاريع للاعضاء ..

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

بعد إذنك اخى حسام

اضع لأخينا بعض الروابط يمكن ان ينتفع بها

/index.php/topic/177612-%D9%87%D8%AF%D9%8A%D8%A9-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-%D8%A7%D9%84%D8%B4%D8%B1%D8%A7%D8%A1-%D9%88%D8%A7%D9%84%D8%A8%D9%8A%D8%B9-%D9%84%D9%84%D9%85%D8%AD%D9%84%D8%A7%D8%AA-%D8%A7%D9%84%D8%AA%D8%AC%D8%A7%D8%B1%D9%8A%D8%A9/

/index.php/topic/125583-%D9%83%D9%8A%D9%81-%D8%AA%D8%A8%D9%86%D9%8A-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-%D9%85%D8%AE%D8%A7%D8%B2%D9%86-%D9%88%D9%85%D8%A8%D9%8A%D8%B9%D8%A7%D8%AA-%D8%A8%D8%B7%D8%B1%D9%8A%D9%82%D8%A9-%D8%B5%D8%AD%D9%8A%D8%AD%D8%A9-%D8%9F%D8%9F/

اخ حسام اوضح لك انا عاوز قاعدة بيانات سليمة ابنى عليها برنامج ب vb.net يعنى احتاج الجداول والعلاقات فقط بس قاعدة كاملة لابنى عليها البرنامج

شكرا للأخ (طالب علم مبتدىء) على الروابط المفيدة .

الأخ (helskran) اقترح أن تفتح موضوع جديد , تطلب فيه الجداول و العلاقات , فربما أحد الاعضاء عنده قاعدة جاهزة , يوفر عليك الكثير من الوقت و الجهد .

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