abulyaman

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

لى استفسار لماذا لا تسمحى للمستخدم بالكتابة فى الخلية مباشرة بلا من التكست بوكس؟

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

بسيطة ولا يهمك عدل الكود فى المديول وخليه كالتالى Public Sub ViewRecord(R As Long) ''**نبحث بمعلومية مكان السجل '(Nm As String) ''*** وضعنا القيمة التى يبحث عنها فى حقل الاسم If Not rs.State = adStateOpen Then ''*** تأكد أنها ليست مفتوحة من قبل rs.Open "tbAgen…

تصدقى من كام مشاركة شفتهم لك ما فيهمش حاجة تتوصف أنها سؤال سهل غير العنوان ده وفقط العنوان بتذكرينى بنظرية النسبية لأينشتاين (لأن السهولة عملية نسبية أيضا) لكن على سبيل المساعدة لو كنت بتستخدمى الفليكس جريد فالخليه لها إحداثيات يمكنك استخدامها أما فى حالتك هذه…

بحمد الله عدلت لك مثالك حسب ما طلبته أنت فى الطريقة الأولى أما الطريقة الثانية rs.Move فيبدوا أنى لا أعرفها أو لم أفهمك أرجوا أن يكون ما أضفته مفيدا لك وآسف على تهميش بعض كودك أرجوا أن لا تعتبر هذا تقليلا من شأنه ولكنه لا يناسب تعديلى فقط أو عندى فكرة أحببت أن…

السلام عليكم ورحمة الله وبركاته أخى العزيز فنكشن أنا سعيد باللقاء معك مجددا وإجابة لسؤاليك - أجتهد وبالله التوفيق السؤال الأول With MSHFlexGrid1 Dim Tw As Double For C = 0 To .Cols - 1 Tw = 0 For R = 0 To .Rows - 1 If TextWidth(.TextMatrix(R, C)) > Tw Then Tw …

فقط أذكرك بما قلت لك

لو تحدد لى الجزء الذى لم تفهمه يمكن أوضحه أكثر، ممكن؟ ببساطة سبب مشكلتك فى العرض اللى بينته أنت فى طلبك أنه يعطيك رسالة تقول أن الريكورد سيت مفتوح، صح؟ وأنا بقول لك الحل أنك بعد ما تخلص من الريكورد سيت تقفله فى نفس الحدث يعنى تسلسل الكود يكون: 1- افتح 2- نفذ 3…

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

السلام عليكم ورحمة الله وبركاته يا سلام بس بس طلبك سهل وبسيط بس أنت أهدأ كده وخد الأمور ببساطة الفكرة أنك تفتح الاتصال لما تحتاجة وتقفلة بعد ما تخلص علشان ما تهدرش موارد الجهاز على الفاضى ممكن أنك تفتح الاتصال فى أول ما تحمل البرنامج سواء من Sub Main مثلا أو F…

السلام عليكم ورحمة الله وبركاته أخى العزيز أخوك - اللى هو أنا - فكرت زيك قبل كده وشطحت بى الأفكار علشان أعمل التمرير وطلبات الصعبه دى ووجدت بعد ما إتعدلت دماغى أنه أفضل شئ هو استغلال الامكانيات التى تتيحها لنا اللغة بدلا من تجربة أدوات غير مستقرة تطبيقيا - مش …

السلام عليكم ورحمة الله وبركاته أخى العزيز فنكشن بخصوص الأداة داتا جريد لا توجد مشاكل لأنها تدعم البيانات بشكل مباشر وأكيد أنت لا تعانى معها أما بخصوص الفليكس جريد فهناك نوعان منها MsFlexGrid و MSHFlexGrid - كما تعلم - ولكل واحد منها طريقة مختلفة فى الربط بالب…

أنت تسأل هل ممكن؟ أجل ممكن جدا أن تجعل خلية هى نتيجة عملية حسابية حتى لو على مجموعة من الخلايا - مفيش مشاكل بس تعرف مكان الخلية والخلايا المؤثرة عليها ومكان الخلية بسيط هو عبارة عن موقع الصف R و موقع العمود C والعد يبدأ من صفر مثلا : Dim R as Long With MsHFlex…

السلام عليكم ورحمة الله وبركاته أختى العزيزة أعتقد وضع صورة فى الداتا جريد خاصية غير مدعومة فى بنائها - والله أعلم لكن هذا ممكن فى الفليكس جريد - الكود ده مثال : Dim R As Long, C as Integer With MsHFlexGrid1 R=5 C=.Cols -1 .Row = R: .Col = C .CellAlignment = f…

السلام عليكم ورحمة الله وبركاته إيه الموضوع؟ أو على الأصح إيه المطلوب؟

السلام عليكم ورحمة الله وبركاته وإن كان ظهور النتيجة بالصورة التى ذكرتيها مستغرب بالنسبة لى إلا أنه هناك طريقة أخرى وهى Text1.Text=Format(MyNumber,"0000000000.##") ولكن هذه لن تجعلها خانتين ثابتتين بعد العلامة ولكن قولى لى هل عرفتى MyNumber على أنه Single أو D…

السلام عليكم ورحمة الله وبركاته أخى العزيز أسأل الله أن يفيدك هذا المثال البسيط فى بياناته لكنه ينطبق على أى كم من البيانات فهو سيعطيك العديد من الامكانيات على الفليكس جريد MSHFlexGrid منها: طباعتها بنفس الحجم على أى طابعة وحجم ورق ضبط الحجم للأعمدة على حسب مح…

السلام عليكم ورحمة الله وبركاته طلبك بسيط إن شاء الله بفرض أن الرقم هو المتغير المسمى MyNumber Text1.Text=Format(MyNumber,"0000000000.00") وطبعا المحاذاه والالتفاف خصائص التكيست بوكس والله المستعان

أخى khabini ممكن تضع لنا الرابط لتسهل علينا الوصول إليه؟