عمرو بزان قام بنشر يناير 30, 2016 قام بنشر يناير 30, 2016 السلام عليكم ورحمة الله وبركاته أحبتي في الله لدي جدولين .. الأول الموظفين والآخر الدول أريد بمجرد كتابة الدولة بالعربي في جدول الموظفين يقوم بقراءه الدول الموجودة في جدول الدول وتحديث الدول بالانجليزي إليكم الملف المرفق وشكرا مقدما الدول.rar
Hosam Shehata قام بنشر يناير 30, 2016 قام بنشر يناير 30, 2016 وعليكم السلام ورحمة الله وبركاته يرجى الاطلاع على المرفق .. الدول.rar
jjafferr قام بنشر يناير 30, 2016 قام بنشر يناير 30, 2016 2 ساعات مضت, hosam shehata said: وعليكم السلام ورحمة الله وبركاته يرجى الاطلاع على المرفق .. الدول.rar وعليكم السلام وتكملة لمرفق أخي حسام ، يمكنك عمل استعلام ، وتختار اي الاسمين تريد ، بالعربي او الانجليزي: . جعفر
عمرو بزان قام بنشر يناير 30, 2016 الكاتب قام بنشر يناير 30, 2016 اشكركم على التفاعل .. ولكن .. المشكلة أني اقوم بسحب هذه الأسماء من موقع حكومي ... وهي بيانات لموظفين من ضمنها الدولة ولكن بالعربي .. يعني لازم يكون الدولة بالعربي هيا المفتاح الرئيسي لانها لن تتكرر ومنها أستطيع من جدول الدول الحصول على اسم الدولة بالإنجليزي ما الحل وهل ذا يمكن بإستخدام معادلة dlOOKUP ?
jjafferr قام بنشر يناير 30, 2016 قام بنشر يناير 30, 2016 21 دقائق مضت, عمرو بزان said: ما الحل وهل ذا يمكن بإستخدام معادلة dlOOKUP ? نعم
عمرو بزان قام بنشر يناير 30, 2016 الكاتب قام بنشر يناير 30, 2016 (معدل) طيب يا أستاذي أنا مبتدئ أكسيس :D .. الكلام دا بعمله في الأكسيل في ثواني .. بس مع كبر البيانات شيل الإكسيل تقل جداً .. لذلك انتقلت على الأكسيل والحمد لله ماشي بخطوات جيدة بمساعدة جميع الاخوان لم يقصروا معايا .. يعني همتك معانا وياريت تعملهالي في المثال بتاعي في المفرقاتلاني شكلك هتعبك معايا الأيام الجاية في مشاكل هتواجعني في تصميم قاعدة البيانات الخاصة بي ويلاحظ بعد إذنكم انا مش عايزها فروم .. أنا عايزها يا يكتبها في جدول الموظفين يا يفضل ويكون الأحسن يتستبدل الجنسيات العربي تماما من جدول الموظفين ويحط مكانها الجنسيات الإنجليزي في نفس جدول الموظفين تحياتي لك يا راقي :) الدول1.rar تم تعديل يناير 30, 2016 بواسطه عمرو بزان
jjafferr قام بنشر يناير 30, 2016 قام بنشر يناير 30, 2016 تفضل والكود: Private Sub Nationality_Ar_AfterUpdate() Me.Nationality_En = DLookup("[Nationality_En]", "Nationality", "[Nationality_Ar]='" & Me.Nationality_Ar & "'") End Sub جعفر 252.1.الدول1.accdb.zip
عمرو بزان قام بنشر يناير 30, 2016 الكاتب قام بنشر يناير 30, 2016 (معدل) أخي جعفر .. لازم عن طريق فوم ؟ .. حضرتك أنا عندي قائمة بتحدث يومياً .. تضم أكثر من 17 ألف موظف قابل للزيادة .. حضرتك بالنموذج دا بتقولي امسك اسم اسم واحد جنسيته تاني .. أنا عايز نفس نفس الجدول زي الاكسيل كدا .. اول ما احط الدولة في جدول الموظفين أعمل كويري أبديت يشوف كل جنسية ويحطلي على طول الجنسية بالإنجليزي يعني يفضل في نفس الجدول بكويري أبديت .. مش فورم :) تم تعديل يناير 30, 2016 بواسطه عمرو بزان
jjafferr قام بنشر يناير 30, 2016 قام بنشر يناير 30, 2016 سيدي الفاضل الاكسس يختلف عن الاكسل ، لذلك ، وللأسف ، لا يمكن اتباع طرق الاكسل 100% في الاكسس انا بالفعل عملت لك استعلام تحديث Update Query ، واقترح عليك عمل التالي: ان تكتب جميع الاسماء بالعربي ، ولما تنتهي ، تستطيع ان تضغط على الرز اللي في النموذج ، وسيُحدث الجدول بأكمله ، ويكتب الاسم بالانجليزي بس عندي سؤال لوسمحت: انت الان كتبت في خانة الانجليزي ، فهل خانة الانجليزي ستكون فاضية؟ جعفر 252.1.الدول1.accdb.zip
عمرو بزان قام بنشر يناير 30, 2016 الكاتب قام بنشر يناير 30, 2016 (معدل) تصدق وتؤمن بالله .. أنا قاعد بقالي أكثر من 5 ساعات عمال أدخل في اليوتيوب علشان اعمل اللي إنتا عملته دا .. موصلتش لحل :D .. في الآخر قولت لنفسي روح لأوفيسنا ومشكلتك هتتحل ايوه يا استاذي هتكون فاضية .. شكرا ليك يا استاذ جعفر .. واستحمل أخوك الفترة الجاية لأني بعمل قاعدة بيانات كبيرة ومحتاج مساعدتك ومساعدة الاخوة فضلا لا أمرا جزاك الله خيرا يا أستاذي :) تم تعديل يناير 30, 2016 بواسطه عمرو بزان
jjafferr قام بنشر يناير 30, 2016 قام بنشر يناير 30, 2016 لوسمحت تستخدم المرفق التالي ، حيث ان التحديث فيه لن يتم لكل الجدول Emp ، وانما للحقل الفاضية للحقل Nationality_En فقط . وحياك الله في المنتدى ، الجميع يحاول ان يساعد هنا جعفر 251.Database3.accdb.zip
عمرو بزان قام بنشر يناير 30, 2016 الكاتب قام بنشر يناير 30, 2016 من حضرتك استنتجت لو عايز أغير في الجدول الجنسيات العربي للإنجليزي مرة واحدة بكويري الأبديت .. ألف شكر لحضرتك مرة تانية :) ممتاز .. لو الخلية بصفر بس اللي إتحدثها .. ولو فيها حاجة متعملش حاجة .. والله شكل الواحد هيبقى خبير في شهور قليلة .. بس متقلقش لو احتجت مني حاجة ساعتها هساعدك :D تسلم والله يا راقي وبارك الله في وقتك وجهدك وجعل ذلك في ميزان حسناتك :) 1
عمرو بزان قام بنشر فبراير 6, 2016 الكاتب قام بنشر فبراير 6, 2016 (معدل) اساتذي الأفاضل .. الحمد لله بفضل الله ثم بفضلكم تعلمت أجزاء جديدة من منتداكم الراقي ولكن اليوم واجهتني مشكلة صغيرة وهي عند تحديث جوازات السفر لبعض الأفراد في الشركة وسحبها من الموقع الحكومي في بعض الأحيان يكون جواز السفر على شكل رقم ولكن في بدايته صفر مثل 0910144 .. وقمت بحل هذه المشكلة عن طريق Val و في بعض الأحيان يكون جواز السفر بدايه حروف مثل ED01541 وللأسف ساعات بيكون فيه مسافات مثل ED 01541 وقمت بحل المشكلة دي عن طريق Replace المشكلة الحقيقة أن جوازات السفر دائماً تكون أرقام أوحروف او الاثنين معا .. وهم بالطبيعي في فيلد واحد .. ماهي الطريقة اللي ممكن عن طريقها أشترط عليه لو كان الفيلد نص امسح المسافات ب Replace ولو الفيلد فيه رقم استخدم ال Val الملف مرفق لكم أخوتي Test.rar تم تعديل فبراير 6, 2016 بواسطه عمرو بزان
عمرو بزان قام بنشر فبراير 7, 2016 الكاتب قام بنشر فبراير 7, 2016 أيضا استاذتي الأفاضل وجدت مشكلة ثانية وهي انني عند سحب تاريخ الجواز من الموقع الحكومي يكون التاريخ بالهجري على الشكل مثلا 14370812 واريد تحويل ذلك التاريخ إلى ميلادي فكرة التحويل إلى ميلادي تم حلها بفضل الله .. لكن المشكلة الآن هو عند عمل ماسك للتاريخ الهجري من 14370812 إلى 0000/00/00 بالتالي يصبح التاريخ كالتالي 1437/08/12 ولكن في الحقيقة هو مازال رقم والذي حوله لتاريخ هو فقط الماسك وبالتالي عند تحويله إلى التاريخ الميلادي يرفض لأنه لا يتعامل مع تاريخ وإنما يتعامل مع رقم .. لذلك اريد طريقة ما بمجرد وجود في الفيلد تاريخ على شكل 14370812 اريد تحويله إلى 1437/08/12 بدون ماسك ما الحل وفقا للملف المرفق Test2.rar
jjafferr قام بنشر فبراير 7, 2016 قام بنشر فبراير 7, 2016 16 ساعات مضت, عمرو بزان said: لو كان الفيلد نص امسح المسافات ب Replace ولو الفيلد فيه رقم استخدم ال Val وعليكم السلام أخي عمرو الامر isNumeric سيساعدك في الفصل بين اذا كانت المعلومة رقم (وستكون نعم) ، او نص (وستكون لا) ، يعني (وبدون انزال مرفقك): if isnumeric(X) = true then هذا رقم A=val(x) else هذا نص A=Trim(x) او A=Replace(X," ","") endif جعفر 1
jjafferr قام بنشر فبراير 7, 2016 قام بنشر فبراير 7, 2016 5 ساعات مضت, عمرو بزان said: أيضا استاذتي الأفاضل وجدت مشكلة ثانية رجاء عمل سؤال جديد لهذا الموضوع ، لأن قوانين المنتدى لا تسمح بأكثر من سؤال في كل موضوع جعفر
عمرو بزان قام بنشر فبراير 7, 2016 الكاتب قام بنشر فبراير 7, 2016 شاكر ومقدر يا راقي .. جعله الله في ميزان حسناتك يا أستاذ جعفر :)
عمرو بزان قام بنشر فبراير 8, 2016 الكاتب قام بنشر فبراير 8, 2016 (معدل) 15 ساعات مضت, jjafferr said: وعليكم السلام أخي عمرو الامر isNumeric سيساعدك في الفصل بين اذا كانت المعلومة رقم (وستكون نعم) ، او نص (وستكون لا) ، يعني (وبدون انزال مرفقك): if isnumeric(X) = true then هذا رقم A=val(x) else هذا نص A=Trim(x) او A=Replace(X," ","") endif جعفر استاذ جعفر .. ممكن لو سمحت تعملي مثال لاني فعلا إحترت مع الكود .. هل أحطه في MODULE ولا في الاستعلام نفسه ؟ تم تعديل فبراير 8, 2016 بواسطه عمرو بزان
jjafferr قام بنشر فبراير 8, 2016 قام بنشر فبراير 8, 2016 وعليكم السلام بما انك تستخدم الاستعلام مباشرة ، فاليك طريقتين: 1. بإستخدام الوحدة النمطية Con: . وهذه هي الوحدة النمطية: Function Con(x) If IsNumeric(x) = True Then 'رقم Con = Val(x) Else 'نص Con = Replace(x, " ", "") End If End Function . والطريقة الاخرى ، هي وضع الكود كله في الاستعلام ، هكذا: . طبعا التغيير على الكود هنا سيكون اكثر صعوبة من التغيرر في الوحدة النمطية ، والنتائج في كِلا الاستعلامين: . جعفر 276.Test.accdb.zip 1
عمرو بزان قام بنشر فبراير 8, 2016 الكاتب قام بنشر فبراير 8, 2016 شااكر ومقدر إستاذ جعفر .. فعلا مبدع ومنك أستفيد وأستفدت الكثير في الإستنتاجات التي تنقصني ألف شكر مرة اخرى يا راقي :)
عمرو بزان قام بنشر فبراير 8, 2016 الكاتب قام بنشر فبراير 8, 2016 أستاذ جعفر .. والله بجد مش عارف من فرحتي أقولك إيه .. انا تقريبا أول مرة في حياتي أكتب كود .. والفضل في ذلك يرجع لله ثم لكم أخي الكريم .. بهذا الكود تغلبت على مشكلة الجوازات اللي تبدأ ب 0 و 00 و 000 و 0000 اصفر وفي نفس الوقت لغيت المسافات من الآخر آخد كام من عشرة يا أستاذ جعفر :) ولو عندك أي فكرة تانية ياريت تقولهالي حتى لو شايف انها ملهاش قيمة .. منها بإذن الله هستنتج حل لمشاكل تانية ممكن تواجهني شكرا مرة تانية يا أستاذي .. :) 1
jjafferr قام بنشر فبراير 9, 2016 قام بنشر فبراير 9, 2016 وعليكم السلام أخي عمرو ماشاء الله عليك ، وللامام ان شاء الله بس للأسف في بطئ / تأخير في الكود انت كلما قلت if ثم endif ، فالكود يقوم بفحص كل if (لا يقرأ اي كود بين الجملتين ، اذا لم يتحقق الشرط) ، مما يعني ان البرنامج سيتحقق في 4 if في الكود الذي عملته انت ، بينما لو عملت if ثم elseif ثم elseif ثم .... ثم else ثم endif ، فإن البرنامج سيفحصه كله مرة واحدة فقط ، حيث ان if و elseif و else تُعتبر شرط واحد اليك طريقتين بدل الكود الذي استعملته انت: Function Con(x) If Mid(x, 1, 1) = "0" Then Con = Mid(x, 2, 15) ElseIf Mid(x, 1, 2) = "00" Then Con = Mid(x, 3, 15) ElseIf Mid(x, 1, 3) = "000" Then Con = Mid(x, 4, 15) ElseIf Mid(x, 1, 4) = "0000" Then Con = Mid(x, 5, 15) Else Con = Replace(x, " ", "") End If End Function او Function Con(x) If IsNumeric(x) = True Then For i = 1 To 4 If Mid(x, i, 1) = 0 Then Con = Mid(x, i + 1, 15) Else Exit For End If Next i Else Con = Replace(x, " ", "") End If End Function جعفر
عمرو بزان قام بنشر فبراير 9, 2016 الكاتب قام بنشر فبراير 9, 2016 ياخي أقسم بالله فهمت .. ياخي والله إنتا مبدع .. ياخي أقسم بالله إنتا فنان .. جزيت عني خير الجزاء يا راقي .. فعلا استفدت كتير اليومين دول في إعداد قاعدة البيانات الخاصة بي .. ألف شكر يا أستاذ جعفر وبجد أنا عاجز عن الشكر .. :) تحياتي لك يا راقي .. :)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.