أمجد جمالي

ممكن اخي الكريم تفضل هذه هو الكود Public Const WS_VERSION_REQD = &H101 Public Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100 And &HFF& Public Const WS_VERSION_MINOR = WS_VERSION_REQD And &HFF& Public Const MIN_SOCKETS_REQD = 1 Public Const SOCKET_ERROR = -1 Public Const WSADescription_Len = 256 Public Const WSASYS_Status_Len = 128 Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired As Integer, lpWSAData As WSADATA) As Long Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long Declare Function gethostname Lib "WSOCK32.DLL" (ByVal Hostname$, ByVal HostLen As Long) As Long Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal Hostname$) As Long Declare Function WSAGetLastError Lib "WSOCK32.DLL" () As Long Declare Sub RtlMoveMemory Lib "kernel32" (hpvDest As Any, ByVal hpvSource&, ByVal cbCopy&) Public Type HOSTENT hName As Long hAliases As Long hAddrType As Integer hLength As Integer hAddrList As Long End Type Public Type WSADATA wversion As Integer wHighVersion As Integer szDescription(0 To WSADescription_Len) As Byte szSystemStatus(0 To WSASYS_Status_Len) As Byte iMaxSockets As Integer iMaxUdpDg As Integer lpszVendorInfo As Long End Type Function Ap_GetHostNameAndIPAddress() '##################################UserName And IP Address########################### Dim StrHostName As String Dim Hostname As String * 256 Dim Hostent_Addr As Long Dim Host As HOSTENT Dim HostIP_Addr As Long Dim Temp_IP_Address() As Byte Dim I As Integer Dim StrIPAddress As String SocketsInitialize If gethostname(Hostname, 256) = SOCKET_ERROR Then MsgBox "Windows Sockets error " & Str(WSAGetLastError()) Exit Function Else MsgBox Trim$(Hostname) End If Hostent_Addr = gethostbyname(Hostname) If Hostent_Addr = 0 Then MsgBox "Winsock.dll is not responding." Exit Function End If RtlMoveMemory Host, Hostent_Addr, LenB(Host) RtlMoveMemory HostIP_Addr, Host.hAddrList, 4 StrHostName = Hostname 'get all of the IP address if machine is multi-homed Do ReDim Temp_IP_Address(1 To Host.hLength) RtlMoveMemory Temp_IP_Address(1), HostIP_Addr, Host.hLength For I = 1 To Host.hLength StrIPAddress = StrIPAddress & Temp_IP_Address(I) & "." Next StrIPAddress = Mid$(StrIPAddress, 1, Len(StrIPAddress) - 1) MsgBox StrIPAddress StrIPAddress = "" Host.hAddrList = Host.hAddrList + LenB(Host.hAddrList) RtlMoveMemory HostIP_Addr, Host.hAddrList, 4 Loop While (HostIP_Addr <> 0) SocketsCleanup '##################################UserName And IP Address########################### End Function Public Sub SocketsCleanup() Dim lReturn As Long lReturn = WSACleanup() If lReturn <> 0 Then MsgBox "Socket error " & Trim$(Str$(lReturn)) & " occurred in Cleanup " End End If End Sub Public Function hibyte(ByVal wParam As Integer) hibyte = wParam \ &H100 And &HFF& End Function Public Function lobyte(ByVal wParam As Integer) lobyte = wParam And &HFF& End Function Public Sub SocketsInitialize() Dim WSAD As WSADATA Dim iReturn As Integer Dim sLowByte As String, sHighByte As String, sMsg As String iReturn = WSAStartup(WS_VERSION_REQD, WSAD) If iReturn <> 0 Then MsgBox "Winsock.dll is not responding." End End If If lobyte(WSAD.wversion) < WS_VERSION_MAJOR Or (lobyte(WSAD.wversion) = _ WS_VERSION_MAJOR And hibyte(WSAD.wversion) < WS_VERSION_MINOR) Then sHighByte = Trim$(Str$(hibyte(WSAD.wversion))) sLowByte = Trim$(Str$(lobyte(WSAD.wversion))) sMsg = "Windows Sockets version " & sLowByte & "." & sHighByte sMsg = sMsg & " is not supported by winsock.dll " MsgBox sMsg End End If 'iMaxSockets is not used in winsock 2. So the following check is only 'necessary for winsock 1. If winsock 2 is requested, 'the following check can be skipped. If WSAD.iMaxSockets < MIN_SOCKETS_REQD Then sMsg = "This application requires a minimum of " sMsg = sMsg & Trim$(Str$(MIN_SOCKETS_REQD)) & " supported sockets." MsgBox sMsg End End If End Sub وطريقة استدعائه Ap_GetHostNameAndIPAddress تحياتي

تفضل راجع هذا الرابط تحياتي

اكيد ممكن بس لحد الان مافهمنا شو طلبك بالظبط :@ تحياتي

راجع هذه الموضوع إرسال الإيملات باستخدام SMTP, بدون اي Third Party وهذا الموضوع اظهار رسالة عند قرب انتهاء تاريخ الاقامة, برنامج شئون الموظفين تحياتي

السلام عليكم رداً على هذه الاستفسار راجع هذا الموضوع وقم بتجربة المثال طريقة التحكم مع جميع الكنترول في الفورم اما بالنسبة بإمكانك التحكم بها من خلال الجداول إذهب الى الحقل المراد تعديل عليه ثم الى خاصية Required وقم بتعديلها الى yes تحياتي

نعم يمكن لكن مع إصدار اكسيس 2000 فما فوق وهذا هو الكود Forms!MyFormName!.Move Left:=80, Top:=2520, Height:=7500 وهذا الكود لمنع المستخدم تحريك النموذج Me.Moveable = False وتقبل تحياتي

الطريقة الصحيحة للإستدعاء الكود هي Edit_Stor_Process "Amjad", 1 ولا تنسى تمرير القيم عند استدعاء الكود مثلاً Amjad as string 1 as Integer تحياتي

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

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

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

شو هو الويندوز والاوفيس الي عندك

تفضل هذا هو المثال المعدل في مثالي هذا قمت بتجميد الوقت لمدة نصف ثانية لقلة عدد النماذج والتقارير ولحتى تلاحظ كيفية عمل الكود تحياتي لك DeleteObjects.rar

بالفعل انا اضفت وعدلت على الكود بحيث لايتوقف عن العمل الا من بعد حذف جميع النماذج تحياتي

شي حلو والله رح طبق الافكار ورد عليكم بس اذا الموضوع قلب علي اقسم بالله رح تتحملو المسؤولية :d

اهلا وسهلا فيك

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

أضف المكاتب التالية Microsoft Activex Data objects 2.1 Library Microsoft Dao 3.6 Object Library وتقبل تحياتي

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

شكراً اخي الحبيب تفضل هذا هو المثال المعدل تحياتي لك dcount.rar

تفضل أخي الكريم ارجو ان اكون قد فهمت المطلوب بشكل صحيح Function Ap_DeleteForms() On Error GoTo Err_DeleteForms Dim Obj As AccessObject Dim Dbs As Object Set Dbs = Application.CurrentProject For Each Obj In Dbs.AllForms DoCmd.DeleteObject acForm, Obj.Name Debug.Print Obj.Name Next Obj Exit_DeleteForms: Exit Function Err_DeleteForms: If Err.Number = -2147467259 Then Ap_DeleteForms Exit Function End If Resume Exit_DeleteForms End Function تحياتي لك

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

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

فكرة جميلة لكن فيها عيب لو افترضنا انه انعطب الملف اثناء الفتح لأي سبب كان تخيل معي ماذا سوف يحدث سوف تحذف النسخة الاحتياطية التي لديك ويقوم بنسخ نسخة احتياطية معطوبة يجب عليك ان تتوقع اي شيء ولازم تعود نفسك بأن لاتترك أي شيء للصدفة انصحك بكتابكة كود يقوم بإنشاء فولدر وليكن اسمه Backup ويقوم بإنشاء نسخة احتياطية داخل هذا الفولدر في كل مرة تفتح او تغلق مهما يكن وكل نسخة تسمى بتاريخ ووقت إنشاء النسخة مثلاً OnOpen-15/07/2005-17:30 وبعدين تكتب كود يقوم بالتحقق من تاريخ كل نسخة احتياطية لديك ويحذف النسخة الاقدم وينشء نسخة حديثة بدلاً منها مثال عندي عشر نسخ احتياطية تم إنشائها خلال ثلاثة أيام OnOpen-12/07/2005-09:30 OnOpen-13/07/2005-13:30 OnOpen-14/07/2005-20:30 - - - - - - OnOpen-15/07/2005-17:30 عند أنشاء النسخة رقم 11 يقوم بالتحقق من تاريخ اقدم نسخة ويحذفها وينشء نسخة جديدة بدل منها هيك بكون انا كشفتك ثغرة وعطيتك فكرة لتتفادى الثغرة هي تحياتي لك

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

اكيد تقدر استخدم الدالة DateAdd ومن ثم مرر عدد الايام الي بدك ياها تحياتي