د.كاف يار

تفضل جرب هذا التعديل و لا تنسى ان تضع عنوان السيرفر Function NewSours(StartDate As Variant, EndDate As Variant) As Variant On Error GoTo ErrH Dim conn As ADODB.Connection, rs As ADODB.Recordset, strConnString As String, varFilter As Variant StartDate = Format([TxtStartDate], "\#mm\/dd\/yyyy\#") EndDate = Format([TxtEndDate], "\#mm\/dd\/yyyy\#") If Not IsNull(TxtStartDate) And IsNull(TxtEndDate) Then varFilter = " Format$([Startdate], '\#mm\/dd\/yyyy\#') = '" & StartDate & "' " ElseIf Not IsNull(TxtStartDate) And Not IsNull(TxtEndDate) Then varFilter = " Format$([Startdate], '\#mm\/dd\/yyyy\#') Between '" & StartDate & "' AND '" & EndDate & "'" ElseIf Len(TxtStartDate) = 0 And Len(TxtEndDate) = 0 Then varFilter = Null End If '================================================================== strConnString = "عنوان السيرفر" '================================================================== Set conn = New ADODB.Connection conn.Open strConnString Set rs = conn.Execute("SELECT * FROM tbl_Employ " & IIf(Len(varFilter) = 0, "", "Where " & varFilter)) If Not rs.BOF And Not rs.EOF Then rs.MoveFirst 'رؤوس الأعمدة ListData.AddItem rs.Fields(0).Name & ";" & rs.Fields(1).Name & ";" & rs.Fields(2).Name & ";" & rs.Fields(3).Name While (Not rs.EOF) ListData.AddItem rs.Fields(0) & ";" & rs.Fields(1) & ";" & rs.Fields(2) & ";" & rs.Fields(3) rs.MoveNext Wend End If rs.Close Set rs = Nothing ErrH: Exit Function End Function SearchFormatListBox.accdb

تفضل جرب هذا التعديل في اي مكان داخل محرر الأكواد الصق الكود التالي Function NewSours(StartDate As Variant, EndDate As Variant) As Variant On Error Resume Next Dim varFilter As Variant StartDate = Format([TxtStartDate], "\#mm\/dd\/yyyy\#") EndDate = Format([TxtEndDate], "\#mm\/dd\/yyyy\#") If Not IsNull(TxtStartDate) And IsNull(TxtEndDate) Then varFilter = " Format$([Startdate], '\#mm\/dd\/yyyy\#') = '" & StartDate & "' " ElseIf Not IsNull(TxtStartDate) And Not IsNull(TxtEndDate) Then varFilter = " Format$([Startdate], '\#mm\/dd\/yyyy\#') Between '" & StartDate & "' AND '" & EndDate & "'" ElseIf Len(TxtStartDate) = 0 And Len(TxtEndDate) = 0 Then varFilter = Null End If NewSours = "SELECT * FROM tbl_Employ " & IIf(Len(varFilter) = 0, "", "Where " & varFilter) End Function و لاستدعاء الوظيفة استخدم الكود التالي ListData.RowSource = NewSours(TxtStartDate, TxtEndDate) SearchFormatListBox.accdb

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

تفضلي هذا التعديل لكن يجب تسجيل الفصول الدراسية اولاً و تم اعداد نموذج لذلك و بعد التسجيل بالإمكان اختيار الاسابيع الدراسية حسب الفصل الدراسي المحدد New Microsoft Office Access 2007 قاعدة بيانات (2)(1).mdb

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

تفضل اضف هذا الكود في جميع الصفحات في حدث عند الفتح Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "Label" Then Form.Controls(ctl.Name).Caption = Replace(Translate(Form.Controls(ctl.Name).Caption, "auto", "ar"), ":", "") Form.Controls(ctl.Name).FontName = "Times New Roman" Form.Controls(ctl.Name).FontWeight = 900 End If If TypeName(ctl) = "CommandButton" Then Form.Controls(ctl.Name).Caption = Replace(Translate(Form.Controls(ctl.Name).Caption, "auto", "ar"), ":", "") Form.Controls(ctl.Name).FontName = "Times New Roman" Form.Controls(ctl.Name).FontWeight = 900 End If If TypeName(ctl) = "Page" Then Form.Controls(ctl.Name).Caption = Replace(Translate(Form.Controls(ctl.Name).Caption, "auto", "ar"), ":", "") End If Next ctl الترجمة بإستخدام Google Database12222.zip

هل يوجد لديك ملف اكسل تريد تصدير البيانات اليه ؟ ام انك تريد انشاء ملف اكسل برمجياً ؟

تفضلي هذا التعديل New Microsoft Office Access 2007 قاعدة بيانات (2).accdb

اخي عمر ماهو نوع الحقل الذي تستخدمه ؟

تفضل هذه الفكرة ************ الكتابة داخل التحديد ************ - يمكن الكتابة داخل التحديد - في حال ناسبتك الفكرة يمكن تعديل حدود التعديل لتكون على حدود السيارة بالضبط و لكن تحتاج الى مجهود للقياس مرفق الملف ******* يجب ان فك الضغط عن الملف و فتح الملف عن طريق المتصفح ملاحظة لتنفيذ هذه الفكرة يجب ان يكون لديك خلفية جيدة عن لغة HTML AND CSS و لكي تتعمق اكثر يجب كذلك ان يكون لديك خلفية للتعامل مع لغة javascript للاتصال بجداول قاعدة البيانات ما تطحمه له ليس مستحيل بل سيكون سهلا اذا تعلمات للغات برمجة اخرى كذلك بالإمكان فتح الملف من خلال الاكسس و بإستخدام عنصر الويب web.zip

فقط اضف رقم نوع البيانات الى الكود و سيتعرف عليها

تفضل هذا التعديل مع بعض التعديلات على المكتبة و الاكواد حتى يكون اكثر تفاعلاً عند الاختيار و التنقل __Domain Functions Builder V1.0.accdb تم تغيير المكتبة يرجى تجربة اخر تعديل

تفضل هذا المثال tbv.accdb

تفضل ضع هذا الكود في ازرار الاخفاء Dim db As DAO.Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM [MSysNameMap] where [Type]=1 or [Type]=5") rs.MoveFirst While (Not rs.EOF) Application.SetHiddenAttribute acTable, rs.Fields(2).Value, True rs.MoveNext Wend rs.Close: Set rs = Nothing

عمل اكثر من رائع و احترافي تفضل هذا التعديل البسيط لراحة المتسخدم اسهل من ناحية اختيار نوع البيانات __Domain Functions Builder V1.0.accdb

يرجى تقديم وصف للمشكلة و ارفاق مثال عليها

تفضل جرب هذا التعديل Backup.zip

جرب هذا التعديل Database1.zip

فضل هذه المحاولة في حدث عند الفتح ضح الكود التالي [id_n].DefaultValue = Year(Now()) & DCount("*", "T_takrir") + 1 [id_n].Format = "0000 - 0" مرفق التعديل جورج الطويل.accdb

تفضل هذه الجزئية DateDiff('yyyy',[EmpBirthDate],Now()) Between " & _ Me.txtFrom & " And " & Me.txtTo

اخي حلبي اتوقع انك تحتاح حين البيع - بالكرتون يتم خصم كرتون من المخزون - و عند البيع بالعلبة يتم خصم علبة من الكرتون علبة - و عند البيع بالحبة يتم الخصم من العلبة و اذا انتهت العلبة يتم خصم من العلبة التي يليها و اذا انتهت جميع العلب يتم الخصم من اول علبة من الكرتون التالي

تطبيق الفاتورة الاكترونية حسب متطلبات هيئة الزكاة و الضريبة السعودية كما انه تم الاستفادة من الكود الخاص بالأستاذ / @ابو جودي رابط الموضوع يمكن التجربة من خلال الرابط التالي InvoiceSA.somee.com كما يمكن تحميل المشروع للمطورين من خلال الرابط اعلاه

هذه المتغييرات للإعلان عن ان المكتبة المستخدم هي الاكسل نوع التطبيق - الصفحة - الورقة Dim xlApp As Excel.Application ' التطبيق Dim xlWb As Excel.Workbook ' الملف Dim xlWs As Excel.Worksheet ' الورقة بعد الاعلان عن المتغييرات كإجراءات بإننا سوف نقوم باستخدام وظيفة محددة يجب تزويد المكتبة او الوظيفة ببعض المعطيات كمسار ملف الاكسل Set xlWb = xlApp.Workbooks.Open("مسار ملف الاكسل") Set xlWs = xlWb.Worksheets(1) ' رقم الورقة داخل ملف الاكسل بعد فتح الملف الآن ما ذا تريد ان تفعل من خلال التالي تستطيع التعامل مع الخلية داخل الورقة x= رقم السطر y= رقم العمود xlWs.Cells(x, Y).Value التطبيق xlWs.Cells(1, 1).Value هذا باختصار شرح اساسيات الكود

اقترح عليك ان تستخدم قناع الادخال لكل عنصر مثال على ذكل لدينا مربع نص رقمي و ليكن مثلا يتكون من عدد 4 حقول و يمثل حقل ID و يكون قناع الادخال بهذا الشكل بالتالي فأن القيمة المدخلة ستكون رقمية و لن يقبل القيم النصية مثال آخر لقيمة نصية هنا لدينا مربع نصي لإدخال الاسم و التنسيق الافتراضي له هو حروف فقط يكون قناع الادخال بهذا الشكل بإختصار من خلال قناع الادخال بإمكانك التحكم بنوعة الادخال لكل حقل فمثلا لو كنت تريد ما يلي :- اجبار المستخدم على ادخال قيمة نصية محددة لا تزيد عن رقم فيكون قيمة قناع الادخال هو : 0 اما لو اردنا المستخدم ادخال عدد محدد من الارقام مثلا تسعة ارقام فيكون قيمة قناع الادخال هو : 9 اما مثلا لو اردنا اجبار المستخدم على ادخال رقمين و حرفين فيكون قيمة قناع الادخال بهذا الشكل : ##LL لتمكين المستخدم من ادخال حروف و ارقام بعدد محدد مثلا خمسة حروف او ارقام فيكون قناع الادخال بهذا الشكل : AAAAA ******* ملاحظة ************* الحروف في قناع الادخال مثلا A كبير فيعني ادخال اجباري اما لو كان الحرف صغير a فيعني ادخال اختياري كما ستجد بعض نماذج اقنعة الادخل من خلال الخصائص

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