الطحان

Dim strDB As String strDB = "C:\Users\ferry\Desktop\5555\FolderN\1010\bar.accdb" عدل للمسار الصحيح Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase strDB If appAccess.CurrentDb() Is Nothing Then MsgBox "فشل في فتح قاعدة البيانات!" Else appAccess.DoCmd.OpenForm "LoadingBar" appAccess.Visible = True End If 5556.rar

بارك الله فيك دائما مبدع

ارجو ان يكون هو الحل محافظات.mdb

تسلم ايدك مش عارف اشكر حضرتك ازاى بس هو كده بيرقم حسب الاى دى 1، 2، 3، 4 مرقمش كل تاريخ يوم لوحده يعنى 11/ 10/ 1981 ، 11/ 10/ 1982، 11/ 10/ 1983 يبقوا 111100001، 111100002، 111100003 ، 111100004 حسب تاريخ اليوم ثم يفصل ويرقم 12/ 10/ 1981، 12/ 10/ 1982، 12/ 10/ 1983 يبقوا 110120001، 110120002، 110120003، 110120004 حسب تاريخ اليوم وهكذا وشكرا جزيلا

وده مثال للى انا عايزه بالظبط عارف انى تعبت حضرتك المثال.xlsx

لا مش ظابط فى النتائج اسف لحضرتك ممكن التجربة تانى db9790.mdb

شكرا لذوقك وتسلم ايدك هل فى امكانية انى اعد التاريخ يوم وشهر يعنى 11/ 10/ 1965 = 1 12/ 10/ 1965= 1 11/ 10/ 1966 = 2 12/ 10/ 1966= 2 وهكذا اسف للاطالة

انا عايز الثانى لكن كنت شرح لحضرتك المثال بيعمل ايه انا عايز مثلا ثلاث اشخاص اول واحد تاريخ ميلاده 2000/9/12 يرقمه واحد 00/09/12-0001 ثانى شخص تاريخ ميلاده 2001/9/12 يرقمه اثنين 01/09/12-0002 ثانى شخص تاريخ ميلاده 2002/9/12 يرقمه ثلاثه 02/09/12-0003وهكذا ( كالرقم القومى) وشكرا لردك وتعاونك وفقك الله

المرفق كان المثال اللى مظبطش معايا لو التاريخ 2018/9/12 بيرقمه واحد 18/09/12- 0001 والاى دى واحد لو التاريخ 2018/9/12 بيرقمه اثنين 18/09/12- 0001 والاى دى اثنين انا عايزه مثلا ثلاث اشخاص اول واحد تاريخ ميلاده 2000/9/12 يرقمه واحد 00/09/12-0001 ثانى شخص تاريخ ميلاده 2001/9/12 يرقمه اثنين 01/09/12-0002 ثانى شخص تاريخ ميلاده 2002/9/12 يرقمه ثلاثه 02/09/12-0003وهكذا اسف للاطالة وشكرا لذوق حضرتك وياريت تساعدنى اريده مثل الرقم القومى

السلام عليكم اريد عمل كود للموظفين حسب تاريخ ميلادهم مثل الرقم القومى فلو الموظف تاريخ ميلاده مثلا ( 2018/9/11) فيبقى مثلا ( 11809110000) الاصفار ده التسلسل بتاع الموظف فى التاري خ ده .. ورقم واحد الاخير ده ثابت لقيت مثال هنا للترقيم التلقائى بس مظبطش مثال موظف تاريخ ميلاده 1981/10/11 يبقى الكود111100021 موظف اخر تاريخ الميلاد 1965/10/11 يبقى الكود 111100003 ارجو الرد شكرا جزيلا db9790.rar

المساعدة يا اهل الخير

ارجو المساعدة فى برنامج قمت بانزاله من على النت 1- عدم تكرار اسم الموظف عند اضافة موظف موجود بالفعل 2- عدم تداخل الاجازة او تكرار التاريخ لنفس الموظف شكرا لمساعدتكم برنامج اجازات التكليف بالاعياد الأصل.mdb