حراثي تواتي قام بنشر مارس 12, 2016 مشاركة قام بنشر مارس 12, 2016 السلام عليكم اخواني الاكارم مشكلتي في الفورم انني لم استطع استدعاء البيانات من الجدول حتى اقوم بالتعديل عليها اريد استدعاء البيانات ثم التعديل عليها الشرح مرفق مع الملف TOUATI.rar رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر مارس 12, 2016 مشاركة قام بنشر مارس 12, 2016 السّلام عليكم و رحمة الله و بركاته الأخ الكريم " حراثي تواتي " هذا ملف جاهز كنت قد صمّمته منذ فترة.. بإمكانك إستغلاله .. فقط يمكنك الاستغناء عن هذا الجزء حسب إحتياجاتك علمًا أنّه يمكنك أيضًا عمل ما طلبته بالأداة SPINBUTTON تفضّل المرفق لعل و عسى يفي بالغرض إحتراماتي حراثي تواتي.rar 2 رابط هذا التعليق شارك More sharing options...
محمد علي الطيب قام بنشر مارس 12, 2016 مشاركة قام بنشر مارس 12, 2016 اخي العزيز والاستاذ القدير عبد العزيز البسكري تحية طيبة عمل جميل ورائع 1 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر مارس 12, 2016 مشاركة قام بنشر مارس 12, 2016 السّلام عليكم و رحمة الله و بركاته ليس أروع من أعمالك سيّدي القدير المحترم " محمد علي الطيّب " بارك الله فيك على الكلام الطيّب و إنْ دلَّ على شيء إنّما يدل على طيبة قلبك جزاك الله خيرًا و زادها بموازين حسناتك فالكلمة الطيّبة صدقة فائق إحتراماتي رابط هذا التعليق شارك More sharing options...
حراثي تواتي قام بنشر مارس 12, 2016 الكاتب مشاركة قام بنشر مارس 12, 2016 شكرا اخي عبد العزيز البسكري على الاهتمام و المتابعة يبدو من الواجهة انه ملف رائع و به كل ما ابحث عنه لكن المشكل الفورم ما حب يفتح معي و به أخطاء او ملفات ناقصة 1 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر مارس 12, 2016 مشاركة قام بنشر مارس 12, 2016 السّلام عليكم و رحمة الله و بركاته أخي الكريم و أستاذي الفاضل " حراثي تواتي " قبل 19 يونيو 2014 .. تاريخ إنضمامي لبيت الثاني منتديات " أوفيسنا" كنت أجهل قبل هذا التاريخ معنى كلمة خليّة إكسل .. و كانت أمنيتي الوحيدة معرفة كيفية عمل أرقام الجلوس أوّل شخص فكّرت به بمنتديات الجلفة التعليمية هو " أنتَ " أستاذي المحترم ..و ارسلت لك رسالة بعنوان " نداء إستغاثة " وفعلاً عملتَ معي كل ما يمكن عمله جزاك الله خيرًا و زادها بموازين حسناتك خيرك سابق سيّدي المحترم بالنسبة للملف .. هل غيّرت بجزء من اجزائه لو سمحت ؟؟ لأنّ الملف يشتغل عندي بطريقة ممتازة .. و باسمك أيضًا .. سأرى الموضوع بإذن الله أو يراه أحد الأساتذة الكرام من يمكنه منهم المساعدة فائق إحتراماتي 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 12, 2016 مشاركة قام بنشر مارس 12, 2016 أخي الحبيب عبد العزيز هلا جعلت الملف يعمل على الـ 64 بت ؟ حاول تعدل في أسطر الإعلان API لتتناسب مع الـ 32 بت و الـ 64 بت ..حتى أتمكن من تجربة الملف وموافاتك بالنتيجة أعتذر عن القيام بالتعديل لقلة الوقت .. فقد أوشك وقتي على الانقضاء وحان موعد النوم بعد قليل تقبل تحياتي 2 رابط هذا التعليق شارك More sharing options...
حراثي تواتي قام بنشر مارس 12, 2016 الكاتب مشاركة قام بنشر مارس 12, 2016 اخي عبدالعزيز ان شاء الله رب يوفقك . و لكل مجتهد نصيب و ما خاب من استشار طريق البرمجة طريق جميل محفوف بالاشواك و يحتاج الى انسان صبور جدا بالنسبة للتعامل مع دوال الاكسل ما عندي مشكل كبير معها مشكلتي مع الفورم لم اجربه الا هذه الايام و وجدت فيه المتعة بالنسبة للملف لم اغير فيه اي شيء و رغم ذلك لك يفتح شكرا مرة اخرى 2 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر مارس 12, 2016 مشاركة قام بنشر مارس 12, 2016 السّلام عليكم و رحمة الله و بركاته أستاذي القدير " ياسر خليل " لم أجرّب يوما في حياتي فكرة 64 بايت ..و لذلك أجهل تماما كيفية التعامل مع أكوادها لو تكرمت قبل النّوم بتعديل الكود و لك مني أجمل دعاء قبل نومك و أحلامك الجميلة بحول الله إحتراماتي 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 12, 2016 مشاركة قام بنشر مارس 12, 2016 لقد ارهقتني أخي الحبيب عبد العزيز ..لأنني بصراحة في قمة التعب ..كان ممكن تأجلها لبكرة ، لكن مقدرش أقولك لا أو أرفض لك طلب أبدا أبدا لأنك حبيبي في الله ، ويعلم الله مقدار معزتك في قلبي إليك التعديل في أسطر الإعلان #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #End If والسلام عليكم ورحمة الله وبركاته 2 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر مارس 12, 2016 مشاركة قام بنشر مارس 12, 2016 السّلام عليكم و رحمة الله و بركاته كلامك الطيّب وسام شرف على صدري أخي و أستاذي الغالي " ياسر خليل أبو الراء " آسف آسف .. و الله بجد آسف أزعجتك في عز التّعب فائق إحتراماتي لشخصك القدير 1 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر مارس 12, 2016 مشاركة قام بنشر مارس 12, 2016 (معدل) السّلام عليكم و رحمة الله و بركاته أخي الكريم "حراثي تواتي" بهذا المرفق ستجد ملفين الأول : البحث و استعراض البيانات بواسطة الكومبوبوكس الثاني : البحث و استعراض البيانات بواسطة السْبينْ بوتون حاولت جاهدًا إيجاد أبسط و أسهل الطرق التي تؤدي هذا الغرض فائق إحتراماتي حراثي تواتي.rar تم تعديل مارس 12, 2016 بواسطه عبد العزيز البسكري 1 رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر مارس 13, 2016 مشاركة قام بنشر مارس 13, 2016 (معدل) السلام عليكم استاذي العزيز البسكري اعتقد انه يجب تعديل صغير فيى الملف 1 Private Sub CommandButton1_Click() For i = 2 To 100000 If Cells(i, 1) = TextBox1.Text Then Cells(i, 1).Select Exit For End If Next i ActiveCell.Offset(0, 0) = TextBox1.Text ActiveCell.Offset(0, 1) = TextBox2.Text ActiveCell.Offset(0, 2) = TextBox3.Text ActiveCell.Offset(0, 3) = TextBox4.Text End Sub بدل Private Sub CommandButton1_Click() For i = 2 To 100000 If Cells(i, 1) = TextBox1.Text Then Cells(i, 1).Select Exit For End If Next i ActiveCell.Offset(0, 1) = TextBox1.Text ActiveCell.Offset(0, 2) = TextBox2.Text ActiveCell.Offset(0, 3) = TextBox3.Text ActiveCell.Offset(0, 4) = TextBox4.Text End Sub صح أم خطأ؟ بارك الله بجهودك تم تعديل مارس 13, 2016 بواسطه محي الدين ابو البشر 1 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر مارس 13, 2016 مشاركة قام بنشر مارس 13, 2016 السّلام عليكم و رحمة الله و بركاته كلامك صحيح أخي الفاضل و استاذي القدير " محي الدين أبو البشر " نفس القيمة بالتاكست 1 و التاكست 2 بارك الله فيك جزاك الله خيرًا و زادك من علمه و فضله فائق إحتراماتي 1 رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر مارس 13, 2016 مشاركة قام بنشر مارس 13, 2016 السلام عليكم استاذي العزيز البسكري أخجلتني بكلامك ما أنا إلى مبتدئ في هذا المنتدى الذي استفدت منك ومن الأساتذة الآخرين أرفع لك ولهم القبعة بارك الله بك وأثابك الله وجزاك كل خير لا أجد كلام يفيك حقك تقبل احتراماتي 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 13, 2016 مشاركة قام بنشر مارس 13, 2016 بارك الله فيك أخي الكريم محي الدين .. وجزيت خيراً على مشاركاتك القيمة بالمنتدى فهي تثري المنتدى بشكل كبير واصل بلا فواصل .. وننتظر منك موضوع مستقل ! تقدم فيه شيء جديد للأعضاء 2 رابط هذا التعليق شارك More sharing options...
حراثي تواتي قام بنشر مارس 13, 2016 الكاتب مشاركة قام بنشر مارس 13, 2016 18 ساعات مضت, عبد العزيز البسكري said: السّلام عليكم و رحمة الله و بركاته أخي الكريم "حراثي تواتي" بهذا المرفق ستجد ملفين الأول : البحث و استعراض البيانات بواسطة الكومبوبوكس الثاني : البحث و استعراض البيانات بواسطة السْبينْ بوتون حاولت جاهدًا إيجاد أبسط و أسهل الطرق التي تؤدي هذا الغرض فائق إحتراماتي حراثي تواتي.rar أستاذي الكريم أرفع القبعة احتراما لشخصك الكريم ... شكرا هذا الذي كنت ابحث عنه بالنسبة للملف " حراثي تواتي.xlsm " بقي نفس المشكل ربما الخلل من نظام جهازي 2 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر مارس 13, 2016 مشاركة قام بنشر مارس 13, 2016 (معدل) السّلام عليكم و رحمة الله و بركاته العفو أخي الغالي " حراثي تواتي " أنصحك أخي الكريم .. بسلسلة دروس في الفورم لن تجد مثلها أبدًا .. قمة الروعة و سلاسة و بساطة الأسلوب قد تساعدك كثيرًا بتعلم المزيد بسرعة فائقة بإذن الله السلسة بعنوان " علمني كيف أصطاد " للأخ الغالي .. الغائب عن منتدانا و الحاضر دائمًا بقلوبنا .. الأستاذ القدير حسام عيسى " الصّقر " لاحظ أخي "حراثي تواتي " أعلى هذه الصفحة الأولى .. و هذا رابط السلسلة : http://www.officena.net/ib/topic/64037-سلسلة-علمنى-كيف-اصطاد-الفورم-forms/ فائق إحتراماتي تم تعديل مارس 13, 2016 بواسطه عبد العزيز البسكري رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.