د.كاف يار

تفضل هذا التعديل DATA200025.mdb.zip

اتفضل التعديل DATA200024.mdb.zip

سؤال ! ماهو الغرض من هذه العملية ؟

تفضل هذه المشاركة من طرفي Dim fldrname, fldrpath, MyFile As String Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & "Files" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If MyFile = CurrentProject.Path & "\Files\" & Me.m_name & ".pdf" DoCmd.OutputTo acOutputReport, "اسم التقرير", "PDFFormat(*.pdf)", MyFile, False, "", , acExportQualityPrint

يوجد خطأ في التعديل تفضل هذا التعديل DATA200023.mdb.zip

العفو اخي الكريم و ستجدني في الخدمة دائما

تفضل التعديل IT_V1.rar

بإختصار الدوال تعني معادلة مثلا معادلة اضافة ايام الى تاريخ محدد DateAdd او معادلة حساب الفرق بين تاريخين DateDeff انصحك تلقي نظرة على منشئ التعابير ستجد بعض الدوال به و كل دالة تحمل شرح مختصر

اخي قم بتغيير اللغة للإعدادات الاقليمية كما في الصورة ادناه و النتجية

تفضل هذا التعديل DATA200022.mdb.zip

تفضل هذا التعديل تم تعديل الرسالة الى تنسيق HTML ة تم اضافة اللغة العربية للشفرة email.1.zip

تفضل التعديل email.1.accdb

تفضل التعديل DATA200019.mdb.zip

تفضل التعديل DATA200018.mdb.zip

تم عمل اللازم و كلنا مكملين لبعض و كل عام و انتم و الاحبة بكل خير اضافة الصنف الي عملية البيع (1).accdb

اعتذر من الجميع و كل عام و انتم بكل خير تفضل اخي ابو الحسن التعديل و اذا احتجت اي تعديلات اخرى انشئ موضوع جديد حتى تعم الفائدة و يكون المجال مفتوح للجميع بالمشاركة في الحل شكرا لكم DATA2000.mdb.zip

تفضل هذه المشاركة اضافة الصنف الي عملية البيع.zip

تفضل هذا التعديل empoyee - Copie (1) (1).accdb

الافضل الاتصال عند الحاجة للإضافة او استدعاء البيانات كما يمكنك تخزين البيانات التي تم جلبها في TadaTable مع تجنب الاتصال المستمر مثلا Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Data.mdb;") Using cmd As New OleDbCommand("SELECT * FROM EmployeeDATA;") Using sda As New OleDbDataAdapter cmd.Connection = con sda.SelectCommand = cmd Using dt As New DataTable() sda.Fill(dt) GridView1.DataSource = dt GridView1.DataBind() End Using End Using End Using End Using Select Case او بإستخدام المتغيرات Public con As New SqlConnection("عنوان السيرفر") Public ds As New DataSet Public da As New SqlDataAdapter Public dt As New DataTable dt.Clear() da = New SqlDataAdapter("SELECT * FROM ", con) da.Fill(dt) ' نقل البيانات من الداتا تيبل الى العناصر TextBox1.Text=dt(0)(0) TextBox2.Text=dt("رقم السطر")("اسم العمود")

اقترح عليك البدء بإنشاء الجداول على قاعدة بيانات اكسس جهزء القاعدة و ابلغني

الافضل و لمنع الدخول غير المشروع استخدام بيانات تسجيل الدخول اسم المستخدم و كلمة المرور مع البرميتر لمنع دخول من خلال الانجاكشن

نعم يمكنك التثبيت حتى اصدار 2012 و الله اعلم

لإضافة عمود جديد استخدم الأمر التالي ALTER TABLE table_name ADD column_name datatype; و لحذف عمود ALTER TABLE table_name DROP COLUMN column_name;

طيب الحمد الله باقي نقطة اخيرة اذا جرب هذا التعديل DATA2000.mdb.zip

لإضافة عمود جديد استخدم اضافة عمود جديد ALTER TABLE table_name ADD column_name varchar(255);