أبو آدم

نبارك للأخ محمد أيمن ترقيته لعضو مميز أملاً من الله أن يستمر بالعطاء و المثابرة و مدّ يد العون لإخوته كما عهدناه ، .... ولكل مجتهد نصيب والى الأمام أخي محمد ... وبارك الله بك ولك مع تقديرنا للأخ المهندس محمد طاهر ، ورفيق الدرب أبو خليل .................

أخي العزيز حاولت كثيراً - وساستمر بالمحاولة - لإستعادة النموذج ... ولكنني لم أفلح للإسف ... المسألة فيما جربتُ وإختبرت خلل في نسخة الأفيس ... أوصي بمعالجة ذلك ، بإصلاحها أو إعادة تنصيبها ، وأُفضل إستخدام نسخة جديدة .. والله أعلم .................

أخي العزيز كيماس آمل أن يكون هذا ما تقصده تفضل ........ NA_MultipleColumnReports.rar

يرجى ارفاق مثال للتطبيق و التعديل حيث أن تغيير الاسم كل مرة يحتاج الى كود ... آملين مراعاة قواعد إسم الظهور في المنتدى ....... http://www.officena....ncement=21&f=89 وشكراً

حياك الله أخي العزيز ...... آملين مراعاة قواعد إسم الظهور في المنتدى ....... http://www.officena.net/ib/index.php?showannouncement=21&f=89 وشكراً

أخي ... لم اتمكن من إدراك الاسم لأناديك ، يرجى التعديل حسب قواعد المنتدى ... http://www.officena.net/ib/index.php?showannouncement=21&f=51 ............ أما بخصوص التطبيق ، فيرجى إرفاق مثال للتطبيق والشرح وأهلاً بك ................

جاري التحميل ... وقيد النظر ...............

الحمدلله الذي بفضله تقضى الحاجات (تمت الاجابة)

أخي العزيز أبا حنين إنجاز طيب ، تجولت في التطبيق ولم أستكمل التجربة بعد .... ولكنني وجدت من الضرورة بمكان أن أسارع بالإعراب عن إعجابي بأدائك المتميز جزيت خيراً ، بارك الله بك ونفع بعلمك شكراً ................

تفضل .... ................... za-Database-NAup2.rar

تفضل ...... ............... za-Database-NAup1.rar

أخي نور سعيد يفضل أن ترفق مثالاً للتطبيق و التعديل ............................

أخي العزيز مع الشكر و التقدير للأخ اسامة محمد نوري تفضل ........... برنامج دليل الهاتف معدل.rar

أخي العزيز أبو عزوز مرفق مع تطبيقك نموذج دخول مستخدم وكلمة سر Login وما يلزمه جعلت التطبيق أبسط ما يمكن ... وجعلت التأثير واضح في النموذج الرئيسي main باظهار المستخدم وقاعدة تحديد صلاحياته عبر الكودات الاسم وكلمة السر Nart nart Aboazoz aboazoz جرب ... ووافني بالنتيجة ................... NA_announce.rar

جاري النظر ... و التطبيق بإذن الله ................

أنا دائم المتابعة لمواضيعك وأنت ربطت إسمي بتطبيقك ... فإن أكثرت أنا المديح ، ... قد يساء الفهم هذه هي ترجمة مع تقديري لمواظبتك وحماسك ................

شهادتي بما قدّمت مجروحة ولكن التطبيق يعمل بشكل ممتاز ويحقق الغاية وقابل للتطوير ... شكراً

أخي العزيز محمد أيمن شكراً لك لهذا الثناء الطيب ، الذي إنما ينّمُ عن طيب أصلك ومنبتك ، وعلى أنك طالب علم حقيقي وما لي من فضل ، إن الفضل إلا لله والله من وراء القصد ... وهو حسبي ................

وهذا التطبيق المعدّل ..... والله من وراء القصد ... وهو حسبي ............... za-Database-NAup.rar

أخي العزيز هذه هي الكودات .... Private Sub sam_codec_AfterUpdate() Dim rst As DAO.Recordset Dim strSQL As String strSQL = "SELECT [samresult-tbl].sam_codec " & vbCrLf & _ "FROM [samresult-tbl] " & vbCrLf & _ "WHERE [samresult-tbl].sam_codec = '" & Me!sam_codec & "' ;" Set rst = CurrentDb.OpenRecordset(strSQL) If rst.RecordCount > 0 Then MsgBox " Doblecated recorde", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " Note " Do Until rst.EOF rst.MoveNext Loop End If Me.Undo DoCmd.CancelEvent rst.Close Set rst = Nothing Me.Text72 = "" Me.sam_date.SetFocus End Sub Private Sub sam_codec_GotFocus() Me.Text72 = DMax("[id]", "samresult-tbl") End Sub ...................

الحمدلله الذي بفضله تقضى الحاجات (تمت الاجابة)

إظهار خصائص الأقراص الموجودة (ضمن الجهاز) سواء ثابتة أو قابلة للإزالة (USB) باستخدام Win32_DiskDrive كطلب الاخ محمد أيمن وتطبيق نارت لبزو ( أبو آدم) http://www.officena....showtopic=41308 وتطبيق مبني على هذا الأساس ، تطبيق جميل ومفيد للأخ محمد أيمن لحماية التطبيقات برقم المصنع للفلاش ميموري http://www.officena....showtopic=41572 ..................

بإنتظار تفاعلك ... أخي أيمن .......................

أخي محمد أيمن تفضل ...... Dim objWMIService, objItem, colItems, strComputer, IDD On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" _ & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive") For Each objItem In colItems If objItem.InterfaceType = "USB" Then MsgBox "Computer: " & objItem.SystemName & vbCr & _ "Status: " & objItem.Status & vbCr & _ " ==================================" & vbCr & _ "Name: " & objItem.Name & vbCr & _ "Description: " & objItem.Description & vbCr & _ "Signature: " & objItem.Signature & vbCr & _ "Manufacturer: " & objItem.Manufacturer & vbCr & _ "Model: " & objItem.Model & vbCr & _ "Size: " & Int(objItem.Size / (1073741824)) & " GB" & vbCr & _ "Number of Partitions: " & objItem.Partitions & vbCr & _ "Total Cylinders: " & objItem.TotalCylinders & vbCr & _ "Tracks PerCylinder: " & objItem.TracksPerCylinder & vbCr & _ "Total Heads: " & objItem.TotalHeads & vbCr & _ "Total Sectors: " & objItem.TotalSectors & vbCr & _ "Bytes PerSector: " & objItem.BytesPerSector & vbCr & _ "Sectors PerTrack: " & objItem.SectorsPerTrack & vbCr & _ "Total Tracks: " & objItem.TotalTracks & vbCr & _ "Total SerialNumber: " & objItem.SerialNumber & vbCr & _ " -------- DeviceID Info ---------- " & vbCr & _ "PNPDeviceID: " & objItem.PNPDeviceID & vbCr & _ "InterfaceType: " & objItem.InterfaceType End If Next والله من وراء القصد ... وهو حسبي ...........

في الاكسيس في خصائص مربع النص ... input mask ... قم باختيار password .....................