amir_adam83

بارك الله فيك استاذنا الكريم تم

السلام عليكم لدي كود في ايقاف البرنامج بعد مده زمنية وهو Private Sub Form_Current() On Error Resume Next Dim odate As Date Dim message, rdate As String odate = #3/28/2021# If odate <= Date Then MsgBox "لقد تم انهاء فترة التجربه", vbInformation, "تنبيه" DoCmd.Quit DoCmd.OpenForm "Give access rights to the system" Else rdate = CStr(odate - Date) Me.dAYER.Caption = " باقي على مدة انتهاء فترة التجريب" & " " & rdate & " " & "يوم/ايام" End If end sub اريد ان اضع تاريخ الانتهاء في جدول بدلا من ان ادخل على فيجول بيسك واعدل تاريخ التشغيل وجزاكم الله خير

kha9009lid شكرا استاذي الكريم هذا هو المطلوب بالفعل

السلام عليكم ورحمة الله وبركاتة برجاء المساعدة في تجميد صف في النموذج الفرعي تم استخدام هذا الكود ولم يظبط معي مثل هذا Private Sub Appro_Click() On Error Resume Next If IsNull(Me.Appro.Value = False) Then Me.ID.Enabled = True = Me.ID.Enabled = True Me.DatRet.Enabled = True Me.DatDay.Enabled = True Me.Dour.Enabled = True Me.DatBr.Enabled = True Me.DatRetIn.Enabled = True Me.TypBr.Enabled = True Else MsgBox "عفول تم اغلاق ملف الاجازه هذا لايمكن التعديل علية", vbCritical, "تنبية" Me.ID.Enabled = True = Me.ID.Enabled = False Me.DatRet.Enabled = False Me.DatDay.Enabled = False Me.Dour.Enabled = False Me.DatBr.Enabled = False Me.DatRetIn.Enabled = False Me.TypBr.Enabled = False End If End Sub وتظهر لي عند تشغيل النموذج بهذه الصوره ومرفق قاعدة البيانات شكرا لكم الاجازات.rar

ما اقدر اسوي لك شي او اعبر عن فرحتي بمساعدتك استاذي الكريم وباقي الاخوره غير ان يبارك الله فيك ويجزاك خير الجزاء ويجعله في ميزان حسناتكم هذا هو المطلوب بلفعل شكرا لك د.كاف يار شكرا لك

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

ابو ياسين المشولي شكرا على مرورك الكريم اخي ولكن هذا ما ظهر لي بعد ان حجبت On Error Resume Next

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

kanory بارك الله فيك هذ هو المطلوب بلفعل لكن ممكن شرح للعملية حتى اسويها داخل برنامجي شكرالك وجزاك الله خير الجزاء

هل هي مشكلة ام من المستحيل عملها

السلام عليكم كل مافي الموضوع هو وضع البيانات في عمودين ولكن يظهر بتكرارا العمود الثاني بارك الله فيكم

If isnoll(Me.Text.Text = 0 Or Me.Text.Text = 0 Or Me.Text.Text = 0 Or Me.Text.Text = 0) Then Me.Command1.Enabled = False Else Me.Command1.Enabled = True End If في حدث عند التحميل If isnoll(Me.Text.Text = 0 Or Me.Text.Text = 0 Or Me.Text.Text = 0 Or Me.Text.Text = 0) Then Me.Command1.Enabled = False Else Me.Command1.Enabled = True End If والله اعلم

ناقل بعتزر اخي الكريم المرفق Database.rar

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

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

GetUUID = Nz(Trim(objItem.UUID), 0) هذا الكود اضعه في نموذج الدخول عند التحقق من اسمه المستخدم وكلمة المرور تقصد

اخي الكريم تم بالفعل عمل وحدة نمطيه Public Function GetUUID() On Error Resume Next Dim strComputer As String Dim objWMIService, colItems, objItem strComputer = "." 'default to localhost Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48) For Each objItem In colItems GetUUID = Nz(Trim(objItem.UUID), 0) Next End Function وهذه هي اكواد شاشة الدخول Option Compare Database Dim GR_Language As Byte Const GR_Arabic As Byte = 1 Const GR_English As Byte = 2 Dim Stest As Byte Dim sTimer As Integer 'Dim db As DAO.Database 'Dim rs As Recordset Private Sub CmdExit_Click() On Error Resume Next '--------------------------------------------------------------------- ' هذا الكود لاغلاق النموذج والخروج من البرنامج | '--------------------------------------------------------------------- DoCmd.Quit End Sub Private Sub Form_Load() On Error Resume Next '--------------------------------------------------------------------- ' هذا الكود لعدم تفعيل زر الدخول الى البرنامج قبل التاكد من التصريخات| '--------------------------------------------------------------------- Me.Log_In.Enabled = False Me.TextYaer.Caption = Format(Date, "yyyy") Me.Labenname.Caption = DLookup("[The_Company's_name]", "Table_02_Copmany_Enter_Pimr") Me.Labelconectt.Caption = CurDir$ End Sub Private Sub Form_Open(Cancel As Integer) On Error Resume Next Me.TimerInterval = 1000 sTimer = 45 '--------------------------------------------------------------------- ' هذا الكود لافراغ كافة التكستات بوكس بالنموذج عند فتح النموذج | '--------------------------------------------------------------------- Me.Us.Text = "" Me.Pass.Text = "" Me.LinkPhoto.Text = "" End Sub Private Sub Log_in_Click() On Error Resume Next myAmirNamw = Me.AmirNamw() 'اسفل mynameuser = Me.NameUser() 'اسم لينك الصورة mylinkSalma = Me.LinkPhoto() mycode = Me.Coder DoCmd.GoToRecord , , acNewRec Dim db As DAO.Database Dim Rs As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("Table_02_EmpMoveUsersdr") Rs.AddNew Rs!Code_Emp = Me.Coder Rs!Nam_Emp = Me.NameUser Rs!UserName = Me.AmirNamw Rs!Passowred = Me.Passore Rs!Data_in = Me.DatIn Rs!Tim_in = Me.Time_In Rs!Tim_Out = Me.TimOut Rs!IP_Compuoter = Me.IpComp Rs!Nam_Compuoter = Me.Name_Comp Rs!PicPath1 = Me.LinkPhoto Rs.Update Rs.Close db.Close Set Rs = Nothing Set db = Nothing Forms!Form_02_User_Login.Form.Requery DoCmd.Close DoCmd.OpenForm "Form_03_MainScareen" End Sub Private Sub Pass_AfterUpdate() On Error Resume Next '--------------------------------------------------------------------- ' هذا الكود للتحقق من كلمة مرور الدخول للبرنامج | '--------------------------------------------------------------------- If Pass = Passore Then Me.Log_In.Enabled = True Else MsgBox "عفوا كلمة المرور المدخله غير صحيحه ,Sorry, The Password You Entered Is Incorrect", vbCritical, "Information Systems Security and Protection Officer" Me.Us.Text = "" Me.Pass.Text = "" Me.Log_In.Enabled = False End If End Sub Private Sub Us_AfterUpdate() On Error Resume Next '--------------------------------------------------------------------- ' هذا الكود خاص بجلب بيانات مستخدم من جدول الموظفين في قاغدة البيانات| '--------------------------------------------------------------------- [NameUser] = DLookup("[Nam_Emp]", "Table_01_EnterDataUsers", "UserName=[Us]") [Coder] = DLookup("[Code_Emp]", "Table_01_EnterDataUsers", "UserName=[Us]") [AmirNamw] = DLookup("[UserName]", "Table_01_EnterDataUsers", "UserName=[Us]") [Passore] = DLookup("[Passowred]", "Table_01_EnterDataUsers", "UserName=[Us]") [LinkPhoto] = DLookup("[PicFile]", "Table_01_EnterDataUsers", " UserName=[Us]") If IsNull(DLookup("[UserName]", "Table_01_EnterDataUsers", "[UserName]='" & [Us] & "'")) Then MsgBox " اسم المستخدم المدخل هذا غير صحيح وغير مسجل بسجلات المستخدمين This Username Entered Is Incorrect And Not Registered In User Records", vbCritical, "Information Systems Security and Protection Officer" Me.Us.Text = "" Cancel = -1 Else End If End Sub Private Sub Form_Current() On Error Resume Next '--------------------------------------------------------------------- ' هذا الكود لجلب اسم الكمبيوتر الذي تم الدخول عليه البرنامج | '--------------------------------------------------------------------- Me.Name_Comp = fOSMachineName '--------------------------------------------------------------------- 'هذا الكود لجلب اي بي الكمبيوتر الذي تم الدخول عليه البرنامج | '--------------------------------------------------------------------- Dim myWMI As Object, myobj As Object, itm Set myWMI = GetObject("winmgmts:\\.\root\cimv2") Set myobj = myWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each itm In myobj Me.IpComp = itm.IPAddress(0) Next End Sub Private Sub Form_Timer() On Error Resume Next sTimer = sTimer - 1 Me.Text10.Value = sTimer If sTimer = 0 Then TimerInterval = 0 MsgBox " انتهى الزمن المخصص للدخول Entry Time Expired...", vbQuestion, "Monitor users" DoCmd.Quit End If Me.LabeNAM.Caption = Name_Comp End Sub اين اضع هذا الكود داخل شاشة الدخول وتم انشاء حقل جديد في جدول المستخدمين اسمه uuid

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

السلام عليكم ورحمة الله وبركانة اريد كود يمنع دخول المستخدمين باسم واحد على الشبكة بمعنى user: Amr Pass:**** تم دخول امير على جهاز رقم واحد ومن ثم ذهب الى جهاز اتنين وادخل نفس اسم المستخدم وكلمة المرور وللاسف الشديد تم دخوله الى الجهاز رقم اتنين هل من طريقه او من كود عند ادخال اسم المستخدم يعطي له رسالة بان اسم المستخدم هذا متواجد بالفعل شكرا لكم