koao

السلام عليكم ورحمة الله وبركاته أختي الكريمة ... جربي هذا الكود لإضافة صورة Dim fpath As Variant With Application.FileDialog(3) .Title = "Choose Picture" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then Me.PicB.Picture = .SelectedItems(1) End…

السلام عليكم ورحمة الله وبركاته جهد رائع أخي محمد وليد علوش .. وأسال الله أن يجزاك عنا خير ويبارك فيك وفي علمك

السلام عليكم ورحمة الله وبركاته أخي الكريم ... لم أفهم تقسيم ... وكيف ترتبط البيانات بين القاعدتين من دون شبكة ... فإذا كانت القاعدتين في جهازين منفصلين .. فستكون البيانات مستقلة لكل قاعدة ... فهل تقصد أن يوميا في وقت محدد تجمع البيانات في قاعدة بيانات أساسية …

السلام عليكم ورحمة الله وبركاته أخي الكريم ... سؤال وجيه وأنا كل ما نسخة كود ووضعته في المنتدى أو الوورد ... أتضايق من هذه الحركة ... وعندما رأيت سؤالك شجعتني أن أحاول إيجاد طريقة .. فحاولت كذا محاولة باءت بالفشل .. حتى وفقني الله لهذه الطريقة ... وقد تكون هنا…

السلام عليكم ورحمة الله وبركاته الله يعطيك العافية أخي منتصر الانسي ... وإذا سمحت لي طريقة أخرى بإستخدام الإستعلام وبالتوفيق koao_db21.zip

السلام عليكم ورحمة الله وبركاته أخي الكريم ..إليك هذا الموضوع لإستاذتنا زهره حفظها الله وبارك بها وبأهلها /index.php?showtopic=78439&st=0

الله يبارك فيك أخي mrnooo2000 ولا نزعل من تنافسنا في خدمة أخينا فتى الوادي وغيره من أعضاء المنتدى .. لعلنا نكسب دعوة توافق لحظة إجابة ,,, تكون لنا خير في الدنيا والآخرة ... ولا أنسى مداخلاتك التي أستفيد منها كثيرا ... ولي الشرف بأخذ العلم من متميز مثلك

السلام عليكم ورحمة الله وبركاته جرب الكود التالي If (CInt(Me.txt1) > CInt(Me.txt2)) Then MsgBox " ÇáÑÞã ÇáÃæá ÃßÈÑ ãä ÇáÑÞã ÇáËÇäí " Else MsgBox " ÇáÑÞã ÇáÃæá ÃÕÛÑ ãä ÇáÑÞã ÇáËÇäí " End If End Sub أنا كنت أظن ان الرسالة لا تظهر عندك ... ولكن تبين المشكلة أن ال…

السلام عليكم ورحمة الله وبركاته أخي الكريم في مثالك الأخير لم أغير شئ وأنظر للصورتين التاليتين فكما ترى ظهرت الرسالة من دون مشاكل ... بغض النظر عن الخطا في العبارة .. بحكم ان المفروض أن تستخدم أكبر من بدلا من أصغر من .. في الدالة الشرطية فما أدري ما سبب المشكل…

الإشكالية أنك يجب أن تختار إسم العميل أولا ثم تضع الرقم للمبلغ المدفوع ... جرب إختر محمد ثم إكتب الرقم ستظهر لك الرسالة

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

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

السلام عليكم ورحمة الله وبركاته الله يعطيك العافية أخي أبو شادي أخي الكريم هذه طريقة أخرى ضع الكود التالي في حدث After_Update لمربع النص S Dim x1 As String If IsNumeric(S) Then Select Case Len(S) Case Is > 2 x1 = Left(S, Len(S) - 2) & "." & Right(S, 2) Case 2 …

السلام عليكم ورحمة الله وبركاته أخي الكريم mrnooo2000 .. هذا ما كنت أحاول به لمدة ساعتين ... فالذي فهمته من طلب أخي pms أنه يريد أن لا يسمح للمستخدم أبدا بالكتابة بالحروف اللاتينية ... فلو جعلت خاصية لغة إدخال المفاتيح لمربع النص هي العربية .. فهذا لا يمنع الم…

السلام عليكم ورحمة الله وبركاته أخي الكريم أرجو ان يكون هذا المرفق يلبي مرادك ... مع أني متأكد من وجود طريقة أسهل ولكن هذا ما وفقني إليه الله وبالتوفيق koao_CheckLanuage.zip

السلام عليكم ورحمة الله وبركاته أرأيتي أختي عند تقديم المثال يسهل الحل ... وجزاك الله خير أخي hamidymom على جهودك في خدمة إخوانك

السلام عليكم ورحمة الله وبركاته أختي الكريمة .. في الكود الذي وضعتيه ... في السطر الثالث والرابع ... End Sub ... وهذا خطأ فيجب أن تحذفي أحدهما قلت أن عند تنفيذ الكود يقوم بتصغير النموذج ولا يفتح شئ ... والسبب قد يكون لأن قيمة الكمبو بوكس الثاني هي رقمية ... وا…

السلام عليكم ورحمة الله وبركاته أخي الكريم الذي فهمته أنك تريد عند النقر على احد الأرقام فإن الرقم يكتب في مربع النص الذي عليه التركيز فإذا كان كذلك فإليك المرفق مع ملاحظة أن الرقم 3 يكتب حرف "ن" .. ولم أغيره لعل يكون هناك سبب لذلك وبالتوفيق koao_key.zip

السلام عليكم ورحمة الله وبركاته أخي الكريم إنظر إلى الصورة الأول قبل النقر على زر إخفاء بعد النقر على زر إخفاء ستختفي الإستعلامات كما في الصورة التالية جرب الآن أنقر على زر إظهار ستظهر الإستعلامات كما في الصورة التالية فإذا كنت إستخدمت الطريقة السابقة ... وما …

السلام عليكم ورحمة الله وبركاته أخي الكريم إستخدم الكود التالي MsgBox "السلام عليكم ورحمة الله وبركاته " & vbCrLf & _ vbCrLf & "منتدى الفريق العربي يرحب بكم" & vbCrLf & _ vbCrLf & "تنسيق نص الرسالة بالمحاذاة لليمين" , vbMsgBoxRight وإذا أردت إضافة خصائص إضافية…