د.كاف يار

طيب جرب هذا Nz([سندات القبض]![Amount];0)

تفضل Nz([سندات القبض]![Amount];0)

عفوا هذا تعديل الخطأ في الأيام Overtime2019.accdb

تفضل هذا الحل Overtime2019.accdb

انا حاليا اقوم باستخدام هذا الكود حيث ان المستخدم يستطيع ارسال كلمة المرور الخاصة به من خلال اداخل اسم المستخدم فقط con.Open() Try Using mm As New MailMessage("xxxxxxx@gmail.com", "xxxxxxxxxx@gmail.com") mm.CC.Add(New MailAddress("xxxxxxx@gmail.com", "xxxxxxx@gmail.com")) mm.Subject = "استعادة كلمة المرور" mm.Body = "رسالة للمستخدم تحتوي على كلمة المرور و اسم المستخدم" mm.IsBodyHtml = True Dim smtp As New SmtpClient() smtp.Host = "smtp.gmail.com" smtp.EnableSsl = True Dim NetworkCred As New NetworkCredential("xxxxxx@gmail.com", "xxxxxpasswordxxxxx") smtp.UseDefaultCredentials = True smtp.Credentials = NetworkCred smtp.Port = 587 smtp.Send(mm) Label1.Text = "تم ارسال كلمة المرور بنجاح" End Using Catch ex As Exception End Try con.Close()

اخي الكريم هل تقصد انك تريد انشاء موقع ويب و تصميم نماذج كالتي في الاكسس ان كان هذا طلب فعليك استخدام visual studio - ASP VB فإن كانت لديك خبرة في الاكسس فهي الأقرب للأكسس كذلك لو تم رفع الموقع على سيرفر خارجي تستطيع استعمال الموقع من خلال الهواتف المحمولة و التابلت و غيرها و انشاء تقارير و عمل احصائيات بكفائة عالية

انصحك اخي الكريم بتعلم البرمجة بلغة #C فهي الرائجة حاليا حتى في تطبيقات الهواتف لكن اذا احببت ان تقوم بإنشاء برامج تعمل على الحاسوب و كذلك متصفحات الهواتف و في لغتها متشابهة الى حد كبير بالاكسس اصنحك ب ASP VB

تفضل هذا التعديل Overtime2019.accdb

الف الف سلامة عليك يا خالي اجر و عافية و طهور انشاء الله أسأل الله العظيم رب العرش العظيم أن يشفيك أسأل الله العظيم رب العرش العظيم أن يشفيك أسأل الله العظيم رب العرش العظيم أن يشفيك

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

تفضل جرب هذا اخي الكريم السبب ان اصدار الاوفيس لديك قديم لكن جرب المرفق و اعطيني النتائج مثال للتعامل مع الصور.mdb

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

ارهقني جدا التعامل مع الأكسس بسبب انه يفتقر للمكتبات سؤال اخي الكريم ... ماذا لو تمكنا من اضافة مكتبة ادوات iTextSharp فأنا استخدم هذه المكتبة مع لغة VB.ASP/#C/VB.NET انظر الى هذا المثال لهذه المكتبة و الذي من خلاله قمنا بإنشاء ملف PDF من خلال الكود و وضعنا به جميع البيانات و الصور كذلك سهولة توصيل الماسح الضوئي و الكاميرا سواء للهاتف المحمول او اللابتوب او اي كميرا خارجية Try Dim d As New Document(PageSize.A4, 20.0F, 0.0F, 0.0F, 0.0F) PdfWriter.GetInstance(d, New FileStream(MapPath("~/Files/محضر اثبات حالة.pdf"), FileMode.Create)) Dim bflatha As BaseFont = BaseFont.CreateFont(MapPath("~/timesbd.ttf"), BaseFont.IDENTITY_H, False) Dim Font As Font = New Font(bflatha, 14) d.Open() Dim image1 = iTextSharp.text.Image.GetInstance(MapPath("~/22.png")) image1.ScaleAbsolute(600.0F, 120.0F) d.Add(image1) Dim image2 = iTextSharp.text.Image.GetInstance(MapPath("~/11.png")) image2.ScaleAbsolute(220.0F, 100.0F) d.Add(image2) Dim image3 = iTextSharp.text.Image.GetInstance(MapPath("~/3.png")) image3.ScaleAbsolute(600.0F, 30.0F) d.Add(image3) Dim ph1 As Paragraph = New Paragraph("" & vbNewLine & TextBox3.Text, Font) Dim table1 As PdfPTable = New PdfPTable(1) table1.RunDirection = Element.ALIGN_JUSTIFIED Dim cell1 As PdfPCell cell1 = New PdfPCell(ph1) cell1.RunDirection = PdfWriter.RUN_DIRECTION_RTL cell1.HorizontalAlignment = Element.ALIGN_JUSTIFIED d.Add(table1) cell1.Border = 0 table1.AddCell(cell1) d.Add(table1) Dim ph2 As Paragraph = New Paragraph("" & vbNewLine & TextBox4.Text, Font) Dim table2 As PdfPTable = New PdfPTable(1) table2.RunDirection = Element.ALIGN_CENTER Dim cell2 As PdfPCell cell2 = New PdfPCell(ph2) cell2.RunDirection = PdfWriter.RUN_DIRECTION_RTL cell2.HorizontalAlignment = Element.ALIGN_CENTER d.Add(table2) cell2.Border = 0 table2.AddCell(cell2) d.Add(table2) Dim ph As Paragraph = New Paragraph("" & vbNewLine & t3.Text, Font) Dim table As PdfPTable = New PdfPTable(1) table.RunDirection = Element.ALIGN_JUSTIFIED Dim cell As PdfPCell cell = New PdfPCell(ph) cell.RunDirection = PdfWriter.RUN_DIRECTION_RTL cell.HorizontalAlignment = Element.ALIGN_JUSTIFIED d.Add(table) cell.Border = 0 table.AddCell(cell) d.Add(table) Dim ph8 As Paragraph = New Paragraph("" & vbNewLine & TextBox5.Text, Font) Dim table8 As PdfPTable = New PdfPTable(1) table8.RunDirection = Element.ALIGN_CENTER Dim cell8 As PdfPCell cell8 = New PdfPCell(ph8) cell8.RunDirection = PdfWriter.RUN_DIRECTION_RTL cell8.HorizontalAlignment = Element.ALIGN_CENTER d.Add(table8) cell8.Border = 0 table8.AddCell(cell8) d.Add(table8) Dim ph11 As Paragraph = New Paragraph(job.Text, Font) Dim table11 As PdfPTable = New PdfPTable(1) Dim cell11 As PdfPCell cell11 = New PdfPCell(ph11) cell11.RunDirection = PdfWriter.RUN_DIRECTION_RTL cell11.HorizontalAlignment = Element.ALIGN_RIGHT d.Add(table11) cell11.Border = 0 table11.AddCell(cell11) d.Add(table11) Dim image44 = iTextSharp.text.Image.GetInstance(MapPath("~/stamp/" & seig.Text.Trim)) image44.ScaleAbsolute(100.0F, 50.0F) image44.Alignment = Element.ALIGN_LEFT Dim table42 As PdfPTable = New PdfPTable(1) Dim cell42 As PdfPCell cell42 = New PdfPCell(image44) cell42.RunDirection = PdfWriter.RUN_DIRECTION_RTL cell42.HorizontalAlignment = Element.ALIGN_RIGHT d.Add(table42) cell42.Border = 0 table42.AddCell(cell42) d.Add(table42) Dim ph4 As Paragraph = New Paragraph(usernamem.Text, Font) Dim table4 As PdfPTable = New PdfPTable(1) table4.RunDirection = BorderStyle.None Dim cell4 As PdfPCell cell4 = New PdfPCell(ph4) cell4.Border = 0 cell4.RunDirection = PdfWriter.RUN_DIRECTION_RTL cell4.HorizontalAlignment = Element.ALIGN_RIGHT d.Add(table4) cell1.Border = 0 table4.AddCell(cell4) d.Add(table4) Dim image5 = iTextSharp.text.Image.GetInstance(MapPath("~/stamp/" & stamp.Text.Trim)) image5.ScaleAbsolute(100.0F, 50.0F) image5.Alignment = Element.ALIGN_LEFT Dim table3 As PdfPTable = New PdfPTable(1) Dim cell3 As PdfPCell cell3 = New PdfPCell(image5) cell3.RunDirection = PdfWriter.RUN_DIRECTION_RTL cell3.HorizontalAlignment = Element.ALIGN_RIGHT d.Add(table3) cell3.Border = 0 table3.AddCell(cell3) d.Add(table3) d.Close() Response.Clear() Response.ContentType = "application/octet-stream" Response.AddHeader("Content-Disposition", "attachment; filename=""downloadName.pdf""") Response.WriteFile(Server.MapPath("~/Files/محضر اثبات حالة.pdf")) Response.End() Catch ex As Exception Label1.Text = ex.Message.ToString End Try

اخي الكريم تم انشاء استعلام الحاقي ادخل على عرض التصميم و احذف الحقول التي تريدها هذا كل شئ تفضل هذا الشرح

تفضل هذا المثال مثال للتعامل مع الصور.mdb

تفضل التعديل اخي الكريم test (1).rar

تفضل اخي الكريم If [ActiveXCtl0].Visible = False Then [ActiveXCtl0].Visible = True Else [ActiveXCtl0].Visible = False End If

تفضل التعديل اخي الكريم Overtime2019.accdb

تفضل اخي الكريم اسم عنصر التحكم حسب ماهو مسجل لديك [ActiveXCtl0].Visible = False

تفضل هذا التعديل اخي الكريم Overtime2019.accdb

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

اذا انشئ استعلام اخر مبنى على نفس هذا الاستلام بدون اضافة التاريخ بحيث يكون فلتر التاريخ في الاستعلام الاول فقط تفضل الملف بعد التعديل * تم التعديل على معايير الاستعلام * تم انشاء استعلاميين Base de données4.accdb

تفضل اخي الكريم حساب التقاعد2003.mdb

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

اذا تفضل هذا التعديل اخي الكريم حساب التقاعد.accdb