نجوم المشاركات

اتفضل هذه الطريقة يرجع لخبيرنا المخفي حاليا استاذ @رمهان اتفضل اليك المرفق DeleteDatabase1.rar

اتفضل تم استخدام هذا الكود Private Sub com7_Click() Dim Sql As String Sql = "DELETE TblForPrintBarcode.* FROM TblForPrintBarcode;" DoCmd.SetWarnings False DoCmd.RunSQL (Sql) DoCmd.SetWarnings True Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From TblForPrintBarcode") Dim i As Integer Form_FM4F.Recordset.MoveFirst For i = 1 To Form_FM4F.Recordset.RecordCount Dim ii As Integer For ii = 1 To Form_FM4F.Qut rst.AddNew rst!Ds_Product = Form_FM4F.Ds_Product ' rst!price_b = Form_FM4F.pr rst!Code_Product = Form_FM4F.Code_Product rst!Date_Ex = Form_FM4F.Date_Ex rst.Update Next ii Form_FM4F.Recordset.MoveNext Next i rst.Close: Set rst = Nothing Dim stDocName As String stDocName = "dd" DoCmd.OpenReport stDocName, acViewPreview End Sub واضفت جدول خاص للطباعة الباركود و غيرت في اسماء النماذج اليك المرفق Database1.2.rar

فی الاستعلام استخدم NZ مثل Nz([B_TOTL];0)

تعلم برمجة اكسل كود VBA كود دالفي مع دمج اكسل المبرمج مناد سفيان يرحب بكم قريبا مع المبرمج : مناد سفيان @كل الحقوق محفوظة 2017@

تم عمل برنامج لمراقبة مؤشرات الاداء للعمليات وله تقارير مفيدة جدا لكنها تقليدية اريد اضافة تقارير التي تعبر بصورة حديثة عن مؤشرات الاداء KPI مثل العدادات Gauges واشكال كثيرة جدا منتشرة في برامج Dashboards النتخصصة في التقارير كيقية اضافة KPI GAUGES الى تقارير Access وشكرا

انا غيرت عدد الاعمدة في التقرير الى 5 عمود غيرها الى عمود واحد

أهلا بك أبو زاهر.. لم استطع فهم آلية إدراج الأصناف في الفاتورة.. لكن إن كان الموضوع يتعلق بما أشرت إليه من تسبب المنهج (Me.Recalc) في تعطل الإضافة؛ فقد تراجعت عنها واستخدم الأسلوب الشرطي فقط.. تشابك التلوين بين السجلان_.zip

أهلا بك أبو زاهر.. المرفق مغلق لمخالفة القوانين.. حاول فتح مشاركة جديدة من فضلك

الدرس الحادي عشر: جمل SQL هذا الدرس مخصص لشرح جمل SQL: Create: نستخدم هذه الجملة لإنشاء جدول جديد و طريقة كتابة الجملة كالتلي: Create Table table_name (field1 type_field, field2 type_field); table_name : اسم الجدول المراد إنشاؤه field1, field2 ....: أسماء الحقول type_field : نوع الحقل مثال : الكود التالي يقوم بإنشاء جدول اسمه salah و به حقلين id و nname Dim req As String req = "create table salah (id integer, nname string(12));" DoCmd.RunSQL req نستخدم الكود Docmd.RunSQL من أجل تنفيذ جمل SQL Drop: نستخدم هذه الجملة لحذف جدول معين و طريقة كتابة الجملة كالتلي: Drop Table table_name; table_name : اسم الجدول مثال : الكود التالي يقوم بحذف جدول اسمه salah Dim req As String req = "Drop Table salah;" DoCmd.RunSQL req Alter: نستخدم هذه الجملة للتعديل على تصميم جدول معين بإضافة حقول جديدة أو حذف حقول موجودة و طريقة كتابة الجملة كالتلي: Alter Table table_name Add Column new_field type_field; table_name : اسم الجدول new_field: اسم الحقل الجديد type_field: نوع الحقل الجديد مثال1 : الكود التالي يقوم بإضافة حقل جديد اسمه adress في جدول salah Dim req As String req = "Alter Table salah Add Column adress string;" DoCmd.RunSQL req مثال2 : الكود التالي يقوم بحذف حقل اسمه adress في جدول salah Dim req As String req = "Alter Table salah Column Drop adress;" DoCmd.RunSQL req Select: نستخدم هذه الجملة لاستخراج مجموعة سجلات من جدول معين (استعلام) و طريقة كتابة الجملة كالتلي: Select * table_name Where condition; table_name : اسم الجدول *: تعني اظهار جميع الحقول و يمكن كتابة بعض الحقول في مكانها condition: الشرط الذي يوضع لاستخراج السجلات مثال : الكود التالي يقوم بإستخراج السجل الذي رقمه (ID) يساوي 3 في جدول salah Dim req As String req = "select * from salah where id=3;" Me.RecordSource = req السطر الأخير معناه نجعل مصدر السجلات لنموذج الحالي هو الاستعلام req Delete: نستخدم هذه الجملة لحذف مجموعة سجلات من جدول معين و طريقة كتابة الجملة كالتلي: Delete table_name Where condition; table_name : اسم الجدول condition: الشرط الذي يوضع لاستخراج السجلات مثال : الكود التالي يقوم بحذف السجل الذي رقمه (ID) يساوي 3 في جدول salah Dim req As String req = "Delete From salah where id=3;" DoCmd.RunSQL req Insert: نستخدم هذه الجملة لإضافة سجل جديد إلى جدول معين و طريقة كتابة الجملة كالتلي: INSERT INTO table_name ("column1", "column2", ...) VALUES ("value1", "value2", ...) مثال : الكود التالي يقوم بإضافة سجل جديد لجدول salah Dim req As String req = "insert into salah1 (id, nname) values (11,'أوفيسنا');" DoCmd.RunSQL req Update: نستخدم هذه الجملة لتغيير قيمة سجل في حقل معين لجدول ما و طريقة كتابة الجملة كالتلي: Update table_name Set field='value' Where condition; مثال : الكود التالي يقوم بتعديل قيمة الحقل nname إلى 'محسن' في السجل الذي رقمه (id) 3 بالجدول salah Dim req As String req = "update salah set nname='محسن' where id=3;" DoCmd.RunSQL req

اذن لا تقدر

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

لا اعرف كيف تكتب الساعة ... هل تكتب ارقام عادية ام تكتب ساعة و دقائق اذاً اذا تريد ان تكتب ارقام عادية اليك الكود الاسفل واذا تريد ان تكتب ساعة مع الدقائق غير الارقام في الكود الى ساعة Private Sub Command8_Click() Dim Mablax1 As Integer Dim Mablax2 As Integer If Me.Text2 >= 9 Then Me.Text6 = Me.Text0 * 0.02 * (Me.Text4 - Me.Text2) ElseIf Me.Text2 < 9 Then If Me.Text4 >= 9 Then Mablax1 = Me.Text0 * 0.01 * (9 - Me.Text2) Mablax2 = Me.Text0 * 0.02 * (Me.Text4 - 9) Me.Text6 = Mablax1 + Mablax2 Else Me.Text6 = Me.Text0 * 0.01 * (Me.Text4 - Me.Text2) End If End If End Sub

استخدم DlookUp او ارفق نسخە مصغرە من قاعدە بیاناتک

السلام عليكم الطريقة الاصح هي حفظ البيانات اولا ، ثم تحديثها في النموذج الآخر ، وخصوصا اذا كنت تدخل البيانات في نموذج فردي if me.dirty then me.dirty=false 'or 'docmd.RunCommand acCmdSaveRecord 'or 'me.refresh 'or 'me.requery Forms!form1!cboStudnts.requery ثم كود اغلاق النموذج رقم اثنين . جعفر

السلام عليكم إخواني وأخواتي ، بارك الله فيكم جميعاً درسنا اليوم حول نفس الموضوع السابق وهو استنساخ مجموعة التسجيلات بواسطة Recordsetclone ولكن هذه المرة مع ADO . قد يظن البعض أن الأمر في غاية البساطة وذلك باستخدم نفس المثال السابق مع تغيير السطر التعريف الأساسي Dim rstEmployees As DAO.Recordset إلى Dim rstEmployees ADODB.Recordset حسناً هكذا يبدو الأمر ، جربوه ولن ينجح حيث ستحصلون في الجملة Set rstEmployees = Me.Form.RecordsetClone على الخطأ Type mismatch أي أن الأنواع غير متوافقة يعني المجموعة المستنسخة من نوع أخر وهذا صحيح ! ، أنسيتم السطرين السابقين باللون الأحمر ، فأنا لم ألونهما جزافاً واعيدهما هنا مرة أخرى للتذكير من المهم ملاحظة أن نوع مجموعة التسجيلات التي يتم تعريفها في وضع التصميم في قاعدة البيانات mdb. هي بشكل تلقائي DAO Recordset ، أما في مشروع أكسيس فتكون ADO Recordset إذاً هذا هو السبب أن مصدر السجلات الذي عرفنه في النموذج والذي سيمثل مجموعة التسجيلات سيكون من النوع DAO . حسناً ، الحل بسيط نرجع للمراجع ونجعل مرجع ADO يسبق مرجع DAO بالتعريف وهكذا يتم تحديد نوع مجموعة التسجيلات من نوع ADO ، جربوه وللأسف لن ينجح ، و ياليت الحل كان بهذه البساطة! ماذا نجري الأن ؟ لم يبقى لنا إلا أن نفعل شيء واحد ونأمل أن ينجح وهو حذف المرجع DAO (عدم اختياره من ضمن المراجع) ، جربوا ذلك ، ويا للعجب ، حتى أننا بعد حذف المرجع كاملا لم يتم تعريف مجموعة التسجلات المرتبطة بالنموذج من نوع ADO . ماذا سنعمل إذن ، أولا سنحفظ القاعدة التي في اللون الأحمر حتى لا نتعب أنفسنا أكثر حيث لا يوجد طريقة نهائيا في وضع التصميم لجعل النموذج يرتبط بمجموعة تسجيلات غير DAO . ثأنيا ، لا تبتأسوا كثيرا حيث يوجد حل وهو رائع جدا وهو كما يلي وأيضاً يمكن اعتباره قاعدة ويجب حفظه غيباً. إذا أردنا أن نجعل مجموعة التسجيلات لنموذج في قاعدة mdb. تعمل بتقنية ADO يجب عمل الخطوات الثلاث التالية. 1. في وضع التصميم للنموذج نلغي مصدر السجل Record source للنموذج (أي نجعله بدون مصدر) . 2. في حدث الفتح للنموذج نضع الكود التالي بدون تغيير سوى بمصدر السجل الذي هو في مثالنا جدول employees : Private Sub Form_Open(Cancel As Integer) Dim rst As ADODB.Recordset, cn As ADODB.Connection Set rst = New ADODB.Recordset rst.ActiveConnection = CurrentProject.Connection rst.CursorType = adOpenDynamic rst.CursorLocation = adUseClient rst.Open "employees", , adOpenKeyset, adLockOptimistic, adCmdTable Set Me.Recordset = rst End Sub 3. في حدث الإغلاق للنموذج نضع الكود التالي : Private Sub Form_Close() Dim cn As ADODB.Connection Set cn = Me.Recordset.ActiveConnection cn.Close Set cn = Nothing End Sub وبعدها سيختفي الخطأ Type mismatch الذي تحدثنا عنه في بداية الدرس وإليكم الحل كاملا كما طرحته تماما هنا في المرفق التالي : مع احترامي وتقديري لكم RecordsetLesson2.rar