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

جرب CurrentDb.Execute "ALTER TABLE your_table_name ADD CONSTRAINT your_pk_name PRIMARY KEY(id1, id2);"

المثال بعد التعديل تقطيع الرقم القومى إلى أعمدة_01.xlsx

If you need to distribute the number from left to right, put the following formula in C5 =MID($B$5,COLUMN()-2,1) But if you need to distribute the number from right to left, put the following formula in C5 =MID($B$5,LEN($B$5)-(COLUMN()-COLUMN($C$5)),1)

تمام استاذ محمد او هكذا DoCmd.RunSQL "ALTER TABLE yourtable ADD CONSTRAINT yourtable Primary Key(fld1, fld2)" لمنع التكرار على مستوى حقلين ولن يتم صنع المفتاحين الا اذا تحقق الشرط باحد امرين : اما ان يكون الجدول جديد او تكون البيانات محققة للشرط بحيث لا يوجد تكرار

عادة حقل الدائن والمدين رقم والافتراضي له =0 ..وبالتالي الرصيد يساوي 0 اذا لم يكن هناك رصيد ..على العموم يمكن استخدام هذا السطر في الاستعلام IIf(IsNull([credit]-[debt]),0,[credit]-[debt]) بس الشق الثاني من السؤال لم افهمه ..يعني ايه الترقيم التلقائي هو نفس السيريال لرقم الموظف ..اعمل رقم الموظف رقم فريد واخلص من الحكاية !!

هو ممكن ..كما قال الاستاذ @محمد احمد لطفى لكن مالفائدة منها ؟

برنامج يصلح لادارة عيادات الاسنان والعلاج الطبعى بسيط وسهل الاستخدام بدون باسورد طبيب الاسنان او العلاج الطبيعى.xlsm

مشكور

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

لقد لاحظت عند الضغط على زر يسار يذهب التركيز يمين وكذلك العكس ، فهذا لتصحيح التركيز عملت لك تعديلات عدة منها تحديث المجاميع من جديد عندما تقوم بالتراجع عند تعديلات الحقل. المثال_03.accdb

هل انت تسخدم مفتاح الادخال ( Enter ) للانتقال ..... اذا كانت الاجابة نعم ..... جرب المرفق ....... تحديث المجاميع.rar

طيب جرب المرفق كده <><><><><><<<< Kan_DBPIX.rar

اي المثالين تريد ؟ من خلال الجدول او من خلال الفورم ؟ وما الحقل الذي تريد التطبيق عليه ؟

اليك الحل بطريقتين الطريقة الاولى من خلال حقول النموذج Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then If IsNull(ctl.Value) Or ctl.Value = 0 Then Undo MsgBox "لا يمكنك ترك احد الحقول فارغا" Exit Sub End If End If Next ctl والثانية من خلال حقول الجدول Select Case DataErr Case 2113 End Select Response = acDataErrContinue MsgBox "لطفا لا يمكنك ترك احد الحقول خاليا", vbOKOnly, "تنبيه!!" Exit Sub Downloads.rar

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

CurrentDb.Execute "Update Tbl_re1 set w = 0" Msgbox "تم الاستبدال" هذا كود استبدال القيمة بصفر او ضع القيمة المناسبة الكود للأخ Moosak

مشاركة مه استاذي الكريم @Eng.Qassim استخدم في حدث بعد التحديث هذا .... Me.Recalc

ووجهك ابيض اخي الكريم انظر الصورة وغير اسم الورقة حسب ما تريد Dim ExcelObj As Excel.Application Set ExcelObj = CreateObject("Excel.Application") ExcelObj.Workbooks.Open "C:\file1.xlsx" ExcelObj.Sheets("ورقة1").PrintOut ExcelObj.Quit Set ExcelObj = Nothing

جرب هذا ................. Dim ExcelObj As Excel.Application Set ExcelObj = CreateObject("Excel.Application") ExcelObj.Workbooks.Open "C:\file1.xlsx" ExcelObj.Sheets.PrintOut ExcelObj.Quit Set ExcelObj = Nothing

جرب المرفق <><><><><><> printfactur3.rar

طيب راجع المعلومات هذه هل هي صحيحة حسب طلبك <<<<<<<

طيب شوف كده :::::::::::::::: المستخدم Kanory باس 123 >>>>>> صلاحيات مطلقة المستخدم Kanory1 باس 321 >>>>> صلاحيات محددة وهي الدخول عل النموذج الثاني ( فتح وتعديل واضافة وحذف ) جرب واعلمنا ....... Kan_صلاحيات المستخدمين.rar

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

اخي هيثم انت لم تقم بربط الازرة في النموذج الرئيسي بالنماذج الاخرى .... اكمل الربط ... لمساعدتك ...

السلام عليكم ورحمه الله وبركاته جرب الاتي 1. اذهب الى Start ثم Settings 2 . اختر Control Panel 3. Regional And Language Options 4. من تبويب Advanced في خانة الاختيار اختر اللغة العربية 5. ثم OK إذا كانت المشكلة اللغه في محرر الاكواد من مجرر الأكواد Tools Options Editor Format و اختار اي خط عربي