Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

د.كاف يار

Expert
  • Posts

    892
  • Joined

  • Last visited

  • Days Won

    28

د.كاف يار last won the day on July 22

د.كاف يار had the most liked content!

Reputation

909 Excellent

About د.كاف يار

  • Birthday 08/27/1981

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    طالب هندسة برمجيات | ماليزيا
  • Location
    السعودية | ماليزيا
  • Interests
    البرمجة

Contact Methods

  • MSN
    hus2010hus@hotmail.com

Recent Profile Visitors

2,664 profile views
  1. جرب هذا الحل If Len([TextBox1].Text) > 145 Then Exit Sub If Len([TextBox1].Text) > 111 Then [TextBox1].Width = 55 * Len([TextBox1].Text) End If الشرح اذا كان في النموذج يجب ان تستخدم Text للتركيز على المدخلات على الحقل و يكون الشرط اذا تجاز عدد الحروف المدخلة عن 111 حرف سيتم توسيع مربع النص بالعرض Width و حتى ان يصل عدد الحروف الى 145 حرف سوف يتوف النمو العرض و سيتم بالنمو الطولي هذه الفكرة بإختصار
  2. اتبع الإجراءات التالية اولاً / انشئ Module1 جديد و الصق فيه الشيفرة التالية Option Compare Database ption Explicit Public MyUserName, MyPassword, Full_Name, MyUser_Active, MyAddition, MyUpdate, MyDeletion, MyUser_NO As String Const SW_HIDE = 0 Const SW_NORMAL = 1 Const SW_MINIMIZED = 2 Const SW_MAXIMIZED = 3 Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub و في النموذج الرئيسي في حدث عند الفتح الصق الكود التالي HideAccess فالك التوفيق انشاء الله
  3. راح ياخذ حجم اي شاشة من جميع الاتجاهات
  4. اخي في حدث عند الفتح ضع الكود التالي Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long With Me DoCmd.Maximize lngWT = .WindowTop lngWL = .WindowLeft lngWH = .WindowHeight lngWW = .WindowWidth DoCmd.Restore Call .Move(lngWL, lngWT, lngWW, lngWH) End With سيتم تثبت مقاسات الفورم و ان لا تكون قابلة للتغيير
  5. الله يسلمك على رأسي والله انك استفدت شكرا لك
  6. طلبك غير واضح DblClick على ايش بالضبط تقدر تضع حدث عن الضغط المزدوج على اي عنصر و بطبيعة الحال جميع العناصر DblClick لا يوجد بها اي حدث
  7. تفضل هذا تعديل لإخفاء الأرقام الغير مستخدمة 2NM.zip
  8. نصيحة لك اخي الكريم بما ان هذا هدفك فهذا القسيم ليس المكان المناسب للبحث عن ذلك لكن الأهم ان لا تنتظر الحل ربما انك لن تحصل عليه بما انك بدءت فالأولى ان تكمل مشوارك و قم ببناء النموذج الذي ترغب به من حيث التصميم و العناصر و من ثم انشئ موضوع لكل قسم في النموذج ستجد انك اكملت مشورعك في وقت قصير او توجه لقسم البرامج المدفوعة و قم بشراء نسخة مدفوعة او ابني صفقة مع مبرمج
  9. ياليت تشرح كيف احتواء تلقائي هل تقصد مثل هذا اذا مثل هذا فهذه الطريقة و مرفق مثال لذلك بالعربي قابل للنوم = نعم / قابل للنقص = لا Report.mdb
  10. جرب الكود الي اعطيتك هو لا تحاول تنفذ اشياء تصعب عليك جرب الكود الي اعطيتك هو و بعد التجربة احكم هل يأدي المصلحة او لا
  11. تفضل هذا الكود فقط انسخ و الصق في ازرار النسخة الاحتياطية On Error GoTo ErrH Dim fso As Object Dim fldrname As String Dim fldrpath As String Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\Backup" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) DoCmd.RunSQL "CREATE TABLE Backup (Backup_NO INT , Backup_Name VARCHAR (50) , Backup_Path VARCHAR (100), Backup_Date Date);" End If Dim MyFile, DstFile, DataName As String Dim Syso As Object MyFile = CurrentProject.FullName DataName= "Backup-" & Format(Now, "dd-mm-yyyy") & "-(" & Format(Now, "hh.nn.ss") & ")" DstFile = CurrentProject.Path & "\Backup\" & DataName & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" Dim db As DAO.Database Dim MaxBackup_NO As Integer MaxBackup_NO = Nz(DMax("[Backup_NO]", "[Backup]"), 0) + 1 Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Backup") With rs .AddNew ![Backup_NO] = MaxBackup_NO ![Backup_Name] = DataName ![Backup_Path] = DstFile ![Backup_Date] = Now() .Update End With rs.Close Set rs = Nothing MsgBox "تم انشاء قاعدة البيانات بنجاح", vbMsgBoxRight + vbOKOnly, "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select
  12. افضل حيلة للتعامل معاه انك بعد النقر تجعل التركيز على اي مربع نص بكذه تكون اصبت الهدف 😁
  13. كفو و بيض الله و جهك و كلنا انشاء الله مكملين لبعض و نستفيد و نفيد
×
×
  • Create New...

Important Information