دروب مبرمج

اعتذر عن الخطأ تفضل Nouveauie.zip

طلب غريب او لم تقم بصياغة الطلب بالشكل الجيد لإيصال المعلومة هل تقصد بأنك تريد الاحفتاظ بالبيانات الموجودة في الجدول عند الاستيراد ؟ لكن تفضل هذا التعديل قد يفي بالغرض scout.zip

لا اتوقع بأن خطوط الباركود دقيقة اثناء القراءة من الافضل لك استخدام ادوات انشاء الباركود و بالإمكان استعمالها مع الاكسل و الاكسس

تفضل هذا التعديل scout.zip

بعد اذن اخواني تفضل هذه المشاركة اخي الكريم ملف تجريبي.zip

طيب اخي الكريم ارفق قاعدة البيانات او مثال مصغر لكي يتم التعديل عليه

تفضل هذا التعديل tEST.2.zip

في حدث عند الفتح ضع الكود التالي With Me.Form: .DataEntry = True: .FilterOn = False: End With تفضل التعديل tEST2.zip

تفضل سامي.mdb

ما شاء الله لا قوة الا بالله فناااان و مبدع

استخدم الكود التالي Dim strSql As String Dim qdf As QueryDef strSql = "SELECT id, idara, lagnano, lagna, " & Combo0 & " FROM stu WHERE idara ='" & Combo2 & "'" On Error Resume Next DoCmd.DeleteObject acQuery, "stu Query" Set qdf = CurrentDb.CreateQueryDef("stu Query", strSql) DoCmd.OpenQuery qdf.Name qdf.Close Set qdf = Nothing مرفق المثال بعد التعديل stu.accdb

قم بتعديل تنسيق الاخراج الى النتيجة DateConverter_01.mdb

تفضل هذا المقترح BASEN.accdb

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

شهادة محترف اعتز بها استاذي القدير فأنا استمد منك علمي و معرفتي جعل الله ما تقوم به و تقدمه في موازين حسناتك فأنت الأب الروحي و الشريان الرئيسي لهذا الصرح العظيم شكرا لا تكفى فإن كان هنالك اعظم من كلمة شكرا فهي قليلة جدا في حقك استاذي الفاضل شكرا لكم اخواني الاعضاء على هذه الروح الجميلة و كلماتكم المحفزة و اسأل الله ان يعننا على هذه الأمانة شرفتني بكلماتك العظيمة استاذي الفاضل ففي قمة الإحراج و الاعتزاز تعجز الكلمات عن الشكرا و عن الوصف شكرا لكم فردا فردا على هذه الثقة العظيمة

اخي الكريم يجب ان تتعلم و لا تستخدم اكواد لا تفهمها من مضمون طلبك فأنت بحاجة الى التجميع بشرط و قد وفرت ما يكروسوفت دالة لهذه المهمة اسمها 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] & "'") بهذه الطريقة تعلمت كيف تقوم بجميع القيم

تفضل هذا الكود للتشفير و فك التشفير لكن في البداية لابد من اضافة مكتبة 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

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

تفضل هذا المثال و اي استفسار ستجدني و الاخوة في الخدمة فقط قم بفك الضغط عن الملف و من ثم التجربة مثال ربط الاكسل.zip

استبدل الأسطر التالية تحويل المتعيير من رقم صحيح الى مزدوج ' القيمة الافتراضية للشراء 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

تفضل هذا التقرير Graff.zip

الى هذه الخطوة تفضل Graff.zip

تفضل التعديل البرنامج-aa.zip

تفضل بهذه الطريقة استبدل الكود في الموديل بالتالي ' القيمة الافتراضية للشراء 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

تفضل التعديل اخفاء العناصر 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