AlwaZeeR

بزر الفأرة الأيمن على الملف وازل الصح عن خيار : Read Only او: افتح برنامج الاكسس ومن استعراض اختر طريقة الفتح: او ارفق ملفك كما ذكر لك العزيز أبا جودي

هلا يا غالي وعليكم السلام ورحمة الله وبركاته تأكد من وجود طابعة افتراضية

يعطيك العافية يا بش مهندس نفس المشكلة بعد تثبيت المكتبة المرفقة من قبلكم نفس الخطأ *** هل تسمح بتعديل البار الذي تم ارفاقه: - الحجم لا يمكن التحكم - اللون :: تحياتي

قم بالبحث وسوف تجد ان شاء الله https://www.officena.net/ib/topic/47196-برنامج-لمحل-جوالات/

وعليكم السلام ورحمة الله وبركاته من باب الفضول: وأين المشكلة اذا قام بتغييرها؟ هل يسبب مشكلة في عمل البرنامج؟؟ لأنه مثل ما تفضل الأخ العزيز (خلف) لا تستطيع تغيير ملف مفتوح حدد اكثر كي نصل الى ما تصبو اليه

زيادة الخير خيرين يا غالي لا حاجة للاعتذار تحياتي

ضع في حدث زر الامر سجل جديد: DoCmd.GoToRecord , , acNewRec [stno] = Nz(DMax("stno", "student"), 0) + 1

وعليكم السلام ورحمة الله وبركاته استخدم Trim(Test)

استخدم امر إيجاد الأخطاء التالي: مع تغيير ما يلزمك حسب رقم الخطأ On Error GoTo ErrorHandler '==== هنا الامر الذي تريد ErrorHandler: Select Case err.Number Case 3024 msgbox("هذا الخطأ بسبب كذاااااا") End Select واذا لم تستطع فتفضل كما ذكر لك الأخ عصام بارفاق مثال صغير للتعديل عليه

السلام عليكم ورحمة الله وبركاته جميع المشاكل التي ذكرت واجهتني - تم التسجيل بنجاح - وظهرت الأداة في الاكتف اكس - وظهرت في المكتبات لكن المشكلة القائمة عند الادراج - قاعدة جديدة: التجريب على اوفيس 365 ، اوفيس 2016، اوفيس 2007 فقط خادم غير مسجل كل الشكر والتقدير واستمر في تطويرها كي نتمكن من تجريبها :: تحياتي والويندوز 10 64 بيت ولا اظن له علاقة ما دام الاوفيس 32 بت

وعليكم السلام ورحمة الله وبركاته تعديل الكود كالتالي: DoCmd.RunSQL "UPDATE recordtt SET recordtt.totalprice = [Forms]![recordhh]![recordtt].[Form]![total]" _ & "WHERE recordtt.recid = [Forms]![recordhh]![recordtt].[Form]![recid]"

Me.HdihSr = Nz(DSum("[PriceSB]", "00KashfTodayRsdCkdm","(Movement ='هدية' or Movement ='تالف' or Movement ='مفقود')") لم اجرب الكود

الف لا بأس عليك أستاذ أبا جودي بالسلامة ان شاء الله

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

كود الالحاق للمستخدم الجديد اما كود التحديث فهو للمستخدم الموجود في نموذجك يبحث الكود عن المستخدم اذا كان موجود اذا وجده ينتقل الى شرط التحديث عموما هذا التعديل الخطأ في الكود هو UNum لا اصل لها في النموذج وقد تم تغييرها من قبلك الى User_ID ولم يتم تغييرها في كود الالحاق DoCmd.RunSQL _ "UPDATE Users SET UName = '" & incode(UN, "User") & _ "', PW = '" & incode(pass, "Pass") & _ "', fname = '" & REG_FullName & _ "', EMAIL = '" & REG_EMAIL & _ "', PHONE = '" & REG_PHONE & _ "', IAM = '" & REG_IAM & _ "', BIRTHDATE = '" & REG_BIRTHDATE & _ "' WHERE (((Users.[SN])=" & Str(ID_User) & "));"

إضافة صورة متوفر كثيرا في المنتدى ابحث وستجد بعد إضافة الصورة تضيف اسم مكان حفظ الصورة الى جملة الاس كيو ال وفي النموذج الخاص بك هو Attach ثم تعدل على الجملة السابقة بإضافة حقل الجدول الخاص بالصورة وهو PHOTO وبخصوص التعديل لا يتم من نفس نموذج الادخال الخاص بالمستخدمين لديك التعديل يتم من تعديل صلاحيات المستخدمين

أجريت تعديلات على المسميات ولم تجرها على مسميات الحقول في النموذج الكود الالحاقي سيكون كالتالي DoCmd.RunSQL _ "INSERT INTO Users (UName, PW,fname,EMAIL, PHONE, IAM, BIRTHDATE) SELECT '" & _ incode(UN, "User") & "' AS Expr1, '" & incode(pass, "Pass") & "' AS Expr2, '" & _ [REG_FullName] & "' AS Expr3 , '" & [REG_EMAIL] & "' AS Expr4, '" & [REG_PHONE] & "' AS Expr5, '" _ & [REG_IAM] & "' AS Expr6, '" & [REG_BIRTHDATE] & "' AS Expr7"

حياك الله عزيزي الامر يجب ان يكون في الوحدة النمطية الخاصة بالبحث عن التكرار هكذا Private Function IsDplcateRec() As Boolean IsDplcateRec = False ' If IsNull(DLookup("SupplierID", "Contacts_T", "SupplierID=" & Me.SupplierID)) = False Then If IsNull(DLookup("SupplierName", "Contacts_T", "SupplierName='" & [SupplierName] & "'")) = False Then IsDplcateRec = True Else CurrentDb.Execute _ "INSERT INTO Contacts_T SELECT * FROM [SuppliersT]" MsgBox _ "تم اضافة السجل بنجاح" End If End Function

الأستاذ جو لم يقصر في الشكر وانا اكمل شكرك عزيزي الطيب أبا جودي شكرا لك ولكل ما تقدمه لاعضاء هذا الصرح الرائع وجعله الله في ميزان حسناتك حبيبي أبا جودي 🙂

اليك تطبيق لما ذكرته لك DefltDb.accdb

🙂 دائما انت هكذا عزيزي أبا جودي أظن تخصص فيزياء لهذا تهوى التعقيدات 🙂 عموماً للتسهيل قد يكون هذا الحل يعطي نفس النتيجة والله اعلم ضع في استعلام جديد SELECT * FROM qryRemoveZero WHERE (((qryRemoveZero.Tmons)<>0)) OR (((qryRemoveZero.Twar)<>0));

الجواب عن أبا جودي اجعل مصدر القيمة الافتراضية متغير وتستطيع ان تغير القيمة التي تريد في هذا المتغير حيث يكون الكود كالتالي Private Sub TYPE1Value() Select Case RTYPE Case Is = text1 TYPE1 = 9 Case Is = text2 TYPE1 = 7 Case Is = text3 TYPE1 = 3 End Select End Sub حيث تكست 1 و 2 و 3 هي مربعات نص متغيرة تضعها في المكان المناسب مثلا في نموذج يسمى ثوابت البرنامج الافتراضية ويتم استدعاؤها بواسطة Dlookup

تفضل والكود الأول ينسخ مئة بالمئة ولكن يحتاج لتغيير البيانات حسب ما هو في الجدول الخاص بك جرب ووافني بالنتيجة Pro1N.rar

طلبك موجود في المنتدى بكثرة عموما تفضل تم التعديل على نفس مثالك FrmCountr.accdb

وعليكم السلام ورحمة الله وبركاته ضع في مربع نص =Sum("[الرقم]") xxx.accdb