ابو حمزة سكر

 اخي العزيز @Elsayed Bn Gemy 
أشكرك شكراً جزيلاً على ردك الكريم 
فعلاً فرغت نفسي قليلاً و بسبب عدم معرفتي باللغة الإنجليزية قمت بترجمة الرسالة و تأكدت أن المشكلة هي التكرار و قمت بحذف المكرر و أنتهت المشكلة قبل أن أقرأ ردك الكريم ..
و أقوم بحل المشكلة التالية الآن 
و لكن صديقي بعد أن قمت بحذف السطور الثلاثة المكررة تم حل المشكلة و تم عمل الكود بشكل صحيح بأنه يقوم بنقل الصورة إلى المجلد المحدد و إعادة تسميته .. إلى أن الصورة لا تظهر في النموذج ..
أنا أحاول البحث عن السبب الآن و أكون شاكراً لك إن كان لديك فهم لهذه المشكلة و حل سريع 

للرفع للأهمية

 اخي العزيز @Elsayed Bn Gemy  شاكراً فضلك و كرمك في شرح و تعديل البرنامج ..
لقد قمت بنقل النموذج و الجداول و كل ما قمت بالتعديل عليه إلى مشروعي و هذا لأني ضعيف في ما تفضلت بشرحه فلم أقم بإعادة صياغة بل بالنقل و قمت بتحديد المسار كما أشرت مشكوراً ...
لكن عندما أضغط على الصورة مرتين لأقوم بإضافة صورة يظهر لي أن هناك خطأ برمجي أعتقد أنه بسبب قلة خبرتي لم أعرف إصلاحه و أعتقد أنه بسيط من مجال خبرتك ..
و الخطأ يتمثل بالصورة المرفقة ..

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

في ١٦‏/١‏/٢٠١٩ at 10:56, Elsayed Bn Gemy said:

اساعدك ان شاء الله  ولكن اود ان الفت انتباهك الى هذا

اذا انت بحاجة الى شيئين الاول

عدم وضع مسار الصورة فى الجدول
الثانى نقل الصور تلقائيا عند اختيارها الى مجلد الصور
 

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

أنا أشكرك جزيل الشكر و أرجو من الله أن يجعل مساعدتك هذه في ميزان حسناتك ..
أردت الإجابة على سؤالك عن موضوع الترقيم التلقائي ..
فكرة أن تصبح الصورة بنفس رقم المنتج شيئ جميل لكن مشكلتي في الترقيم التلقائي هو أن المنتجات تحمل أرقام خاصة مستخدمة و متعارف عليها من قبل العملاء و مدرجة في برنامج حسابات المصنع و تغييرها صعب بسبب كثرة المنتجات التي يزيد عددها عن 500 منتج و حفظ الأرقام الجديدة و تحفيظها للموظفين أيضاً و العملاء

الأخ المحترم @Elsayed Bn Gemy  أشكرك كل الشكر على دعمك و مساعدتك و أعتذر عن تأخري بالرد و قراءة ردك سوف أقوم الآن بتنزيل المرفق و مشاهدة المتغيرات و أتعلم طريقتك ..
أشكرك جداً أخي الكريم على دعمك و سوف أرفق رداً آخر بعد إختبار المرفق و تعلم الطريقة 

للرفع للأهمية

و عليكم السلام و رحمة الله 
أعتقد أخي الكريم أن الحل هنا ..

السلام عليكم و رحمة الله و بركاته
لدي مشروع للتعامل مع مخزن العميل و توريد منتجات له ..
و هذا المشروع يعمل على ربط مخزن العميل مع المصنع على أساس معرفة ما ينقصه دون الحاجة إلى جرد كل ما أراد التوصية على طلب جديد..
في هاذا المشروع أدرج فيه كامل منتجاتي مع صورها و بيناتها .. سوف أتعامل معه عن طريق جوجل درايف ..
أرفقت نموذج مصغر فيه مشكلتي فقط .. ليكون المشروع صغير و سهل التحميل ..
المشكلة في موضوع الصور المرفقة للمنتج فأنا أضيفها من جهازي و لكن لا يمكن للعميل رؤيتها في النسخة الموجودة في جهازه بسبب تحديد المسار
ما أطلبه .. هو تعديل الكود الموجود في المرفق لأتمكن من رؤية الصور على أي جهاز يتم فتح نسخة فيه ..
المجلد الذي يحتوي على جزء الجداول و المجلد الذي سيحتوي على الصور سوف يكون ضمن مجلد مشترك بيني و بين العميل على جوجل درايف و بهذه الطريقة يمكنه رؤية كل البيانات و التعديل عليها لكن لا يتمكن من رؤية الصور التي أرفقتها أنا في النموذج ..
لقد بحثت في المنتدى و لكن المشكلة أن خبرتي قليلة و ما أنجزته في مشروعي هو عبارة عن معلومات أخذتها من هذا المنتدى الجميل و ليس بخبرتي ..
شكراً لكم على المساعدة مقدماً

ACC.rar

38 دقائق مضت, saleh204 said:

جرب المرفق

SukkarACC2.rar

أشكرك سيدي الكريم صالح جزاك الله كل خير قمت بتجربة صلاحيات الدخول للمستخدمين و تمت العملية بنجاح بلا رسائل خطأ أكرر شكري الجزيل لمساعدتك

10 دقائق مضت, عبد اللطيف سلوم said:

صديقي الادمن : admin

وكلمة المرور : 1 

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

17 ساعات مضت, عبد اللطيف سلوم said:

تفضل صديقي

admin

1

 

صلاحيات المستخدمين (1).accdb

الحقيقة أني شاكر لفضلك و كرمك في الرد و العمل على مساعدتي و جزاك الله عني كل خير أستاذ عبد اللطيف ...
لكن يبدو أن لجهلي و عدم توافر معلومات كافية لدي عن هذا المجال إما أنني لم أعرف كيف أطرح استفساري أو أنني لم أعرف التعامل مع المرفق الذي أرسلته مشكوراً .. و أعتذر طبعاً على أنني أتعبك معي ..
لقد أرفقت مشروعي مرة أخرى و قد تم تطبيق برنامج المستخدمين و الصلاحيات عليه .. و الذي وجدته هنا تم رفعه من قبل الأستاذة زهرة مشكورة ..
و المشكلة أنه و بسبب أن إصدار مشروعي مصمم على 2013 و التطبيق الخاص بالصلاحيات أعتقد أنه إصدار أقدم ... يتم منع المستخدمين من الدخول إلى النماذج بشكل قطعي و تظهر الرسالة (( ليس لديك الصلاحية لفتح هذا النموذج )) على الآدمن و على المستخدم العادي
.........................
الأدمن : e
كلمة المرور : 1
.........................
المستخدم : user
كلمة المرور : 1
.........................
و أكرر شكر الجزيل لك أستاذ عبد اللطيف

SukkarACC2.rar

23 ساعات مضت, عبد اللطيف سلوم said:

تفضل

تقدر تضيف مستخدمين وتحدد الصلاحيات وتعدل المعلومات

اتمنى لك الفائدة 

صلاحيات المستخدمين.accdb

جزاك الله كل خير أخي الكريم عبد اللطيف سلوم و شكراً على ردك الكريم و دعمك سوف أقوم بتركيب ما أرسلته على مشروعي و لك الشكر الجزيل
و لكن في الملف المرفق يوجد جدول و نموذجين أحدهما لإضافة مستخدم و الآخر لتعديل صلاحيات المستخدم فماذا عن نموذج تسجيل الدخول و كود الدخول حسب الصلاحيات المحددة في جدول المستخدمين 
.. لقد استخدمت سابقاً برنامج تطبيق الصلاحيات و تحويل المشروع إلى MDE و لكن بسبب عدم توافق الإصدارات كان هناك مشاكل في الأكواد تجعل التعامل مع البرنامج فيه أخطاء كثيرة حيث أنه عند إضافة مستخدم جديد و تحديد صلاحياته تتلخبط الأكواد
 

صباح الخير

السلام عليكم
إخواني الأكارم ..
أشكر القائمين على هذا المنتدى على معلوماتهم القيمة و قد استفدت من معلوماتكم الكثير شاكراً رحابة صدركم و أسلوبكم في الكريم في الرد على كافة التسائلات..
طلبي من جنابكم الكريم ..
في المرفقات قمت بتحميل ملف أكسس قد صممته حسب التعليمات التي أخذتها من هذى المنتدى الكريم و طبعاً لدي الكثير من الأخطاء و تشتيت المعلومات لأنني مبتدء ..
ما أريده يا سادة هو تطبيق نظام أسم المستخدم و كلمة المرور و الصلاحيات على هذا المشروع ..
و طبعاً قد قمت بالبحث في المنتدى و وجدت بعض المعلومات و وجدت برنامج للأستاذة أم العهود يفيد و لكن لم أتمكن من تطبيقه بسبب إختلاف الإصدار ..
الأمر الثاني ..
هذا المشروع سأستخدمه بعدة مستخدمين في آن واحد و سيتم التعامل معه عن طريق جوجل درايف و لهذا و في نموذج إدخال منتج جديد أريد أن يتمكن كافة المستخدمين من مشاهدة الصورة المحملة من أي جهاز
..
الأمر الثالث ..
إمكانية فتح المشروع عن على كافة الأجهزة على إختلاف أنظمتها دون أن تتعطل بعض الأكواد ..
و شكراً لكم مقدماً و أرجو لكم دوام الصحة و العافية

My Acc.rar

في 6/18/2017 at 23:21, أبو إبراهيم الغامدي said:

وعليكم السلام ورحمة الله وبركاته

لم أر في الشفرة التي أرفقتها ما يريب سوى سطرين فقط

DoCmd.GoToRecord , "", acNewRec

استبدل هذه الصيغة بالصيغة التالية أين ماوجدت

DoCmd.GoToRecord , , acNewRec

 

أشكرك أستاذي الكريم أبو أبراهيم جزاك الله كل خير على ردك
في اليومين الماضيين بحثت كثيراً بين الأكواد المطروحة و كنت آرى أسطر تهتم بالخطأ و لكني لم أعلم إن كانت أساسية و يجب كتابتها أو أنها ثانوية و تكتب في حالات معينة كمثل هذا السطر ..
 

On Error GoTo Err_Command28_Click

    DoCmd.GoToRecord , , acNewRec

Exit_Command28_Click:
    Exit Sub

Err_Command28_Click:
    MsgBox Err.Description
    Resume Exit_Command28_Click

أرجو التكرم من المشرفين بإفادتي إن كان في طرحي للسؤال خطأ حتى أعرف سبب تجاهل الأساتذة لسؤالي أو إن كان الموضوع غير منطقي لأقوم بحذفه مشكورين

للرفع

للرفع

السلام عليكم و رحمة الله و بركاته
أحبتي في الله السادة محترفي أكسس و السادة الأعضاء الكرام
بارك الله بكم جميعاً و جزاكم كل خير على ما تقدموه من معلومات و علم
عملت جاهداً و أنا مبتدأ على أن أستقي من هذا الموقع الكريم و أعضاءه المحترفين لأقوم بتصميم برنامجي الخاص الذي يخدمني في حساباتي
إلا أنني لست بمستوى يخولني أن أختم برنامجي دون اللجوء إلى كرمكم في بعض المعلومات الهامة
بنيت البرنامج حسب ما تعلمت منكم إلا أنني أخشى أن تكون الأكواد التي أستخدمتها تحتوي على أخطاء لتقصير مني
ما أتمناه منكم أن تنظرو إلى الأكواد التي في الأسفل و تعلموني إن أرتكبت خطأ و الأهم أن هذه الأكواد يجب أن لا تتعطل إن نقلته إلى كمبيوتر آخر
سأرفق أكواد واحد من النماذج لأبدأ به و جزاكم الله خيراً مقدماً
النموذج الرئيسي ..
دائماً بعد أن أضيف كود الذهاب إلى سجل جديد عند الفتح و بعد أستخدامه لعدة أيام فجئة أجد أني أفتح البرنامج فتظهر رسالة خطأ لا تختفي حتى ألغي الكود و أعيد كتابته و هذا يحدث في النموذج الرئيسي الذي يفتح عند الإقلاع
 

Option Compare Database

Private Sub Command149_Click()
DoCmd.GoToRecord , "", acNewRec
DoCmd.SetWarnings False
DoCmd.OpenQuery "appendBillsIn", acNormal, acEdit
CurrentDb.Execute ("UPDATE SALE set Ent = true where Ent =false")
DoCmd.OpenQuery "appendamountIn", acNormal, acEdit
CurrentDb.Execute ("UPDATE reciptIN SET Ent = True WHERE Ent = False ")
End Sub

Private Sub Customer_Name_AfterUpdate()
Discount = DLookup("Discount", "cname", "[Customer_Name]")
End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub Text23_BeforeUpdate(Cancel As Integer)
Text25 = Text14 - Text23
total = totalsale
dis = totaldiscount
safi = Text14
End Sub

النموذج الفرعي ضمن النموذج الرئيسي ..

Option Compare Database
Private Sub ProductNoS_AfterUpdate()
ProductNameS = DLookup("ProductName", "ProductiD", "productno=" & "[ProductNoS]")
WholesalePriceS = DLookup("WholesalePrice", "ProductiD", "productno=" & "[ProductNoS]")
UNIT = DLookup("UNIT", "ProductiD", "productno=" & "[ProductNoS]")
DiscountS = DLookup("Discount", "SALE", "ID_sale=" & "[Id_saleS]")
chickbalanceitems = DLookup("[balId]", "balanceItemchik", "[ProductNoS]=" & [ProductNoS])
If IsNull(DLookup("productno", "productid", "productno=" & "[ProductNoS]")) Then
   If MsgBox("هذ المنتج غير متوفر في قائمة المنتجات .. هل تريد إضافته الآن ", vbYesNo + vbExclamation, "منتج مفقود") = VbNo Then
   Me.Undo
   Exit Sub
   Else
   DoCmd.OpenForm ("productadd")
   DoCmd.GoToRecord , "", acNewRec
 End If
   End If
End Sub

Private Sub ProductNoS_DblClick(Cancel As Integer)
DoCmd.OpenForm ("serch2")
End Sub

Private Sub QTY_Out_AfterUpdate()
Discount_Cut = WholesalePriceS / 100 * DiscountS
Price_Unit = WholesalePriceS - Discount_Cut
total_Price = QTY_Out * Price_Unit
End Sub