jjafferr

بكرة ان شاء الله اشوف هذه النقطة ، هذه الرسائل لما تستورد من ملف فيه الجدول من 3 حقول ، صح؟ ممكن عن طريق الكود ان اتحكم في مكان حفظ البيانات ، اذا كانت 4 حقول ، فما في مشكلة ، واذا كانت 3 حقول في اي الحقول تريدني احفظها ؟ النقطة السابقة ستحل هذا الموضوع ، ولكن ، لا تفعل هذا في الاكسس ، فأنت تضخم البرنامج اكبر من حجمه ، ويصبح ثقيل ، جعفر

هذه الخطوة غير صحيحة ، وقد عملت لك جدول خاص بالصفحات tbl_Pages ، وتستطيع التعديل على المسميات هناك ، اما ارقامها فهي التي نستعملها في الجدول tbl_Items ، قصدك اللي في المربع اللي في الاسفل ، فهو يعمل ، والآن يطلب منك اختيار من القائمة ، جعفر 1311.5.Data.accdb.zip

العب في الوان الحروف مقارنه مع لون الخلفية ، وحجم المربع وبروازه 🙂 جعفر

اردت ان اغلق الموضوع بكلمتين: ملاحظتك سليمة 🙂 ولكني خفت انك تفهمني خطأ ، لأنك "تعرف سلوكيات ونفسيات الاعضاء والمشرفين" ، فجعلني ارد ، مع ان الموضوع من وجهة نظري انه ما يستاهل كل هذا !! مشاركتك السابقة تكن بهذا الوضوح ، وانما قلت: وقولك مبهم ويمكن ان يُؤخذ بأني انا الذي الذي اضفت السطرين (ولم تعطي تفاصيل اخرى عن السطرين) ، وممكن ان يؤخذ ان الكود هو الذي اضافهم ، لأنك في بداية السطر كنت تتكلم ان الكود لم يحل الموضوع !! ولا انا قلت هذا الكلام ، وهذا دليل على احترافك 🙂 طيب ، نفرض اني انا الغلطان ، واني ما فهمت قصدك ، فهل يحق لي ان اسأل وين الخطأ في الكود الذي عملته ، مو انت اللي قلت : لم تحل عزيزي ولو تركز قليلا سوف ترى أن الأستاذ جعفر أضاف سطرين في آخر السجل الأول ولم ينجح الكود في التعامل معهما. ولو اني جبتها كمزحة لما اثرت سالفة "نحن الشيّاب" ، ولكني اعتذر اني ادخلت شيء خارج الموضوع وخالفت قوانين المنتدى وتكلمت عن نفسي ، مع العلم انك اخبرتني سابقا انك كنت مشرف في احد المنتديات 🙂 جعفر

انا جربته على : اكسس 2010 ، 32بت ، على وندوز 10 ، 64بت ، اكسس 2019 ، 64بت ، على وندوز 10 ، 64بت ، ما هو النظام الذي تشتغل عليه ؟ هل ممكن تعمل BreakPoint في اول كود النقر على زر Decompile ، وتمشي فيه خطوة خطوة باستعمال F8 ، وتخبرني اي سطر يعطيك الخطأ 🙂 جعفر

حياك الله 🙂

نعمل ممكن ، ونفترض ادخل bbb@hotmail.com ، وهذا الحقل اسمه iUser : if instr(me.iUser, "@")>0 then msgbox mid(me.iUser, 1, instr(me.iUser, "@")-1) endif جعفر

انا استخدم هذه الطريقة : تكبير النموذج بدون تغطية شريط قائمة إبدأ - قسم الأكسيس Access - أوفيسنا (officena.net) وبعد اذنك دكتور حسنين ، فقد عملت تغيير على نموذجك ، الى : . وادخلت بقية الكائنات اللي في الرابط اعلاه ، فجرب تشغيل البرنامج بدون مسك زر الشفت (حتى النموذج اعلاه يتسع حسب شرح الدكتور) ، ثم افتح البرنامج مرة اخرى بمسك زر الشفت لترى تفاصيل البرنامج 🙂 جعفر example_semo.zip

في اعتقادي ، وبسبب اننا نستخدم برنامج قاعدة بيانات ، فالافضل ان نضع المعلومتين (الاسم مع امتداد الايميل ، والاسم بدون امتداد الايميل) في جدول معلومات المستخدم ، ونتأكد من الحقلين 🙂 ولكن ، اسم المستخدم والايميل هما موضوعين مستقلين ، وبالتالي لما يدخل المستخدم ، ممكن ان يكون ايميله مختلف في الجدول 🙂 جعفر

اخي الفاضل ، اخي العزيز ، هدئ اعصابك 🙂 وصدقني اني اجرب كل طريقة تقترحها ، ولما احصل على محترف يحاول بطريقة اخرى ، اشحذ الهمة "حبتين زيادة" علشان تعرفون ان نحن الشيّاب فينا همّه باقية (ولا تسألني شو تعشيت البارحة ، لأني ما اذكر 🙂 ) 🙂 ولهذا السبب ، فتوقيعي يشير الى هذا: نعم ، قد اكون كتبت شيء يكون مبهم لك ، وقد تكون انت كتبت شيء مبهم لي ، والسؤال لا يعني التقليل من افكار الطرف الآخر ، وانما هو لتوضيح الامور 🙂 سؤال: نحن ننظر للموضوع من داخل الصندوق ، ولكن اذا نظرنا له من خارج الصندوق ، نرى ان هذه البيانات تأتي من ملف وورد ، والوورد متخصص في هذه الامور ، فممكن يكون افضل ان ننظف ملف الوورد (برمجيا طبعا) بأوامر الوورد ، ثم نستورد الملف نظيف وجاهز😁 جعفر

وعليكم السلام 🙂 شو المشكلة في ان يكون اسم المستخدم bbb@hotmail.com او bbb ؟ جعفر

السلام عليكم 🙂 نعم يصير بالطريقة اللي تريدها ، ولكنها ليست الطريق الصحيحة لقواعد البيانات ، الطريقة الصحيحة هي عمل جدول لبيانات مربعي السرد ، هكذا ، بحيث تقدر تضيف وتغير البيانات بكل بساطة ، ويمكنك عمل نموذج لهذا الجدول لتسهيل ادخال البيانات وتغييرها : وعليه تكون النتيجة بعد الاختيار : . جعفر 1334.Database1 (3).accdb.zip

السلام عليكم 🙂 رجاء وضع طريقة التواصل معاك ، حتى يتمكن الاعضاء من التواصل معك ، ومنا من لا يتعامل إلا مع الايميل 🙂 وياريت تشرح ولو بشكل بسيط عن طلبك. سأفتح الموضوع حتى تضع هذه المعلومات 🙂 جعفر

وين؟ . جعفر

احي الفاضل ، هذا المنتدى لتبادل الخبرات واستفادة الجميع ، اما اذا اردت ان يتم التواصل مباشرة بينك وبين المبرمج ، فرجاء وضع طلبك هنا: https://www.officena.net/ib/forum/157-إعلانات-شخصية-بأجر-للاعضاء/ جعفر

الحمدلله 🙂 والمفروض يكون اسرع من الكود السابق 🙂 ورجاء تجربته في الموضوع الآخر كذلك ، وضع الجواب هناك 🙂 حعفر

تفضل

اعطنا مثال

السلام عليكم 🙂 هذه آخر محاولة لي ، وقد قمت بتغيير العمل: Option Compare Database Option Explicit Function Remove_Extras(myValue As String) As String Dim x() As String Dim j As Integer 'unify endline characters, so that we can use Split function myValue = Replace(myValue, Chr(7), vbCrLf) myValue = Replace(myValue, Chr(10) & Chr(13), vbCrLf) myValue = Replace(myValue, vbCr, vbCrLf) myValue = Replace(myValue, vbLf, vbCrLf) ' myValue = Replace(myValue, " ", " ") ' myValue = Replace(myValue, " ", " ") ' myValue = Replace(myValue, " ", " ") 'convert the one paragraph into different phrases separated by vbcrlf x = Split(myValue, vbCrLf) 'Loop through the phrases For j = 0 To UBound(x) 'remove the extra spaces on the Left x(j) = Trim(x(j)) If Len(x(j)) > 1 And j <> UBound(x) Then 'separate the text from vbcrlf, Remove the extra spaces, then attache vbcrlf to it 'only if the right character is a spcae and its not the last phrase x(j) = Trim(Mid(x(j), 1, Len(x(j)) - 1)) & vbCrLf End If 'Remove the Empty lines (one character length), and accumelate the rest of the lines If Len(x(j)) < 2 Then Else Remove_Extras = Remove_Extras & x(j) End If Next j 'this is an Access conversion error, so lets uninfy it like all endlines Remove_Extras = Replace(Remove_Extras, Chr(11), vbCrLf) 'replace the VT characters with vbcrlf 'if the last character is vbcrlf, remove it, so that we dont have extra empty line at the end If Right(Remove_Extras, 1) = vbCrLf Or Right(Remove_Extras, 1) = Chr(10) Or Right(Remove_Extras, 1) = Chr(13) Then Remove_Extras = Mid(Remove_Extras, 1, Len(Remove_Extras) - 2) End If End Function جعفر أسطر3.zip

جرب هذا الكود : Function Remove_Extras(myValue As String) As String Dim x() As String Dim j As Integer Dim mySpace As String For j = 1 To 999 'remove all the extra characters at the end of the line If Right(myValue, 1) = Chr(7) Or _ Right(myValue, 1) = vbCr Or _ Right(myValue, 1) = vbLf Or _ Right(myValue, 1) = vbCrLf Then myValue = Mid(myValue, 1, Len(myValue) - 1) Else Exit For End If Next j 'now remove the empty lines myValue = Replace(myValue, Chr(7), vbCrLf) myValue = Replace(myValue, vbCr, vbCrLf) myValue = Replace(myValue, vbLf, vbCrLf) x = Split(myValue, vbCrLf) For j = 0 To UBound(x) 'remove the extra spaces on: x(j) = LTrim(x(j)) 'remove the left spaces If Len(x(j)) < 2 Then Else 'remove the extra spaces on: x(j) = LTrim(x(j)) 'remove the left spaces 'separate the text from vbcrlf, Remove the extra spaces, then attache vbcrlf to it 'only if the right character is a spcae mySpace = Mid(x(j), 1, Len(x(j)) - 1) If Right(mySpace, 1) = " " Then x(j) = Trim(mySpace) & vbCrLf End If Remove_Extras = Remove_Extras & x(j) End If Next j Remove_Extras = Replace(Remove_Extras, Chr(11), vbCrLf) 'remove all VT characters End Function جعفر

شوف المرفق. ما فهمت !! خليني اشوف اللي عملته 1311.4.Data.accdb.zip

اما تجربتي فتقول ، قبل: . وبعد: . جرب المرفق 🙂 جعفر أسطر2.zip

تفضل يا سيدي 🙂 . جعفر 1311.4.Data.accdb.zip

وتعديل آخر: Function Remove_Extras(myValue As String) As String Dim x() As String Dim j As Integer Dim mySpace As String For j = 1 To 999 'remove all the extra characters at the end of the line If Right(myValue, 1) = Chr(7) Or _ Right(myValue, 1) = vbCr Or _ Right(myValue, 1) = vbLf Or _ Right(myValue, 1) = vbCrLf Then myValue = Mid(myValue, 1, Len(myValue) - 1) Else Exit For End If Next j 'now remove the empty lines myValue = Replace(myValue, Chr(7), vbCrLf) myValue = Replace(myValue, vbCr, vbCrLf) myValue = Replace(myValue, vbLf, vbCrLf) x = Split(myValue, vbCrLf) For j = 0 To UBound(x) If Len(x(j)) < 2 Then Else 'remove the extra spaces on: x(j) = LTrim(x(j)) 'remove the left spaces 'separate the text from vbcrlf, Remove the extra spaces, then attache vbcrlf to it 'only if the right character is a spcae mySpace = Mid(x(j), 1, Len(x(j)) - 1) If Right(mySpace, 1) = " " Then x(j) = Trim(mySpace) & vbCrLf End If Remove_Extras = Remove_Extras & x(j) End If Next j Remove_Extras = Replace(Remove_Extras, Chr(11), vbCrLf) 'remove all VT characters End Function . ولكن المطلوب ليس تحويل المسافات الى مسافة واحدة ، وانما المطلوب حذف هذه المسافات/المسافة 🙂 قاعدة البيانات المرفقة فيها مثال ، فجرب كودك عليها 🙂 جعفر

يعني قصدك هكذا: