عبدالعليم اسماعيل

اي الطرق اصح فى ربط العلاقه رأس واطراف

الطريق رقم 1

ام

الطريق رقم 2

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

مع الحفاظ على طريقه ربط الجداول ام الخطاء فى طريقه الربط 

025.accdb

40 دقائق مضت, Moosak said:

الحمدلله أكتملت الفكرة والتنفيذ 🙂 

عملت نموذجين .. وتبقى تكملة المشروع لتكون صفحة تسجيل دخول مكتملة 🙂 

النمط الأول :

النمط الثاني :

للتحميل :

MoosaK_Pattern_Lock.accdb 608 kB · 1 download

اشكر حضرتك على تبنى الفكره ومتابع مع حضرتك من خلال جروب الواتس

احترامى للجميع

اتمنا من قبول الفكره وتطويره

الحمد لله دى النتيجه اللى قدرت اوصل اليها ومازال ليها بعض التعديلات للتطوير والملف مفتوح المصدر للجميع

PatternLock.accdb

9 دقائق مضت, Moosak said:

فكرة جميلة وتحد رائع 😊

بالنسبة لي جار العمل وهذا هو الحد الذي وصلت إليه ( ولازال العمل مستمر ... لا يزال يحتاج لتطوير ) :

تحدي جميل تعلمت من خلاله كيفية تحريك الخطوط 👍😉

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

7 ساعات مضت, kkhalifa1960 said:

تفضل أخي المحاولة الثالثة وعدل كما شئت مرفق مع المحاولة صور الأسهم .

 

MY_PIC.rar 3.48 kB · 15 downloads

 

DDTest-2.accdb 1.23 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 20 downloads

ممكن استخدام نفس طريقه html مع الاكسس ام لا

Pattern-Lock.zip

5 ساعات مضت, ابو جودي said:

دى عاوزلها روقان واحلى سطل شااى 

بس والله عجبتنى الفوكيرة دى واوعدك افكر فيها

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

قفل نمط.rar

ملف لتوضيح الفكره

قفل نمط.rar

منذ ساعه, ابو جودي said:

دى عاوزلها روقان واحلى سطل شااى 

بس والله عجبتنى الفوكيرة دى واوعدك افكر فيها

بجهز نموذج بس بينقصنى حركة الاسهم 

حابب استخدمه فى برنامج محل جولات

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

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

طبعا دى محاول بس مع خبرة حضراتك هل هى صحيحه ام لا  

مع العلم انه يوجد علاقه بين ثلاث جداول 

DoCmd.GoToRecord , , acNewRec
If IsNull(DMax("[kod_alad5al]", "tblControls")) Or DMax("[kod_alad5al]", "tblControls") = 0 Then
Me.kod_alad5al.Value = 1
Else
kod_alad5al = DMax("[kod_alad5al]", "tblControls") + 1

End If

Dim i As Integer, k As Integer
Dim db As DAO.Database
Dim Rs As DAO.Recordset
Set db = CurrentDb
DoCmd.SetWarnings False
Set Rs = db.OpenRecordset("SELECT tblControls.* FROM tblControls ORDER BY tblControls.asm_a")
If Nz(Rs.RecordCount, 0) > 0 Then
  Rs.MoveLast
  k = Rs.RecordCount
  Rs.MoveFirst
  For i = 1 To k
    Rs.Edit
    Rs!kod_alad5al = i
   Rs.Update
    Rs.MoveNext
  Next i
End If
Set Rs = Nothing
Set db = Nothing
DoCmd.SetWarnings True

01.rar

اريد عند الغاء التعديل لايأخذ رقم بالسجل ويبقى عند اخر ترقيم

0.rar

هل من مجيب

مع العلم انى بحثت بالمنتدى 

اريد بحث عن مجلد او ملف واظهار النتائج 

كما لو بالامكان اغلاق كلك يمين 

اعمل على برنامج ارشيف خاص لملفاتى 

abdo02.accdb

10 دقائق مضت, ابو جودي said:

وهذ الكود ان شاء الله يفى بالغرض كما هو المطلوب 

Public Function MultiReplacements(Optional ByVal strInput As String = "") As String
If Nz(strInput, "") = "" Then Exit Function

strInput = Replace(strInput, "ي ", "ى " & "")
strInput = Left(strInput, Len(strInput) - 1) + Replace(Right(strInput, 1), "ي", "ى")
strInput = Replace(strInput, "ة", "ه" & "")
strInput = Replace(strInput, "عبدال", "عبد ال" & "")
strInput = Replace(strInput, "عبدرب", "عبد رب" & "")

MultiReplacements = strInput
End Function

وطبعا لتجنب حدوث اى مشاكل بسبب استخدام الاحرف العربية داخل محرر الاكواد افضل استخدام الكود الاتى 

Public Function MultiReplacements(Optional ByVal strInput As String = "") As String
If Nz(strInput, "") = "" Then Exit Function

strInput = Replace(strInput, ChrW(1610) & ChrW(32), ChrW(1609) & ChrW(32) & "")
strInput = Left(strInput, Len(strInput) - 1) + Replace(Right(strInput, 1), ChrW(1610), ChrW(1609))
strInput = Replace(strInput, ChrW(1577), ChrW(1607) & "")
strInput = Replace(strInput, ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(1575) & ChrW(1604), ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(32) & ChrW(1575) & ChrW(1604) & "")
strInput = Replace(strInput, ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(1585) & ChrW(1576), ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(32) & ChrW(1585) & ChrW(1576) & "")

MultiReplacements = strInput
End Function

 

الشكر كل الشكر

53 دقائق مضت, moho58 said:

مشكور أخي الكريم

لقد اطلعت على هذا الموضوع من قبل

أنا أريد أخي إضافة جميع الملفات والصور و يمكن فتحها وحذفها

 

فاهمك فى زر للفتح شفاف فوق الصوره او الملف ولو حاولت نقل الملف فى اي مكان يعمل 

A.rar

استخدم الملف ده

https://www.officena.net/ib/topic/120786-السلام-عليكم-عند-تغيير-الصوره-لايحذف-الصوره-القديمه/?do=findComment&comment=727079

عند كتابة اى اسم يبداء بعبد يأخذ  مسافه تلقائيه بدون استعلام

abdo.accdb

اشكر الجميع على المحاوله 

تم عمل المطلوب على طريقتى بدون تغيير المسميات

ارفق الملف عسى ان يستفيد به الجميع

03.accdb

15 ساعات مضت, kanory said:

تفضل <><><><><><>

 

01.accdb 896 kB · 5 downloads

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

اريد عند ادراج صوره تظهر لى رساله حذ او استبدال باسم الصوره

f.rar

29 دقائق مضت, Foksh said:

مشكور على المجهود ، 😊

 

أعتقد هذه الفكرة مشابهة هنا

 

تقبل مروري

احترامى  

11 دقائق مضت, Moosak said:

فكرة جميلة ما شاء الله .. إبداع 🙂 

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

وربما تفتح لإخوانك صلاحيات الوصول حتى تعم الفائدة ..

انا تعبت فيه والله 

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

تغيير الخلفيات فى النماذج.rar