Shivan Kurdi - شڤان کوردی

2 ساعات مضت, ابو زاهر said:

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

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

اخوكم /أبو زاهر

برنامج مخزون.rar

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

على الرغم انا لا اعرف شي عن المخازن و الفاتورة

لكن حسب رأيي

اولا اخفاء حقل نوع الفاتورة لانه النموذج هو نموذج المشتريات

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

ثالثا اخفاء حقل سعر الشراء من نموذج الفرعي ( لكن هذا حسب طلب ) اي واحد يريد ان لا يظهر لانه مايريد يعرف حدى اي المستخدمين عن اسعار الشراء 

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

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

سادسا لكي تخطي من الرسالة الخطأ للاكسس اكتب في بدايةة الاكواد on error resume next

هذا 

والله يعلم

تقبل تحياتي

38 دقائق مضت, ALFAALEH said:

شكرا لك اخي الكريم على الرد ولكن لم يتم حل المشكلة 

مرفق مثال لقاعدة البيانات كما تلاحظ السجل رقم 6 و7 لسامي وخالد  تطلع النتيجة #خطا 

 

AAA.rar

اخي الكريم
احذف الكود السابق

واكتب هذا فقط

=Count(*)

واليك ملفك بعد تعديل

AAA.rar

اتفضل

=NZ(DCount("[vizites]";"visit";"[vizites]='خارجية' and [gustid]=" & [gustid]);0)

14 دقائق مضت, omar19-3 said:

نعم أستاذى ... رجاء انظر الجدول Lost_Serial بعد زيادة الأيام والأشخاص ..

الكود بيعمل بشكب عادي

ويعطيك التواريخ بين اول تاريخ والاخر تاريخ في جدول تايمس

انظر الى جدول تايمس ما دخلت انت هو ايام الشهر كامل
اما في جدول لاست سريال بها تواريخ بين اول التاريخ والاخر تاريخ

تحياتي

15 دقائق مضت, omar19-3 said:

جزاك الله خيراً أ/Shivan  أنظر بعد زيادة الأيام تجده يضع بجدول Lost_Serial كل الأيام تقريبا وليست المفقوده فقط ....

db3.rar

كلا اخي

شوف الجدول

9 دقائق مضت, اسلام سيد said:

 

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

لانى حقيقة لا استطيع الوصول خالص

تمام اخی غدا راح اشرح لک بالصور ان شاء الله

لكن ذكرني غدا

11 دقائق مضت, محمد سعيد رشاد said:

أخى صادفتنى هذه الصوره عند تغير الشهر برجاء المساعده

12.rar

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

لان في جدول ئيكس دَي به حقل باسم ئيكس داتا وما يقبل التكرار

غير خاصيته الى التكرار مقبول راح يعمل لك كما تريد

واذا تريد ما يقبل التكرار وعند ضغط ما يظهر رسالة الخطأ

في اول الكود اكتب

ON ERROR RESUME NEXT

وجربه هل سيشتغل تمام 

ام ماذا سيجري

اخي @اسلام سيد

هو استعلام تجميعي
ما يظهر كنماذج الاخرى بل بيظهر ك كود سكويليتي

شوف افتح قسم استعلامات

واضغط على علامة استعلام تجميعي

راح يفتح لك نافذة ما بها شي

اكتب فيها

SELECT [الفواتير اصناف].المكاتب
FROM [الفواتير اصناف];
UNION ALL SELECT [رصيد المخازن].الاسم
FROM [رصيد المخازن];

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

UNION ALL

وتكدر تجمع بين جدول واحد كما عملت انا و اكثر 

تحياتي

15 دقائق مضت, tarek_f26180 said:

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

obeidi input1.rar

مشاركة مع السيد @محمد ابوعبد الله

اتفضل اخي 

اضفت حقل اي دي في النموذج والتقرير

واضفت من الكود شرط اي دي يساوي اي دي

 "[id]=" & Me.ID

اي الكود سيكون كالتالي

    Dim stDocName As String

    stDocName = "R_mouamalat"
    DoCmd.OpenReport stDocName, acPreview, , "[id]=" & Me.ID

obeidi input1.rar

10 دقائق مضت, اسلام سيد said:

ايوة

هكذا اريد

ايها الراعى الصالح

اين الملف بالله عليك

ماذا فعلت

اليك ملف

برنامج دريم للملابس (1).rar

اللي عملت هو استعلام توحيد لنفس الاستعلام مرتين 
اي عملت توحيد استعلام رصيد المخزون مرتين

اتفضل هذا هو الاستعلام

SELECT [الفواتير اصناف].المكاتب, [الفواتير اصناف].التاريخ, [الفواتير اصناف].[رقم الفاتورة], [الفواتير اصناف].التوجيه, [الفواتير اصناف].الموديل, [الفواتير اصناف].السعر, [الفواتير اصناف].العدد, [الفواتير اصناف].[وقت التسجيل], [الفواتير اصناف].[اسم الصنف], [الفواتير اصناف].[اسم المورد], [الفواتير اصناف].التصنيف, IIf([التوجيه]="شراء",[العدد],IIf([التوجيه]="بيع",[العدد]*-1,IIf([التوجيه]="مرتجع شراء",[العدد]*-1,IIf([التوجيه]="مرتجع بيع",[العدد]*-1,IIf([التوجيه]="تحويل",[العدد],0))))) AS الرصيد1
FROM [الفواتير اصناف];
UNION ALL SELECT [رصيد المخازن].الاسم, [رصيد المخازن].التاريخ, [رصيد المخازن].[رقم الفاتورة], [رصيد المخازن].التوجيه, [رصيد المخازن].الموديل, [رصيد المخازن].السعر, [رصيد المخازن].العدد, [رصيد المخازن].[وقت التسجيل], [رصيد المخازن].[اسم الصنف], [رصيد المخازن].[اسم المورد], [رصيد المخازن].التصنيف, [رصيد المخازن].الرصيد2
FROM [رصيد المخازن];

تحياتي

6 دقائق مضت, eng aoff jadaan said:

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

وجزاك الله خيرا 

اذا اليك هذا الرابط

واليك هذا

وايضا

5 ساعات مضت, عيسى الحوراني said:

الف شكر استاذي العزيز تقريبا نفس الذي اريده

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

هل تريد هكذا

16 دقائق مضت, حسين العربى said:

والله احزنتني ولاكن لك عزرك

يا رب اغفر لنا .. اننا احزنّا قلب واحد طيب
اعتذر بشدة
 

12 دقائق مضت, اسلام سيد said:

كيف لى ان اضع الحقل الثانى ( مخزن 2 ) تحت الحقل الاول ( مخزن 1 )

وكذالك رصيد 2 تحت رصيد 1

وجزكم الله خيرا

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

مع الاستعلام التحويل خارج

ان يكون في استعلام واحد هكذا

ام ماذا 

3 ساعات مضت, eng aoff jadaan said:

السلام عليكم اساتذتي الكرام ... اريد حفظ الصور في نفس مجلد النظام هل ممكن ذلك... 

Documents.rar

شوف هذا الرابط لعل تفيدك

19 ساعات مضت, حسين العربى said:

وبالطريقه الموضحه في المشاركه  ويكون الكود لسحب عدة صور 

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

في ١٤‏/٤‏/٢٠١٧ at 02:38, figo82eg said:

هذا ما اريده فعلا اخر الكريم ولكن عن تغيير التاريخ لاى عميل يظل الإستعلام يظهر لى نفس الشخص

عند تغير التاريخ للعميل !! لماذا تتغير التاريخ للعميل المنتهي العقد ؟
عند انتهاء العقد راح تكتب اليوم اللي فيه المنتهي العقد معه
وحينئذ راح يكون هو اكبر تاريخ على ذلك الرقم 
وعلى هذا الاساس انا جربت
مثلا عند انتهينا العقد مع شخص و نقلنا اسمه الى جدول المنتهي العقود اي تم انتهاء العقد للسيد ( محمد السيد )

وكتبنا اي عملنا تعاقد مع شخص اخر اي عملنا عقد مع السيد ( ياسين انور )

وفتحنا استعلام من جديد
شفت ان
  الصور سيكمل الحكي

ما اعرف عدا هذا ما تريد 

في ١٤‏/٤‏/٢٠١٧ at 16:42, omar19-3 said:

تمكنت من الحصول على كود يمكنه من تحديد الأيام الناقصه بين تاريخين ..

إلا أن الكود يطبق على كل السجلات رغم اختلاف المعرف لكل فرد .. مثلاً:

الفرد رقم (1): لديه يومان هما 1/3/2017، 5/3/2017

الفرد رقم (2): لديه يومان كذلك هما 8/3/2017، 10/3/2017.

عندما أطبق الكود تكون النتيجة هى إظهار الأرقام الناقصة:

2 ، 3 ، 4 ، 6 ، 7، 9.

دون الفصل بين أرقام كل شخص.

والصحيح:

الفرد الأول يكون له أرقام: 2، 3، 4.

والفرد الثانى يكون له رقم: 9.

 

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

db2.rar

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

وبعدين عملت علاقات واحد لمتعدد

ثالثا عملت نموذجين
نموذج الرئيسي ومصدره جدول اسماء الموظفين

ونموذج الفرعي لكي يسجل ايام الغياب

و في نموذج الرئيسي اضفت مرعين نصيين باسماء تاريخ الاول والتاريخ الثاني

و للتاريخ الاول مصدره هو التاريخ الاول للموظف اي كتبت هذا الكود لكي يأخذ التاريخ الاول للموظف

=IIf([ID]>0;DFirst("[StartDate]";"[times]";" [times]![ID]=" & [ID]))

وللتاريخ الثاني كتبت هذا الكود لكي يأخذ التاريخ الاخير للموظف 

=IIf([ID]>0;DLast("[StartDate]";"[times]";" [times]![ID]=" & [ID]))

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

Option Compare Database

Private Sub Command15_Click()
Dim i As Integer
    Dim i1 As Integer
        Dim sCount As Integer
            Dim F1Count As Integer
F1Count = DCount("*", "TBLMYMOAZIFIN")
    DoCmd.GoToRecord , , acFirst
For i1 = 0 To F1Count - 1
    sCount = DateDiff("d", Me.startd, Me.endd) - 2
        Forms!form1!formLost_Serial.SetFocus
            DoCmd.GoToRecord , , acNewRec
For i = 0 To sCount
    Forms!form1!formLost_Serial!missing = Format(DateAdd("d", i, Me.startd + 1), "d")
        DoCmd.GoToRecord , , acNext
    Next i
Forms!form1.SetFocus
    DoCmd.GoToRecord , "FORM1", acNext
        Next i1
    DoCmd.Requery
End Sub

واتفضل مع القاعدة db2.rar

اتمنى ان يكون هو مطلبك

تحياتي

10 ساعات مضت, محمد ابوعبد الله said:

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

لدي جدول باسماء الشهور = Months
وجدول باسماء الايام = XDay

ونموذج frm_Months عند اختيار الشهر يتم ادراج بداية الشهر في حقل = StartDate ونهاية الشهر في حقل = enddate

اريد عند اختيار الشهر يتم ادراج التواريخ بين هذين الحقلين StartDate  وحقل enddate

مثال عند اختيار شهر يناير يتم ادراج في جدول الايام = XDay

01/01/2017
02/01/2017
03/01/2017
... الى اخر الشهر

ولكم جزيل الشكر

تحياتي

db11.rar

اتفضل اخي محمد

استخدمت هذا الكود

Dim i As Integer
Dim sCount As Integer
sCount = DateDiff("d", Me.StartDate, Me.enddate)
DoCmd.GoToRecord , , acNewRec
For i = 0 To sCount
Me.XDate = DateAdd("d", i, Me.StartDate)
Me.IdMonth = Format(Me.XDate, "mm")
DoCmd.GoToRecord , , acNext
Next
DoCmd.Requery

db11.rar

استأذن من السيد @محمد ابوعبد الله على المداخلة

و مشاركة معه

اخي ابو زاهر
احذف سطر الاخير اي احذف 
 

Docmd.Close

واضف

Me.NoEmp = ""
Me.NaEMP = ""
Me.SAL = ""
Me.Alhdalmsmh = ""

اي في النهاية الكود سيكون كالتالي

Private Sub S_Click()

        Dim db As DAO.Database
        Dim Rs As DAO.Recordset
        Dim Rss As DAO.Recordset
        Set db = CurrentDb
        
        Set Rs = db.OpenRecordset("SELECT Alamla.*FROM Alamla;")
        
        Rs.AddNew
        Rs("NoEmp") = Me.NoEmp
        Rs("NaEMP") = Me.NaEMP
        Rs("SAL") = Me.SAL
        Rs("Alhdalmsmh") = Me.Alhdalmsmh
               
        Rs.Update
        Rs.close
        
        MsgBox "تم الاضافه بنجاح"
Me.NoEmp = ""
Me.NaEMP = ""
Me.SAL = ""
Me.Alhdalmsmh = ""

End Sub

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

وفي النموذج التعديل وفي مربع نصي رقم العميل Noepm

شوف الكود بعد تحديث

كان هكذ

Private Sub NoEmp_AfterUpdate()
Set Rs = CurrentDb.OpenRecordset("select * from Alamla where NoEmp = " & NoEmp & "")
If Rs.RecordCount > 0 Then
NaEMP = Rs!NaEMP
SAL = Rs!SAL
Alhdalmsmh = Rs!Alhdalmsmh
Else
MsgBox "هذا الاسم غير موجود في ملف العملاء"
NaEMP.SetFocus
NoEmp.SetFocus
NoEmp = Null
Alhdalmsmh = Null
End If
End Sub

اضف اليها هذا ( ' ) مرتين لكي يشتغل بشكل جيد لان الحقل رقم العميل هو نصي

اي سيكون الكود كالتالي

Private Sub NoEmp_AfterUpdate()
Set Rs = CurrentDb.OpenRecordset("select * from Alamla where NoEmp = '" & NoEmp & "'")
If Rs.RecordCount > 0 Then
NaEMP = Rs!NaEMP
SAL = Rs!SAL
Alhdalmsmh = Rs!Alhdalmsmh
Else
MsgBox "هذا الاسم غير موجود في ملف العملاء"
NaEMP.SetFocus
NoEmp.SetFocus
NoEmp = Null
Alhdalmsmh = Null
End If
End Sub

واخيرا اتفضل مع قاعدة البيانات

تقبل تحياتي

حفظ رقم العميل_2.rar

13 دقائق مضت, figo82eg said:

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

اليك هذا الرابظ لعل يفيدك

9 دقائق مضت, ابو زاهر said:

بارك الله فيك اخي@Shivan Rekany ربنا يا يرحمنا من ابداعتك

تحياتي ليك

بارک الله فیک وفینا اجمعین

4 ساعات مضت, ابو الآء said:

بارك الله فيك استاذى 

عمل رائع ونحتاج اليه بكثره

سوف احاول تطبيقه فى ملفاتى ان شاء الله

بارک الله فیک وفینا اجمعین

2 ساعات مضت, أواب said:

المثال 2003 لا يعمل عندي  تطلع رسالة!

ممکن ترفق صورة من الرسالة
لان عندي بيعمل كلا من نسختين

وما بها مشكلة
استاذنا @ابو خليل هل من الممكن ان تعمل تجربه 
اذا ما لك ازعاج

تقبل تحياتي

7 ساعات مضت, محمد ابوعبد الله said:

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

ووفقك الله لما يحب ويرضى

تحياتي

بارك الله فيك وفينا اجمعين

شكرا لك

4 ساعات مضت, figo82eg said:

ممكن المثال بصيغه 2003

نعم ممكن
اتفضل
تم ارفاق القاعدة باصدار 2003 ايضا

تقبل تحياتي