أبو عبدالله الحلوانى

منذ ساعه, عبد الله العدم said:

لا اعرف هل يمكن ان يقوم برنامج access بعمل هذا او لا ارجوا الافادة ♥

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

منذ ساعه, Amr Ashraf said:

ركز فى المثال هتلاقى قيم القائمة محازاة يسار ولكن العنوان محازاة فى المنتصف بالاضافة الى ان حجم الخط مختلف

كدا تم تسريب الامتحان 

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

تم وضع ليبل خلف الكمبوبوكس وبه العنوان بالتنسيق المشار اليه 

وفقط اليس كذلك 

في 31‏/1‏/2022 at 01:39, أبو إبراهيم الغامدي said:

لكون الحقول غير مرتبطة بجدول بيانات..

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

أولا- أعتذر لتأخري عن الرد لظروف خارجة عن الارادة - ولكن الحمد لله ها قد عدت 

ثانيا- جزاكم الله خيرا هذا هو المطلوب تماما - ولكن لي استفسار وطلب علي استحياء 

اما الاستفسار فهو عند ضغط CheckBox بالتطبيق الأصلي يحدث حدث كتظليل الصف بلون مختلف واظهار رسالة ما - فهل عند تمرير القيمة للـ CheckBox  من خلال الكود الذي تفضلتم به هل سيتم عمل الحدث بشكل تلقائي ام سيتطلب الأمر منادة الحدث عند الضغط واجراء تعديل ما علي كود حضرتك - وان كان الأمر هكذا فسيكون الطلب 

كيف اصل الي هذا الكود الذي يتم استدعائه عند الضغط علي الـ CheckBox ( مع العلم لي خلفية بسيط عن لغة الـ html والحمد لله)  فلا بأس بالاشارة فقط حتي لا ازعجكم بشرح مطول 

وطلب أخير علي استحياء أيضا  ولكن أطمعني في هذا كرمكم المعهود 

في 31‏/1‏/2022 at 01:39, أبو إبراهيم الغامدي said:

childNodes(4).childNodes(0)

ما هي الدلالة الرقمية في هذا الجزء من الكود

في 31‏/1‏/2022 at 01:39, أبو إبراهيم الغامدي said:

("table tr")

tr كما اعرف علي حسب معلوماتي المحدودة بلغة الوسوم هو وسم للصف داخل الجدول هل هذا صحيح؟ وهل هذا له علاقة بدلالة الأرقام بالجزء السابق من الكود.

وجزاكم الله خيرا 

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

وبعد وبناءا علي طلب الأستاذ @أبو إبراهيم الغامدي حفظه الله بافراد استفساري بموضوع مستقل هنا

وقد تفضل سيادته مشكورا بوضع مرفق لما اردت ولكن ولكوني لا زلت اجهل العمل بلغة الـ html الا يسيرا 

وكذلك لتعم الفائدة بطلب شرح لآلية العمل بالمرفق فاسأبدأ استفساراتي حول مرفق الاستاذ من خلال النقطتين التاليتين: 

1- في المرفق تم جلب قيمة الصف من خلال معرفة موضع الـ CheckBox المعلمة وسأحول استقراء الأكود لحين رد احد الاساتذة الأكارم - والسؤال هل يمكن ارسال القيمة للـ CheckBox بدلا من معرفتها؟ وهذا كان سؤالي منذ البداية بالموضوع السابق الاشارة اليه

2- بالمرفق كود بعد تعليم الـ CheckBox أو عند حدث النقر علي الـ CheckBox ولكن ما عرفت كيف يعمل؟! 

اما عن المرفق فها هو HTML Table.accdb

اما عن مرفقي الذي وضعت به توضيح السؤال فهذا هو TestCheckBox.rar

وجزاكم الله خيرا

22 ساعات مضت, صالح حمادي said:

ابحث عن موقع مشابه أو أي مثال آخر لنحاول مساعدتك من خلاله

جزاكم الله خيرا 

آسف لتأخري بالرد 

حاولت صنع شيء مشابه لما اريده مع صفحة تحمل جدول به بيانات مشابهة للواقع 

وهذه المحاولة التي قمت بها

TestCheckBox.rar

2 ساعات مضت, أبو إبراهيم الغامدي said:

كنت أتمنى أن تبدأ مشاركة جديدة حتى أتمكن من مساعدك! 

حضرتك تأمر ولا تتمني نعم افعل ان شاء الله خاصة ان آلية العمل بحاجة لبعض الاستفسارات وجزاكم الله خيرا وسأضع رابط المشاركة الجديدة هنا ان شاء الله

وهذا هو رابط الموضوع الجديد هنا

8 دقائق مضت, صالح حمادي said:

أعطيني الموقع لأرى أخي

جزاكم الله خيرا 

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

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

وجزاكم الله خيرا 

حاولت ارسال بيانات الي Check Box داخل جدول ولكن لم اوفق في ذلك جربت كل ما اظن انه قيمة صالحة للاتشك 

1- zero - one

2- true -false

3- Checked - UnChecked

ولكنها تعطيني قيمة غير صالحة لا أدري هل طريقة كتبة الكود هي الخاطئة ام ان لهذا الاتشك داخل الـ HTML قيم اخري؟!!

هذا هو الكود مقتبس من هذا الموضوع 

With WD
	.getElementByTagName("Table").Item(0).Rows(1).Cells(6).value = Checked 'here i receve an error
End With

أرجو توضيح أين الخلل!!!

وجزاكم الله خيرا

11 ساعات مضت, Moosak said:

أتوقع أن السر في الماكرو After Update و After Insert و After delet 

المصاحبة للجداول

نعم هذا هو 

والسؤال الآن هل ما سيتم اضافته من خلال دالة يستدعيها نموذج غير منضم يحمل حقول غير منضمة لهذا الجدول 

هل سيكون نفس التأثير؟!

47 دقائق مضت, AliAli47 said:

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

لم افهم هذه النقطة هلا تكرمت بمزيد من التوضيح 

يبدو ان النقاش قد احتدم اثناء غيابي ولا اعلم 

في ٢٦‏/١‏/٢٠٢٢ at 23:56, Lamyaa said:

تفضل .. ها هي قاعدة البيانات

شكرا علي التنبيه علي هذه الثغرة ان شاء الله نبحث عن حيلة لتجاوزها 

في ٢٧‏/١‏/٢٠٢٢ at 06:47, Amr Ashraf said:

عامة هناك مبدأ ثابت وهو "لا يوجد حماية مثالية والحماية وجدت ليتم اختراقها".

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

في ٢٧‏/١‏/٢٠٢٢ at 08:00, Amr Ashraf said:

وأثناء التثبيت يظهر ايضا الفولدر ويمكن أخذ كوبى من محتوياته

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

في ٢٧‏/١‏/٢٠٢٢ at 08:00, Amr Ashraf said:

عن طريق هذا البرنامج مثلا :

https://github.com/Bioruebe/UniExtract2#download

والنتيجة فى المرفقات

شاكر لك هذه المعلومة لم اعلم عن وجود هذا البرنامج الا منكم جزاك الله خيرا 

والآن يمكنني ان أقول انقلب السحر علي الساحر لم يعد المضوع خاص بالحماية بل بفك تلك الحماية  

في ٢٧‏/١‏/٢٠٢٢ at 09:51, jjafferr said:

بمعنى آخر ، ان الاكسس بأمان اكثر من اي برنامج آخر

بعد كل ماقيل ما بت اثق بهذا 

حقيقة لا ادري ما المشكلة ولكن اكسس 2010 عندي لا يظهر به هذا الاشكال الذي لديك

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

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

هذا والله اعلم 

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

3 ساعات مضت, jjafferr said:

عملت حقل مؤقت مخفي

وانا ادخلت هذا الحقل الي الجدول وفقط 

وكل شيئ ماعدا هذا هو خاص بمرفق الاستاذ @jjafferr 

1457.تلوين سجل محدد.accdb.zip

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

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

واستخدام لغة الـ HTML  أو اي لغة أخري تفضلها يمكنها صناعة تطبيق يعمل علي الهاتف

لتربطه بقاعدة البيانات التي تم مشاركتها منذ قليل  

آسف لاحباطك ولكن علي حد علمي ان الأكسس ضعيف في هذا المجال 

ضع لكل جدول مفتاح رئيس - وفي جدول المعاملات الكلية ضع مفتاح رئيس ومفتاح فرعي لربط كلا من الجداول المساعدة بالجدول الرئيسي 

مثال: 

جدول مساعد1 (الأقسام) وبه حقل مفتاح اساسي( كود القسم) - واسم القسم 

جدول مساعد2 (الشعب) وبه حقل مفتاح اساسي( كود الشعبة ) ومفتاح فرعي ( كود القسم) - واسم الشعبة

جدول مساعد3 (المدرسين) وبه حقل مفتاح اساسي( كود المدرس) وفرعي (كود القسم + كود الشعبة) - واسم المدرس

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

هذا والله أعلم

او ارفق مرفق لتسهل علي من يجاول مساعدتك مهمته

في ٢٥‏/١‏/٢٠٢٢ at 12:02, Lamyaa said:

حتى لا يضيع جهدك ويسرقه ضعاف النفس.

وهذا محور النقاش منذ بداية الموضوع

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

ملاحظة ارجو تجربة المرفق علي النوتين 32 و 64 وموافاتنا بالنتائج 

مع العلم أني اعمل علي النوت 32 فقط

في ٢٥‏/١‏/٢٠٢٢ at 10:23, Amr Ashraf said:

يعمل بكفاءة فى كل شئ ما عدا جزئية الباسورد لا تعمل معى .. الملف الناتج مفتوح بدون باسورد وهو فى الاصل كان بدون باسورد .

يبدو انك لم تغير هذه الجملة Type Here a strong password  بهذا السطر من الاسكربت

dbs.NewPassword "", "Type Here a strong password"  

يجب ان تضع كلمة المرور الجديدة بدلا عنها

منذ ساعه, Amr Ashraf said:

وياريت حضرتك ترفقلنا الاسكريبت حتى نستفيد .. جزاكم الله خير

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

ملاحظات قبل العمل:

1- اضغط كليك يمين علي الاسكربت وقم بعمل Edit  وغير هذا السطر ستجده مكررا أكثر من مرة بما يلزم من اسم قاعدة بيناتك

TypeHere Accdb File name
TypeHere Accde File name

2- احتفظ بنسخة من قاعدة البيانات بعيدا عن فولدر التجربة لان الاسكربت سيقوم بحذفها فور الانتهاء

3- يوجد بالاسكربت مجموعة من الاكود والافكار الهامة كمعرفة مسار الفولدر الحالي للاسكربت وتغير كلمة المرور لقاعدة البيانات - هذا بعد فضل الله نتاج سهر وجهد جهيد ارجو ان ينتفع به كل من مر من هنا 

4- ومن مزايا الاسكربت ايضا انه يمكنك تغير امتداد قاعدة البيانات الاصلية مثل .dat  أو .dll مثلا ويعمل مع هذه الامتدادات الوهمية بدون مشكلات ( طبعا امتداد وهمي لكي لا يعلم المخربين امثالي اين ملف القاعدة الأصلي )

ووفقا لتعليمات معلمنا أبو خليل بارفاق الشرح مكتوبا خير من وضعه بمرفق هذا هو كود الاسكربت وكذلك هو بالمرفق 

تمنياتي بالتوفيق

dim fso                 	
dim mePath			
Dim wrk 			
Dim dbs 			
				
				
Call Createadbe  		
wscript.sleep(15000)		
Rem Call changPas  			
wscript.sleep(5000)		
Call DelUnuse  			
				
		
rem=============================================
Sub Createadbe() 		
rem On Error Resume Next 	
				
Set fso = CreateObject("Scripting.FileSystemObject")  			
mePath = fso.GetAbsolutePathName(".")  					
									
if fso.FileExists(mePath & "\TypeHere Accde File name")= True then 	
	fso.DeleteFile mePath & "\TypeHere Accde File name"  		
end if  								
									
If fso.FileExists(mePath & "\TypeHere Accdb File name")= True then 			
									
	With Createobject("Access.Application")  			
		.AutomationSecurity = 1  				
		.SysCmd 603, mePath & "\TypeHere Accdb File name", mePath & "\TypeHere Accde File name"
		.Quit  							
	End With  											
else  								
			
	exit sub  							
end if  		
set fso = nothing  	
End sub  		
rem================================================

Rem =>From  Here You can change accde file password
			 	
sub changPas()		
			 
Set fso = CreateObject("Scripting.FileSystemObject")    
mePath = fso.GetAbsolutePathName(".")			
							
	if fso.FileExists(mePath & "\TypeHere Accde File name")= True then                     
		With Createobject("Access.Application")	 						
			set wrk= .DBEngine.Workspaces(0)						
			set dbs= wrk.OpenDatabase(mePath & "\TypeHere Accde File name", True, False)	 	
			dbs.NewPassword "", "Type Here a strong password"  			
			.Quit   			
		End With 				
		msgbox "the program is ready now!" 	
	else 						
		msgbox "the program is not found!"  	
	end if						
	rem======end and exit====================================	
set fso = nothing  					
end sub  						
							
rem==============================================================
rem => here will delete unNeeded files
							 
sub DelUnuse() 						
Set fso = CreateObject("Scripting.FileSystemObject")     
mePath = fso.GetAbsolutePathName(".")  			
							 
with fso  						
	If .FileExists(mePath & "\TestHiddenFile.bat") then .DeleteFile(mePath & "\TestHiddenFile.bat")
	If .FileExists(mePath & "\SysDefines.dll") then .DeleteFile(mePath & "\SysDefines.dll")
	If .FileExists(mePath & "\Database.accdb") then .DeleteFile(mePath & "\Database.accdb")
	If .FileExists(mePath & "\Database.mdb") then .DeleteFile(mePath & "\Database.mdb")
	If .FileExists(mePath & "\TypeHere Accdb File name") then .DeleteFile(mePath & "\TypeHere Accdb File name")
	If .FileExists(mePath & "\TestFirstRun.vbs") then .DeleteFile(mePath & "\TestFirstRun.vbs")	
	If .FileExists(mePath & "\TestFirstRun.exe") then .DeleteFile(mePath & "\TestFirstRun.exe")
End with     						
 	msgbox "Done!"					 
set fso = nothing  					
End sub  						 
rem=================================================================================

أرجو ان لا يكون كلامي الأول ازعجك - فكما تعلم الصعايدة كلامهم (دبش) 

أحبكم في الله 

TestFirstRun.rar

أستاذي @Eng.Qassim جزاك الله خيرا لحسن ظنك بي 

منّ الله علي وعليكم بستره الجميل 

أخي @ابو البشر جرب هذا ارجو ان يكون هو مطلوبك 

رجاءا وافنا بالنتائج

DDD.accdb

السلام عليكم 

أولا- جزاكم الله خيرا حياكم الله وبياكم

ثانيا- لو تسمح لي ببعض الملاحظات لتحسين آسف لاثراء تلك الفكرة. 

1- وماذا عن قاعدة البيانات accdb اين ستذهب بعد التحويل؟! يجب ان يوضع في الاعتبار حذف القاعدة بعد التحويل.

2- برنامج الضغط جميل وسهل الاستخدام ولكن هنالك ما هو أقوي منه بهذا المجال - أعني تحزيم ملفات البرنامج، مثل: برنامج Smart Install Maker فهو برنامج سهل الاستخدام قوي المفعول يحول برنامج التحزيم الي صيغة exe ويتيح لك العديد من خيرات التسطيب علي جهاز العميل 

3- عوضا عن استخدام كود التحويل بقاعدة بيانات اكسس ايضا وتحتاج الي مزيد من الاجراءات كايقاف الأمان لكي تعمل او وضعها بفولدر موثوق - كمن استعان بالرمضاء من النار 

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

وانتهي الأمر بسلام ولا خوف من استخراج الملفات قبل التسطيب مثل برنامج رار فانه غير ممكن استخراج الملفات الا اثناء عملية التسطيب فقط

ودمتم 

3 دقائق مضت, jjafferr said:

انا تقريبا جميع برامجي مفتوحة المصدر

هكذا بحار العلم لا يضرها من اقتبس منها المشرب 

ثم وان كانت مفتوحة المصدر فهي السهل الممتنع علي تلاميذ مدرستكم 

وجزاكم الله عنا خيرا

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

جرب هذا التعديل

Set frm = currentproject.AllForms(frm_name)

استبدل كلمة frm_name  باسم الست بوكس متبوعا برقم الحقل الذي يحوي اسماء النماذج

لا تنسي موافتنا بالنتائج

24 دقائق مضت, Eng.Qassim said:

المشكلة .. ان استاذ احمد لا يريد ان تظهر في (المرحلة) = A1  وانما 1 وهكذا

ان كانت هذه هي المشكلة فحلها بسيط للغاية ان شاء الله

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

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

 Public Function Subsalary(GradeNumber As Byte, RankNumber As Byte) As Double
    Subsalary = Nz(DLookup("A" & RankNumber, "Degree", "GradeNO=" & GradeNumber), 0)
 End Function

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

Test (1).accdb

2 ساعات مضت, الفلاحجى said:

من إرشادات لتسمية الحقول وعناصر التحكم والكائنات فى ميكروسوفت

لا يمكنها أن تتضمّن أحرف تحكم (قيم ASCII من 0 إلى 31).

جزاك الله خيرا علي المعلومة الهامة والمفيدة 

وعودا الي استاذنا احمد

8 دقائق مضت, Ahmed_J said:

معقولة الاكسس  الحلو مابيكمل

لابد من حيلة ما لاكمال الحل؟؟؟

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

القيمة يتم جلبها بمجرد كتابة الرقم 1 والنص A1  نمثلا بدون الضغط علي الزر 

جرب ان تكتب بالحقول بدون ان تضغط علي الزر

تفضل 

جرب هذا 

كان يجب التعويض في المعادلة بالمتغير لا بقيمته 

Test.accdb

17 دقائق مضت, حسين العربى said:

انا محتاج الكود يكون في حدث عند التغيير

إذا جرب هذا التعديل ووافني بالنتائج

وهذا هو الكود بعد التعديل 

Private Sub B_1_Change()
    If Me.B_1.Text = ChrW(1584) & ChrW(1603) & ChrW(1585) Then
        FrameSx = 1
    ElseIf B_1.Text = ChrW(1571) & ChrW(1606) & ChrW(1579) & ChrW(1610) Then
        FrameSx = 2
    ElseIf B_1.Text = ChrW(1575) & ChrW(1606) & ChrW(1579) & ChrW(1610) Then
        FrameSx = 2
    Else
        FrameSx = 0
    End If
End Sub

test1.accdb