MO87

في 5‏/5‏/2023 at 01:46, ابوخليل said:

ملحوظة : المرفق sendwatsWebAll .. هو النسخة المحدثة والمطورة بعد أخذ آراء  وتجارب الإخوة

 

sendwatsWeb.mdb 352 kB · 315 downloads

sendwatsWebAll.rar 996.9 kB · 337 downloads

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

ولكن عندي استفسار:

عند ارسال رساله لشخص لا يوجد دردشه معه سابقا لا يعمل

هل من طريقه لارسال لاشخاص لا يوجد دردشه سابقه معهم

تفضل اخي حسب فهمي انت تحتاج كود  لإضافة الجديد وتحديث السابق في الجدول في قاعدة بيانات db1 لنقلها الي db2

استيراد بيانات جدول.rar

جرب /

Dim strFilter As String

' إنشاء الشرط لتصفية التقرير بحسب الشهر والسنة
strFilter = "Month([TxtMonth]) =" & Month([TxtMonth]) & " AND Year([TxtMonth]) =" & Year([TxtMonth])

' فتح التقرير باستخدام الشرط المعطى
DoCmd.OpenReport "rptTransfer_BEA_Ccp", acViewPreview, , strFilter

تفضل حرب

If Me.TheValueCcp <> 0 Then
    DoCmd.Close
    Dim stDocName As String
    stDocName = "Frm_VermLoans"
    DoCmd.OpenForm stDocName, , , "month([Auto_Date]) & year([Auto_Date])=" & Month([TxtMonth]) & Year([TxtMonth])
End If

تفضل محاولة احد الاعضاء تعمل بكفائة لاحظ جدول الاكسيل وقاعدة البيانات

Access Import.rar

13 ساعات مضت, سامر محمود said:

ount_day: IIf(Is

13 ساعات مضت, سامر محمود said:

count_day: IIf(IsError([date_end]-[hany]+1);0;[date_end]-[hany]+1)

تفضل جرب 

count_day: IIf(IsError([date_end] - [hany] + 1), 0, [date_end] - [hany] + 1)
او

count_day: Nz([date_end] - [hany] + 1, 0)
او ارسل مرفق للتجربة

السلام عليكم 

تم حل السؤال ولقد ارفقت قاعدة البيانات لعل احد غيري يستفيد منها.

@kkhalifa1960 انا شاكر لك اخي لقد حاولت مساعدتي وانا لم استطيع اشرح لك ما اريد حيث ان الحل كان بسيط جدا 

firsttest-1.rar

26 دقائق مضت, kkhalifa1960 said:

هل تقصد هذا ؟؟؟؟؟؟؟؟؟

اخي هذا النموذج للتحديد فقط اما عدد الايام فهو من النموذج sh من جدول غير هذا الجدول (بناء علي ادخال اسم الموظف في نموذج sh احتاجة يظهر مباشرة في جدول المستخدمين عند فتح الجدول لتحدديد الاسم ولمعرفة عدد مرات تسجيل الموظف لو لاحظت في نموذج sh الكود يظهر كل موظف هل سوف افعله الكود 300 موظف

1 ساعه مضت, kkhalifa1960 said:

شكرا اخي علي تعبك ومجهودك جزاك الله خير (ما هو المطلوب )لاني لو هو المطلوب لتركته في النموذج الرئيسي قاعدة البيانات عندي بها 300 موظف وحضرتك مسوي الكود علي 3 مستخدمين فقط

 

16 دقائق مضت, kkhalifa1960 said:

تفضل أخي وأعتذر للتأخير لمرضي .المرفق بعد اضافة طلبك . ووافني بالرد .

الف مليون سلامة اخي شفاك الله وعفاك - اسال الله العظيم رب العرش العظيم ان يشفيك ويشفي جميع مرضي المسلمين 

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

وشكرا لك

تم الوصول الي حل سؤال منهم وهو تحديد الحقول وعدم تحديد

باقي سؤال احتساب قيمة تكرار الاسم (الكود يعمل صحيح ولكن يجب تحديد مؤشر الموس عليه لكي يكون الناتج صحيح وهذا يحدث لان الحقل غير منضم والان عملت وحددة نمطية حاولت استدعائها من استعلام q1 ولكن لا تظبط ممكن المساعدة .

وشكرا للجميع

firsttest-1.rar

@kkhalifa1960 شكرا علي اهتمامك اولا السوال الاول قيمة n11 - ليست ثابته ولكن متغير حسب الادخال في نموذج sh

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

شكرا علي مجهودك

السلام عليكم 

السادة خبراء واعضاء الجروب المحترمين   (تحية طيبة)

عندي قاعدة بيانات بها عدد 2 نموذج احتاج في نموذج SEmp1 اولا احتاج عند تحديد الشيك بوكس cn لو ضغط علي سجلين قيمة str_Text تساويهم بهذا الشكل fad+hop وكذلك لو اكثر من تحديد حيث الناتج يكون اول سجل فقط تم تحديده بمؤشر الموس (الكود الخاص بي يعطي الناتج صحيح ولكن بعد تحديد السجل بالمؤشر الموس)

ثانياً : احتاج عند فتح النموذج قيمة n11 تساوي الحقل empname ان يتحدث امام كل سجل القيمة الخاصة به مثلا fad=4 hop =5 حيث الناتج يكون اول سجل فقط تم تحديده بمؤشر الموس (الكود الخاص بي يعطي الناتج صحيح ولكن بعد تحديد السجل بالمؤشر الموس)

كما صممت وحدة نمطية وتم الاستدعاء ولكن نفس الناتج 

وشكرا مقدما

firsttest.rar

15 ساعات مضت, دروب مبرمج said:

افضل طيقة بأن تقوم بتصميم التقارير على ملف وورد

مرفق مثال لإرسال البيانات من الاكسس الى الوورد

سيتم حفظ ملف الوورد بصيغتين Word و PDF

ممكن التطبيق علي بوربيونت بدل وارد

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

<> تساوي  =

المشكلة عندك في تعارض بعض الاكود مع بعضها  احيانا بعض الاكواد تتعارض مع بعض فيجب معرفة مكان استخدام الكود (تقرير - نموذج) هل بطبق علي حقل منضم او غير منضم

ارفع ملف لمعرفة الخطا

سوف ارفق لك مثال بسيط يعمل

Database21.rar

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

data.rar

السلام عليكم 

لقد وجدت  قاعدة البيانات علي موقع اجنبى وكانت المخرجات ورقة واحدة الان عدلت الكود علي الكود  مثلا ان المخرج يكون 3 شرائح المفروض ان يكون لكل صفحة في الملف شريحة بوربيونت الكود يعمل ولكن يتم وضع اول صفحة في جميع الشرائح احتاج كل صفحة في ملف pdf تساوي شريحةpowerpoint

وهل لو في طريقة اخري 

احتاج تنفيذ الامر بدون مكتبات خارجية 

الموضوع تقريبا جديد لم اجده في البحث

وشكرا مقدما

FAULTS COMPLAINT.ZIP

في 14‏/3‏/2023 at 14:56, MO87 said:

السلام عليكم

السادة المحترمين اعضاء وخبراء اوفيسنيا

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

وشكرا للجميع

FILTER.rar 98.13 kB · 15 downloads

تم الحل وهذا هو كود التحديد

Dim rs As Recordset
Set rs = Me.RecordsetClone
rs.MoveFirst
Do Until rs.EOF
    rs.Edit
    If rs![Select] = "R" Then
        rs![Select] = "T"
    Else
        rs![Select] = "R"
    End If
    rs.Update
    rs.MoveNext
Loop

DoCmd.SetWarnings True

Exit Sub

ErrorHandler:
MsgBox "Error " & err.Number & ": " & err.Description
End Sub

السلام عليكم

السادة المحترمين اعضاء وخبراء اوفيسنيا

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

وشكرا للجميع

FILTER.rar

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

احتاج ان العملية تتم مباشرة من نفس زر ارسال اوتلوك بحيث يطبع التقرير يساوي id نفس السجل + المرفق

الرجاء من السادة الخبراء المساعدة

test1.rar

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

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim strto As String
Dim strsubject As String
Dim strattachments As String
strto = ""
strsubject = ""
strbody = ""
strattachments = Me.Imagepath.Value

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
    
With OutMail
    .To = strto
    .subject = strsubject
    .Body = strbody
    .Attachments.Add CurrentProject.Path & "\reportnotice.pdf"
    .Attachments.Add strattachments
    .Display
End With

Set OutMail = Nothing
Set OutApp = Nothing

السلام عليكم

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

الرجاء المساعدة في فتح الاوتلوك علي المرفق والتعميم سويا

وشكرا مقدما لحضرتكم

On Error Resume Next
Dim OutlookApp As Outlook.Application
    Dim OutlookMail As Outlook.MailItem
    Dim StrTo As String
    Dim StrSubject As String
    Dim StrBody As String
    Dim StrAttachment As String
    Dim fileName As String
Dim db As DAO.Database, rs As DAO.Recordset
fileName = Application.CurrentProject.Path & "\reportNotice.pdf"
    DoCmd.OutputTo acReport, "reportNotice", acFormatPDF, fileName, False

    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(olMailItem)
    StrTo = ""
    StrSubject = "reportNotice"
    StrBody = "Please find the attached report."
    StrAttachment = Me.Imagepath.Value

    With OutlookMail
        .To = StrTo
        .subject = StrSubject
        .Body = StrBody
        .Attachments.Add StrAttachment
        .Display
        .oMail.Send

    End With

    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
         end sub

15 ساعات مضت, ابوخليل said:

هذا حسب ما فهمت

اتمنى ان يحقق مطلوبك

ff3.rar 39.91 kB · 9 downloads

تمام اخي @ابوخليل بارك فيك وجعله في ميزان حساناتك

27 دقائق مضت, ابوخليل said:

حقيقة لم افهم رغم اني اعدت قراءت جميع مشاركاتك عدة مرات

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

كما هو حاصل في الصورة

 

اشرح لي على الصورة ما تريد بالضبط ثم ارفعها مرة اخرى

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

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

الحقل اللي هيترحل هيتكرر كل شهر هو نفسه هيتم تكراره

21 دقائق مضت, ابوخليل said:

تقصد ان القيمة واحدة في جميع السجلات؟

اخي @ابوخليل لو لاحظت العلاقه في الجداول one to many  بدل إدخال البيانات حقل حقل احتاج نسخ المعرف من جدول one لكل السجلات اللي هحددها المفروض عندي حقل التاريخ ورقم الإجراء الإثنين متغيرين في جدول  many 

احتاج طريقه تسهل الإدخال بدل لما اكتب كود المعرف ١ وادخل التاريخ ورقم الإجراء لكل حقل 

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

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

وشكرا لاهتمام حضرتك