اذهب الي المحتوي
أوفيسنا

دروب مبرمج

الخبراء
  • Posts

    204
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    4

كل منشورات العضو دروب مبرمج

  1. قم بتعديل تنسيق الاخراج الى النتيجة DateConverter_01.mdb
  2. اتابع بشغف كل اطروحاتك استاذي ان توظيفك للغات برمجة بهذا الاسلوب يخلق لنا مفهوم جديد لبرمجة الأكسس و تأخذنا لأبعد و اعمق في عالم البرمجة فعلا ما تقدمت به في المثال الأول و هذا المثال هو فخر لكل المبرمجين العرب فبعيدا عن الفكرة التي نالت اعجابي في كلا المثالين ان صياغة الكود التي تقدمت بها فعلا سهلة لكل مبتدء اذا ما تعمق بها و فهم كل تكوينتها دائما اقف في مشاريعك بإنبهار و اقوم بالتصفيق لك في مخيلتي و اسلوبها المميز في التركيبة الكودية التي تجعل المبرمج المبتدء يفهمها
  3. شهادة محترف اعتز بها استاذي القدير فأنا استمد منك علمي و معرفتي جعل الله ما تقوم به و تقدمه في موازين حسناتك فأنت الأب الروحي و الشريان الرئيسي لهذا الصرح العظيم شكرا لا تكفى فإن كان هنالك اعظم من كلمة شكرا فهي قليلة جدا في حقك استاذي الفاضل شكرا لكم اخواني الاعضاء على هذه الروح الجميلة و كلماتكم المحفزة و اسأل الله ان يعننا على هذه الأمانة شرفتني بكلماتك العظيمة استاذي الفاضل ففي قمة الإحراج و الاعتزاز تعجز الكلمات عن الشكرا و عن الوصف شكرا لكم فردا فردا على هذه الثقة العظيمة
  4. اخي الكريم يجب ان تتعلم و لا تستخدم اكواد لا تفهمها من مضمون طلبك فأنت بحاجة الى التجميع بشرط و قد وفرت ما يكروسوفت دالة لهذه المهمة اسمها DCount وهذا مثال لكيفية استخدامها DCount("*", "Tabel_Name", "[Coulmin_Name] Like '" & [TextBox1] & "'") ============================================================================ الـــــــــشـــــــــــــــرح ============================================================================ Tabel_Name / اسم الجدول الذي يتحوي على البيانات Coulmin_Name اسم العمود الذي تريد ان تقوم الدالة بحساب القيمة الذي يحتويه مثلا تريد معرفة عدد الذكور او عدد الإناث يعني انت تريد عمود نوع الجنس [TextBox1] هنا يمكن ربط المعيار بعنصر تحكم او بنص صريح مثلا ذكر/انثى و لإضافة شرط اضافي مثلا كما في مثالك كشرط المنطقة DCount("*", "Tabel_Name", "[Coulmin_Name1] Like '" & [TextBox1] & "' AND [Coulmin_Name2] Like '" & [TextBox1] & "'") بهذه الطريقة تعلمت كيف تقوم بجميع القيم
  5. تفضل هذا الكود للتشفير و فك التشفير لكن في البداية لابد من اضافة مكتبة XML من الاصدار الثاني و اعلا Option Explicit Private Const clOneMask = 16515072 Private Const clTwoMask = 258048 Private Const clThreeMask = 4032 Private Const clFourMask = 63 Private Const clHighMask = 16711680 Private Const clMidMask = 65280 Private Const clLowMask = 255 Private Const cl2Exp18 = 262144 Private Const cl2Exp12 = 4096 Private Const cl2Exp6 = 64 Private Const cl2Exp8 = 256 Private Const cl2Exp16 = 65536 Public Function Encode64(sString As String) As String Dim bTrans(63) As Byte, lPowers8(255) As Long, lPowers16(255) As Long, bOut() As Byte, bIn() As Byte Dim lChar As Long, lTrip As Long, iPad As Integer, lLen As Long, lTemp As Long, lPos As Long, lOutSize As Long For lTemp = 0 To 63 Select Case lTemp Case 0 To 25 bTrans(lTemp) = 65 + lTemp Case 26 To 51 bTrans(lTemp) = 71 + lTemp Case 52 To 61 bTrans(lTemp) = lTemp - 4 Case 62 bTrans(lTemp) = 43 Case 63 bTrans(lTemp) = 47 End Select Next lTemp For lTemp = 0 To 255 lPowers8(lTemp) = lTemp * cl2Exp8 lPowers16(lTemp) = lTemp * cl2Exp16 Next lTemp iPad = Len(sString) Mod 3 If iPad Then iPad = 3 - iPad sString = sString & String(iPad, Chr(0)) End If bIn = StrConv(sString, vbFromUnicode) lLen = ((UBound(bIn) + 1) \ 3) * 4 lTemp = lLen \ 72 lOutSize = ((lTemp * 2) + lLen) - 1 ReDim bOut(lOutSize) lLen = 0 For lChar = LBound(bIn) To UBound(bIn) Step 3 lTrip = lPowers16(bIn(lChar)) + lPowers8(bIn(lChar + 1)) + bIn(lChar + 2) lTemp = lTrip And clOneMask bOut(lPos) = bTrans(lTemp \ cl2Exp18) lTemp = lTrip And clTwoMask bOut(lPos + 1) = bTrans(lTemp \ cl2Exp12) lTemp = lTrip And clThreeMask bOut(lPos + 2) = bTrans(lTemp \ cl2Exp6) bOut(lPos + 3) = bTrans(lTrip And clFourMask) If lLen = 68 Then bOut(lPos + 4) = 13 bOut(lPos + 5) = 10 lLen = 0 lPos = lPos + 6 Else lLen = lLen + 4 lPos = lPos + 4 End If Next lChar If bOut(lOutSize) = 10 Then lOutSize = lOutSize - 2 If iPad = 1 Then bOut(lOutSize) = 61 ElseIf iPad = 2 Then bOut(lOutSize) = 61 bOut(lOutSize - 1) = 61 End If Encode64 = StrConv(bOut, vbUnicode) End Function Public Function Decode64(sString As String) As String Dim bOut() As Byte, bIn() As Byte, bTrans(255) As Byte, lPowers6(63) As Long, lPowers12(63) As Long Dim lPowers18(63) As Long, lQuad As Long, iPad As Integer, lChar As Long, lPos As Long, sOut As String Dim lTemp As Long sString = Replace(sString, vbCr, vbNullString) sString = Replace(sString, vbLf, vbNullString) lTemp = Len(sString) Mod 4 If lTemp Then Call Err.Raise(vbObjectError, "MyDecode", "Input string is not valid Base64.") End If If InStrRev(sString, "==") Then iPad = 2 ElseIf InStrRev(sString, "=") Then iPad = 1 End If For lTemp = 0 To 255 Select Case lTemp Case 65 To 90 bTrans(lTemp) = lTemp - 65 Case 97 To 122 bTrans(lTemp) = lTemp - 71 Case 48 To 57 bTrans(lTemp) = lTemp + 4 Case 43 bTrans(lTemp) = 62 Case 47 bTrans(lTemp) = 63 End Select Next lTemp For lTemp = 0 To 63 lPowers6(lTemp) = lTemp * cl2Exp6 lPowers12(lTemp) = lTemp * cl2Exp12 lPowers18(lTemp) = lTemp * cl2Exp18 Next lTemp bIn = StrConv(sString, vbFromUnicode) ReDim bOut((((UBound(bIn) + 1) \ 4) * 3) - 1) For lChar = 0 To UBound(bIn) Step 4 lQuad = lPowers18(bTrans(bIn(lChar))) + lPowers12(bTrans(bIn(lChar + 1))) + _ lPowers6(bTrans(bIn(lChar + 2))) + bTrans(bIn(lChar + 3)) lTemp = lQuad And clHighMask bOut(lPos) = lTemp \ cl2Exp16 lTemp = lQuad And clMidMask bOut(lPos + 1) = lTemp \ cl2Exp8 bOut(lPos + 2) = lQuad And clLowMask lPos = lPos + 3 Next lChar sOut = StrConv(bOut, vbUnicode) If iPad Then sOut = Left$(sOut, Len(sOut) - iPad) Decode64 = sOut End Function
  6. انصح بالحبث عن دورات في لغة HTML لأن المثال المرفق مبني على لغة HTML يجب عليك معرفة هذه اللغة لكي تستطيع التعامل معها
  7. تفضل هذا المثال و اي استفسار ستجدني و الاخوة في الخدمة فقط قم بفك الضغط عن الملف و من ثم التجربة مثال ربط الاكسل.zip
  8. استبدل الأسطر التالية تحويل المتعيير من رقم صحيح الى مزدوج ' القيمة الافتراضية للشراء Public Function sellVal(Val As Integer) As Double [Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate2].DefaultValue = Val End Function 'القيمة الإفتراضية للبيع Public Function buyVal(Val As Integer) As Double [Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate].DefaultValue = Val End Function
  9. تفضل بهذه الطريقة استبدل الكود في الموديل بالتالي ' القيمة الافتراضية للشراء Public Function sellVal(Val As Integer) As Integer [Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate2].DefaultValue = Val End Function 'القيمة الإفتراضية للبيع Public Function buyVal(Val As Integer) As Integer [Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate].DefaultValue = Val End Function في حدث ضع التالي بعد التحديث لمربعة النص ( Text59 / text61 ) ' القيمة الافتراضية لسعر البيع =sellVal([Forms]![customer account]![حساب العملاء]![Text59]) ' القيمة الافتراضية لسعر الشراء =buyVal([Forms]![customer account]![حساب العملاء]![Text61]) test rate (4).zip
  10. تفضل التعديل اخفاء العناصر Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then Form(ctl.Name).Visible = False End If Next ctl عدم تمكين الكتابة داخل مربع النص لجميع العناصر Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then Form(ctl.Name).Enabled = False End If Next ctl Database41.accdb
  11. من خلال التنسيق الشرطي تستطيع تنفيذ ما تردي قمت بتنفيذ طلبك على عمود Arab حل للتقارير متعددة الأعمدة_01.zip
  12. اخي زودنا فقط بالجداول فقط البنية بدون بيانات او سطر واحد من البيانات
  13. تفضل هذه البداية و اكمل ما تريده و ان استصعب عليك امر تجدني و الإخوة في خدمتك Graff.zip
  14. تفضل هذا المثال عبارة عن اختيار مجموعة من الصور لكن بالإمكان استخدام الماسح الضوئي السريع و جميع الصور سوف تتحول على ملف PDF مثال تحويل الصور PDF.zip
  15. تفضل هذا التعديل ستكون القيمة الافتراضية في النموذج الفرعي هي نفسها المدخلة في النموذج الرئيسي test rate (2).zip
  16. جملة SELECT INTO تستخدم عادة في انشاء نسخة احتياطية من الجداول و تأتي على عدة اوجه و استخدامات قد تختلف من SQL الى قاعدة بيانات اكسس او اوريكال مثال على ذلك في الأكسس لعمل نسخة احتياطية من نفس الجدول في نفس قاعدة البيانات SELECT * INTO Persons_backup FROM Persons لنسخة الجدول لقاعدة بيانات اخرى SELECT Persons.* INTO Persons IN '........\Backup.mdb' FROM Persons و لنسخ الجدول مع العلاقات SELECT Employees.Name,Orders.Product INTO Empl_Ord_backup FROM Employees INNER JOIN Orders ON Employees.Employee_ID=Orders.Employee_ID المسميات داخل جمل الاستعلام ما هي إلا للمثال فقط
×
×
  • اضف...

Important Information