التقني

وهذا المثال للأخوين : طارق حنيدق و محمد طاهر جزاهما الله كل خير 3in1.rar

جرب هذا الكود ( لم أجربه شخصيا) وهو من اعداد الأخ أشرف خليل جزاه الله كل خير Private Type SHFILEOPSTRUCT hWnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Boolean hNameMappings As Long lpszProgressTitle As String End Type Private Const FO_MOVE As Long = &H1 Private Const FO_COPY As Long = &H2 Private Const FO_DELETE As Long = &H3 Private Const FO_RENAME As Long = &H4 Private Const FOF_MULTIDESTFILES As Long = &H1 Private Const FOF_CONFIRMMOUSE As Long = &H2 Private Const FOF_SILENT As Long = &H4 Private Const FOF_RENAMEONCOLLISION As Long = &H8 Private Const FOF_NOCONFIRMATION As Long = &H10 Private Const FOF_WANTMAPPINGHANDLE As Long = &H20 Private Const FOF_CREATEPROGRESSDLG As Long = &H0 Private Const FOF_ALLOWUNDO As Long = &H40 Private Const FOF_FILESONLY As Long = &H80 Private Const FOF_SIMPLEPROGRESS As Long = &H100 Private Const FOF_NOCONFIRMMKDIR As Long = &H200 Private Declare Function apiSHFileOperation Lib "Shell32.dll" _ Alias "SHFileOperationA" _ (lpFileOp As SHFILEOPSTRUCT) _ As Long Function fMakeBackup() As Boolean Dim strMsg As String Dim tshFileOp As SHFILEOPSTRUCT Dim lngRet As Long Dim strSaveFile As String Dim lngFlags As Long Const cERR_USER_CANCEL = vbObjectError + 1 Const cERR_DB_EXCLUSIVE = vbObjectError + 2 On Local Error GoTo fMakeBackup_Err If fDBExclusive = True Then Err.Raise cERR_DB_EXCLUSIVE strMsg = "هل أنت متأكد من أنك تريد عمل نسخة لهذه القاعدة ?" If MsgBox(strMsg, vbQuestion + vbYesNo, "Please confirm") = vbNo Then _ Err.Raise cERR_USER_CANCEL lngFlags = FOF_SIMPLEPROGRESS Or _ FOF_FILESONLY Or _ FOF_RENAMEONCOLLISION strSaveFile = CurrentDb.Name With tshFileOp .wFunc = FO_COPY .hWnd = hWndAccessApp .pFrom = CurrentDb.Name & vbNullChar .pTo = strSaveFile & vbNullChar .fFlags = lngFlags End With lngRet = apiSHFileOperation(tshFileOp) fMakeBackup = (lngRet = 0) fMakeBackup_End: Exit Function fMakeBackup_Err: fMakeBackup = False Select Case Err.Number Case cERR_USER_CANCEL: 'do nothing Case cERR_DB_EXCLUSIVE: MsgBox "The current database " & vbCrLf & CurrentDb.Name & vbCrLf & _ vbCrLf & "is opened exclusively. Please reopen in shared mode" & _ " and try again.", vbCritical + vbOKOnly, "Database copy failed" Case Else: strMsg = "Error Information..." & vbCrLf & vbCrLf strMsg = strMsg & "Function: fMakeBackup" & vbCrLf strMsg = strMsg & "Description: " & Err.Description & vbCrLf strMsg = strMsg & "Error #: " & Format$(Err.Number) & vbCrLf MsgBox strMsg, vbInformation, "fMakeBackup" End Select Resume fMakeBackup_End End Function Private Function fCurrentDBDir() As String Dim strDBPath As String Dim strDBFile As String strDBPath = CurrentDb.Name strDBFile = Dir(strDBPath) fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1) End Function Function fDBExclusive() As Integer Dim db As Database Dim hFile As Integer hFile = FreeFile Set db = CurrentDb On Error Resume Next Open db.Name For Binary Access Read Write Shared As hFile Select Case Err Case 0 fDBExclusive = False Case 70 fDBExclusive = True Case Else fDBExclusive = Err End Select Close hFile On Error GoTo 0 End Function وبالتوفيق

وهذا المثال: http://www.officena.net/ib/index.php?showtopic=3964 بالتوفيق

السلام عليكم ورحمة الله حياك الله أخي ابومحمد 23 بالنسبة لما طلبت اليك هذا الرابط : http://www.officena.net/ib/index.php?showtopic=3965 فيه مثال جيد

السلام عليكم ورحمة الله بالنسبة لحذف كلمة ضمن عبارة في حقل واحد .. اتبع الخطوات التالية : 1- يجب أن تعمل نسخة للقاعدة ككل 2- اعمل نسخة للجدول الذي يوجد به هذا الحقل (غير اسمه الى نسخة معدلة مثلا) 3- افتح الجدول المعني وقم بتضليل كلمة ( التاريخ ) ثم اضغط Ctrl+H وهو أمر البحث والاستبدال. 4- يظهر لك في مربع حوار الاستبدال خانتين الأولى : البحث عن ... والآخرى : استبدال بــ . 5-ضع في في الخانة الأولى ( التاريخ وأعتقد أنك سنجدها أمامك) وهي الكلمة المراد تحديدها وحذفها . 6- لا تضع شيء في خانة الكلمة البديلة 7- اختر من بند مطابقة الخيار ( أي جزء من الحقل) 8- اضغط زر بحث فإذا تم تضليل كلمة التاريخ اضغط استبدال .. سوف يتم عمل استبدال واحد فقط 9 - كرر الخطوة 8 عدة مرات ليتم الاستبدال بطريقة يدوية حتى تطمئن لنجاح الاستبدال وبعد ذلك توكل على الله واضغط استبدال الكل :) ستجد أن عملية الاستبدال تعمل اوتوماتيكيا وستأخذ وقتا 10 - بعد نجاح العملية وبعد أن تتأكد من عدم نقص في المعلومات وأن التعديل حصل فقط في حقل التاريخ وأن كلمة ( التاريخ ) تم ازالتها وبنجاح قم بتطبيق ذلك على القاعدة الأصلية وبالتوفيق

السلام عليكم ورحمة الله الجداول المطلوبة هي : 1- جدول البيانات الأساسية للطلبة (بيانات ثابته) 2- جدول الدرجات وفيه ترصد درجات المواد وهو جدول متوسع (قابل للنمو) 3- علاقة واحد لمتعدد ( رأس باطراف) النماذج المطلوبة هي : 1- نموذج يستند الى جدول البيانات الأساسية ( واجهة إدخال البيانات ) 2- نموذج رصد الدرجات الاستعلامات : 1- استعلام يدمج فيه بعض البيانات الأساسية و الدرجات ويتم فيه اظهار الدرجات مجموعها 2- استعلام ترتيب الطلبة حسب المجاميع أعتقد أن ذلك بداية لبرنامج نتيجة الطلبة وبالتوفيق

السلام عليكم ورحمة الله حياك الله أخي العزيز اطلع على هذه المواضيع في الرابط التالي : http://www.officena.net/ib/index.php?showforum=82

السلام عليكم ورحمة الله تقبل الله صوم الصائمين إخواني الأكارم .. حصل لي موقف طريف وهو أنني دخلت بالخطأ على موضوع في الاكسل لظني أنه موضوع آكسس :) في الرابط أدناه : http://www.officena.net/ib/index.php?showtopic=9789&st=0& المهم قرأت الموضوع وتبين أن السائل يرغب بتلوين حقل انتهاء التاريخ بلون معين فشرعت بتجهيز الرد وشاء الله أن أنشغل لليوم التالي ودخلت المنتدى لأرد ، وبحثت عن المشاركة فلم أجدها وعندما رجعت الى المحفوظات أكتشفت الخطأ الذي وقعت فيه لكن ... ما المانع ان أضع بين أيديكم المثال ليستفيد منه الأخوة وإن كان به تعديل فحيا هلا به :) و.... رمضان كريم TimeOver.rar

السلام عليكم ورحمة الله أخي العزيز جرب هذا المثال في المرفقات فهو يسرد لك السجلات التي تبدأ بحرف معين بمجرد الضغط على الحرف Ser_ListBox.rar

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

العفو أخي العزيز بما أن الهدف من خانة الاختيار هو إظهار علامة الصح وأعتقد انك تريد اخفاؤها في حال عدم وجود علامة الصح ( صح كلامي :)) والا فما الفائدة من وجود خانة الاختيار في التقرير الحل هو باستخدام الكود وتحديدا استخدام الآتي: Visible

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

وعليكم السلام ورحمة الله وبركاته إن كنت تقصد بذلك الحد المربع والذي يحيط بعلامة الصح .. يمكنك ذلك من خلال خصائص خانة الاختيار ومن ثم التعديل من خلال تبويبة تنسيق وتختار من خانة تأثير خاص الاختيار ( منحوت ) ومن نمط الحدود ( شفاف ) وبالتوفيق

وهذا الرابط من ميكروسوفت يتناول فيه تعديل اعدادات الطباعة برمجيا: http://msdn.microsoft.com/library/default....10_Printers.asp

اطلع على هذا الموضوع: http://www.officena.net/ib/index.php?showtopic=7807

السلام عليكم ورحمة الله نورت الموضع بتواجدك أخي rudwan فعلا الكود 100% يعمل بكفاءة لكن بعد الغاء الكود التالي في حدث عند الخروج: Private Sub sex_Exit(Cancel As Integer) 'If Sex.Value = "انثى" Then 'Nat.Value = Nat.Value + "ة" 'Oky.Visible = True 'End If End Sub النتيجة .. المثال الذي أرفقه الحبيب rudwan هو المعتمد بارك الله في الأخوين الاستاذين أبو هادي و rudwan وعلى الخير نلتقي

وعليكم السلام ورحمة الله وبركاته حياك الله أخي أبو هادي الكود لم يعمل معي ( لا يوجد له أي تأثير ) -------------

السلام عليكم ورحمة الله بالنسبة لوجود المسافة في التقرير فهذا يعتمد على الهوامش وهي إما أن تعدلها بواسطة الاعدادات أو عن طريق الكود ( وهذا أفضل ) وبالتوفيق

السلام عليكم ورحمة الله وبركاته اخواني أقدم اليك طريقة ( أو حركة بسيطة ) للتعرف على جنس الشخص ومن ثم تغيير جنس جنسيته .. ففي بعض البرامج يتم ارفاق جدول به أسماء الجنسيات مثل : مصري - سعودي - كويتي - عراقي .... الخ وهذه المسميات تتبع الاسم المذكر ولكن اذا أردنا أن ادخال أسماء مؤنثة فهل من المعقول انشاء هذا الجدول بهذه الطريقة : مصري - مصرية - سعودي - سعودية - كويتي - كويتية .... الخ من المسميات للجنسين عندها سنحتاج الى سجلات مضاعفة وخاصة إذا أدخلنا جميع جنسيات العالم . في المرفقات طريقة التعديل على جنس الجنسية :) ملاحظة مهمة : توجد مشكلة في الكود ....الذكي يتعرف عليها وطبعاً الأذكي هو الذي سيضع لها الحل . وتقبل الله صيامكم التقني gndr.rar

السلام عليكم ورحمة الله اخواني أعضاء منتدى الفرونت بيج العام أول مرة أدخل منتداكم جعله الله منتدى خير ومنفعه فأنا متوجد وبصفة مستمرة بمنتدى الآكسس وجدت في أحد المواقع أداة أو كود أو سكربت يمكنه هز :d أزرار الفورم بمجرد مرور الفأرة عليها : <!-- TWO STEPS TO INSTALL CRAZY SHAKING FORM BUTTONS: 1. Copy the coding into the HEAD of your HTML document 2. Add the last code into the BODY of your HTML document --> <!-- STEP ONE: Paste this code into the HEAD of your HTML document --> <HEAD> <script LANGUAGE="JavaScript"> <!-- This script and many more are available free online at --> <!-- The JavaScript Source!! http://javascript.internet.com --> <!-- Original: Scriptbreaker (pieterpareit@hotmail.com ) --> <!-- Web Site: http://www.scriptbreaker.com --> <!-- Begin pos = 15; TO = null; function shake_funct2(object,speed) { obj = eval(object) txt = clear_space(obj.value); if (pos == 15) { txt = txt + " "; pos = -15; } else { txt = " " + txt; pos = 15; } obj.value = txt; obj.style.width = parseInt(obj.style.width) + pos; obj = object sp = speed TO = setTimeout("shake_funct2(obj,sp)",speed); } function clear_space(text) { while (text.substring(0,1) == " ") { text = text.substring(1,text.length); } while(text.substring(text.length-1,text.length) == " ") { text = text.substring(0,text.length-1); } return text; } function end_shake_funct2(object) { clearTimeout(TO); obj = eval(object); txt = clear_space(obj.value); obj.value = txt; //alert(pos); if (pos == -15) { obj.style.width = parseInt(obj.style.width) +15; } pos = 15 } // End --> </script> </HEAD> <!-- STEP TWO: Copy this code into the BODY of your HTML document --> <BODY> <form name=myform2> <table border=0> <tr><td> Test the shake button </td> <td align=center width=160> <input type=button value = "shake me" style="font-size:10;width:150" onmouseover="shake_funct2(this,100)" onmouseout="end_shake_funct2(this)"> </td></tr> <tr><td> Get something harder </td> <td align=center width=160> <input type=button value = "A bit faster" style="font-size:10;width:150" onmouseover="shake_funct2(this,50)" onmouseout="end_shake_funct2(this)"> </td></tr> </Table> </form> <p><center> <font face="arial, helvetica" size"-2">Free JavaScripts provided<br> by <a href="http://javascriptsource.com">The JavaScript Source</a></font> </center><p> <!-- Script Size: 2.25 KB --> وهذا هو رابط الموقع الأصلي: Crazy Shaking Form Buttons وفي امان الله التقني

السلام عليكم ورحمة الله حقيقة أعجبني الكود الذي أرفقه الأخ رضوان ... فبارك الله به وبعلمه وللحقيقة فأنا متابع موضوع الأخ منذ البداية وحاولت بشتى الطرق ولم أستطع بل ودخلت منتديات أجنبية علني أجد هذا الكود أو أي طريقة فلم أفلح وأيضا .. تشكر أخي ZAHOF على المثال

السلام عليكم ورحمة الله حياك الله أخي gelani الحل بسيط بإذن الله ... فقط ضع الكود التالي في حدث عند التركيز للحقل Name : Private Sub Name_GotFocus() TimesP.Visible = False End Sub وبذلك نضمن اختفاء حقل عدد مرات الولادة عند كل سجل جديد ولا يظهر إلا عند اختيار أنثى بالتوفيق أخي

وعليكم السلام ورحمة الله وبركاته بالنسبة لكلمة السر والتحكم بها انظر الى المرفقات أدناه : P_W.rar

وعليكم السلام ورحمة الله وبركاته يبدو أن المشكلة يعاني منها أكثر من عضو أعتقد ان في الموضوع شيء إما أن يكون فيروس أو أن الخلل من ميكروسوفت محاربة ( النسخ الغير رسمية ) موضوعي يتناول تقريبا نفس المشكلة : http://www.officena.net/ib/index.php?showtopic=8596&hl=

وجدت في الخط Times New Roman حرف الهاء الذي تريده انظر المرفقات