حامل المسك قام بنشر أغسطس 27, 2007 قام بنشر أغسطس 27, 2007 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله لدي سجلات بأسماء الطلاب فمثلاً 1) محمد سعيد علي عبد الله 2) فهد سلطان محمد أرغب في التقارير أن يسحب من سجل اسماء الطلاب فقط الإسمين الأوليين. أي محمد سعيد فهد سلطان فكيف يتم ذلك سلمكم الله
Dream_Works قام بنشر أغسطس 27, 2007 قام بنشر أغسطس 27, 2007 أرجو أن يكون هذا طلبك New_Microsoft_Office_Access_Application.zip
حامل المسك قام بنشر أغسطس 29, 2007 الكاتب قام بنشر أغسطس 29, 2007 وفقك الله لكل خير لم يتحمل معي يقول غير قادر على تحميل الملف إذا كان بالإمكان إعادة تحميله اسال الله لك التوفيق والسداد لما يحبه ويرضاه
Dream_Works قام بنشر أغسطس 29, 2007 قام بنشر أغسطس 29, 2007 أخي الكريم لا يمكن التحميل من المنتدى حاليا أرجو أن يكون هذا طلبك Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim FullName() As String, CurrentString As String CurrentString = Me.TxtFullName ' التأكد من أن الاسم لا يحتوي مسافتين متجاورتين CurrentString = Replace(CurrentString, " ", " ") FullName = Split(CurrentString) ' التأكد من وجود اسمين أو أكثر If UBound(FullName) > 0 Then Me.TxtName1 = FullName(0) Me.TxtName2 = FullName(1) End If End Sub
حامل المسك قام بنشر أغسطس 30, 2007 الكاتب قام بنشر أغسطس 30, 2007 عذرًا أخي لا أدي أين أضع الكود في أي خانة إذا أمكن أن ترسله على البريد rafe1427@hotmail.com فأنا لك من الشاكرين حيث أني أحتاج البرنامج حاليًا
Dream_Works قام بنشر أغسطس 30, 2007 قام بنشر أغسطس 30, 2007 في ال Detail ... الحدث OnFormat ... كما هو واضح في بداية الكود :)
حامل المسك قام بنشر سبتمبر 1, 2007 الكاتب قام بنشر سبتمبر 1, 2007 أخي الحبيب أولا : أسأل الله أن يغفر لك ويوفقك لكل خير وحاولت عمل الكود ولكن باءت بالفشل ، وذلك لأن الأفس لدي عربي. فإذا أمكن رفع الملف عن طريق أحد المواقع. وأعتذر سلمك الله على الإثقال . ولا أملك لك إلا الدعاء بظهر الغيب
حامل المسك قام بنشر سبتمبر 2, 2007 الكاتب قام بنشر سبتمبر 2, 2007 (معدل) عذرا أخي الكريم عند الضغط علىالرابط تظهر موصع باللغة الإنجليزية مكتوب فيه Account Suspended If you are the account you should have received this - ff you have questions kindly open a support ticket via the control panel. Best regards, Your Servage.net team تم تعديل سبتمبر 2, 2007 بواسطه حامل المسك
Dream_Works قام بنشر سبتمبر 2, 2007 قام بنشر سبتمبر 2, 2007 جرب هالمره أخوي ... إن شاء الله تضبط معاك الملف بعد التعديل
حامل المسك قام بنشر سبتمبر 3, 2007 الكاتب قام بنشر سبتمبر 3, 2007 (معدل) والله لا أعلم ماذا أقول ولكن من صنع إليكم معروفًا فكافؤه فإن لم تجدوا فقولوا جزاك الله خير وجزاك الله خير وجعل ذلك في ميزان حسناتك وغفر لك ولوالديك ولجميع القائمين على هذا المنتدى وللمسلمين والمسلمات. نزل البرنامج وهو المطلوب... تم تعديل سبتمبر 3, 2007 بواسطه حامل المسك
يوسف أحمد قام بنشر سبتمبر 3, 2007 قام بنشر سبتمبر 3, 2007 بارك الله فيك اخي Dream_Works حل اكثر من رائع فجزاك الله خيراً على كل ما تقدمه للجميع بمنتدانا الغالي.
حامل المسك قام بنشر سبتمبر 4, 2007 الكاتب قام بنشر سبتمبر 4, 2007 (معدل) عذرًا أخي الكريم أرغب في الاستفسار عن أمرين أولاهما : كيف جعلت التقرير يكتسب نفس الكود؟ الثاني : إذا كان الطالب يحتوي على اسم واحد فإنه لا يظهر في المربع الأول. فكيف يتم إظهاره؟ وفقك الله تم تعديل سبتمبر 4, 2007 بواسطه حامل المسك
Dream_Works قام بنشر سبتمبر 4, 2007 قام بنشر سبتمبر 4, 2007 أولاهما : كيف جعلت التقرير يكتسب نفس الكود؟ للأسف لم أفهم هذا السؤال ... أرجو التوضيح الثاني : إذا كان الطالب يحتوي على اسم واحد فإنه لا يظهر في المربع الأول. فكيف يتم إظهاره؟ قم بتعديل الجملة الشرطية في الكود ... كالتالي If UBound(FullName) > 0 Then Me.TxtName1 = FullName(0) Me.TxtName2 = FullName(1) Else Me.TxtName1 = CurrentString End If
حامل المسك قام بنشر سبتمبر 4, 2007 الكاتب قام بنشر سبتمبر 4, 2007 الله يجمل حالك المقصود كيف أنقل ما في النموذج إلى التقرير حيث أن الكود في التقرير اشتغل معي لكن حاولت تطبيقه على التقريرر فلم يعمل !!! أرجو أن يكون أوصلت لك المقصود
Dream_Works قام بنشر سبتمبر 4, 2007 قام بنشر سبتمبر 4, 2007 أخي الكريم احتمال أسماء مربعات النصوص في تقريرك تختلف ... الكود الذي وضعته يحتاج إلى وجود ثلاثة مربعات نصوص بالأسماء التالية : 1- TxtName1 و هو الاسم الأول 2- TxtName2 و هو الاسم الثاني 3- TxtFullName و هو الاسم الكامل يمكنك تعديل أسماء مربعات النصوص لديك أو تعديل الأسماء الموجودة في الكود حسب اللي عندك أرجو أن يكون هذا الحل لمشكلتك ... و إن لم يكن ... أرجو إرفاق قاعدة بياناتك باستخدام الحل المؤقت الحل المؤقت
حامل المسك قام بنشر سبتمبر 4, 2007 الكاتب قام بنشر سبتمبر 4, 2007 بارك الله فيك هذا رابط تحميل آمل النظر في التقرير فما أدري ما المشكلة فيه وفقك الله http://www.gulfup.com/up/download.php?file=Kk434526.rar
Dream_Works قام بنشر سبتمبر 4, 2007 قام بنشر سبتمبر 4, 2007 أخي الكريم المشكله إنك وضعت متغير اسمه .. (الاسم) مع وجود مربع نص في التقرير اسمه ( الاسم ) ... 2 لهما نفس الاسم ... لذلك البرنامج لم يكن يعمل ... و لكنني غيرت اسم المتغير من (الاسم) إلى (أسماء_منفصلة) ... مع أنني لا أنصح بوضع الكلمات العربية في الكود ... و لكن حسب رغبتك Dim أسماء_منفصلة() As String, CurrentString As String CurrentString = Nz(Me.الاسم, "") ' التأكد من أن الاسم لا يحتوي مسافتين متجاورتين CurrentString = Replace(CurrentString, " ", " ") أسماء_منفصلة = Split(CurrentString) ' التأكد من وجود اسمين أو أكثر If UBound(أسماء_منفصلة) > 0 Then Me.TxtName1 = أسماء_منفصلة(0) Me.TxtName2 = أسماء_منفصلة(1) End If أرجو أن هذا هو الحل الصحيح لمشكلة برنامجك ...
حامل المسك قام بنشر سبتمبر 9, 2007 الكاتب قام بنشر سبتمبر 9, 2007 الله يعطيك العافية وصلت المعلومة ونحن لك من الشاكرين
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.