MR^King

السلام عليكم ورحمة الله وبركاته اخي لديك خطأ في هذا السطر [Passowrd] = Trim(txtPassword) في كلمة Passowrd تحديدا الكلمة مكتوبة خطأ قم باستبداله بالسطر التالي ![Password] = Trim(txtPassword) ===== الى اللقاء

السلام عليكم ورحمة الله وبركاته بصراحة يا اخي انا شخصيا لا احب التعامل مع علاقات الجداول لانه احيانا بيحصل فيها مشاكل مثلما تواجه انت الان فكل شئ تصنعه العلاقات يمكنك عمله بالكود وضح مشكلتك اكتر وايه التفاصيل فيها وان شاء الله نحلها مع بعض ========== الى اللقا…

السلام عليكم ورحمة الله وبركاته اخي انت وضعت المشكلة دي في موضوع واخذت الرد وطبقته بطريقة خطأ كان المفترض انك تنتظر الرد مني او من احد الاعضاء لاني لما رديت عليك اول مرة كان قصدي انك هتستخدم تقنية ADO وبناء عليه وضعت لك الكود وانت اخذته وحبيت تطبقه على الداتا …

السلام عليكم ورحمة الله وبركاته يا اخي الكريم الكود كله غلط والسبب الرئيسي ان حضرتك واضح انك مبتدأ عموما هناك فرق في التقنيات المستخدمة اما انت هنا تريد كود خاص بالداتا كنترول وهو كالتالي Data1.RecordSource = "select * from tbl1 where type= '" & Text1 & "'" Da…

السلام عليكم ورحمة الله وبركاته الكود السابق يستخدم تقنبة DAO حسب ما طلبت والفرق بينهم ليس كبير ولكن تقفنية ADO هي الافضل جملة Select سيتم استخدامها لفتح الجدول ولكن لا يمكن ملء الجدول من خلالها وانما من خلال الـ RS الذي يحتوي عليها ولملء الكومبو بوكس قم بعمل …

السلام عليكم ورحمة الله وبركاته سيكون الحذف كالتالي : rs.open "select * from all_d where type = "حقن"",CN,1,2 do while not rs.eof rs.delete rs.movenext loop ========== الى اللقاء

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

السلام عليكم ورحمة الله وبركاته اخي من الممكن انك تعمل لكل قسم من الوقت مكان خاص بمعنى... الدقائق توضع في text1 والساعات توضع في text2 وهكذا او تستبدل ذلك بمتغيرات يتم التصريح عنها في البرنامج وتقوم انت ببرمجتها على ان الدقائق مثلا لو وصلت لـ 60 يتم تغيير قيمت…

السلام عليكم ورحمة الله وبركاته do while not rs. eof combo1.additem rs("f_name") rs.movenext loop وبهذا يتم ملء الكومبو بوكس ========= الى اللقاء

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

السلام عليكم حمل المثال التالي ======= الى اللقاء examplez.rar

السلام عليكم ورحمة الله وبركاته أخي الكريم برغم ان مستوايا في الفيجوال بيزك افضل من السي شارب وبعض اللغات الاخرى الا ان الحقيقة ان فعلا عصر الفيجوال بيزك قد انتهى وأذكر كلمة قالها لي احد الخبراء الاجانب في البرمجة حين قال "It`s time of VB6 to go to sleep" بالف…

السلام عليكم ورحمة الله وبركاته شكرا على المثال يا باشا وانا زيك مش ميال للاوراكل ولكن مش معناه اني بكرهها فلو كنت بتعمل شغل يعتمد على بيانات ضخمة فأوراكل هي أنسب قاعدة بيانات :) ====== الى اللقاء

السلام عليكم ورحمة الله وبركاته شكرا يا استاذ رضا على المثال الجميل ولكن اعتقد ان ظهور الفورم بطئ جدا ولذلك بعد اذنك حبيت بس اقول للناس انه يمكنك التحكم في سرعة ظهور الفورم من خلال هذا السطر Alpha = Alpha + 1 فيمكن استبدال القيمة 1 بأي قيمة اخرى وكلما زادت الق…

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

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

السلام عليكم ورحمة الله وبركاته تفضل يا اخي حمل المثال التالي ========= الى اللقاء Read.rar

السلام عليكم ورحمة الله وبركاته أخي قم بتحميل المثال المرفق وارجو انه يساعدك ولو واجهت مشكلة ابعتلي ايميلك واشرحلك الموضوع اونلاين أفضل ============== الى اللقاء example.rar

السلام عليكم ورحمة الله وبركاته لا يا اخي مافي تطفل ولا شئ احنا موجودين كلنا علشان نساعد بعض بس كان الامر محتاج منك قليل من التفكير بامكانك التعديل في احد السطرين اما انك تغير السطر الخامس وتخليه كالتالي x = "layan" & "_" & d & "_" & m & "_" & y & ".mdb" أو ان…

السلام عليكم اخي ضع هذا الكود تحت زر الأمر If RS.state = 1 Then RS.Close RS.open " select * from tabel", CN, 1, 2 RS.MoveFirst Do While Not RS.EOF RS("halh") = "متزوج" RS.Update RS.MoveNext Loop MsgBox "All records has been updated", vbOKOnly + vbInformation, …