البحث في المنتدى

السلام عليكم عملت برنامج للاجازات على اكسس 2010 عند آخر عمليه لتحزيم البرنامج بواسطه الديفلوبر تظهرلي رساله تقول "حدث خطأ غير متوقع " ثم ينشأ ملف به ملفات التثبيت لكن بعد الضغط على setup. تظهر رساله اخرى تقول : خيار "عرض" غير صالح في ملف الاعدادات. الخيارات الصالحه هي: صامت او (بلا) او اساسي او مصغر او تام  ماذا يقصد بها وكيف اتداركها جزاكم الله خيرا  سأرفق صور الخطأ https://db.tt/yssNFdJ1 https://db.tt/jrVV1WdS بارك الله فيكم

السلام عليكم ورحمة الله وبركاته اخواني الكرام اعضاء ومشرفين المنتدى _ انا عملت برنامج ولكني عند تشغيله يظهر لي الرساله التالية : ? your 30 day trial of macro scheduler has expired.would you like to purchase a license  ما المقصود بهذه الرساله ؟ وما هو هذا المكرو ؟ كيف اتعامل مع هذه الرساله ؟ لانها تعيق وتمنع عمل البرنامج  وكيف اتغلب على هذه المشكلة ؟ (مع العلم أن هذه الرساله لم تكن تظهر لي من قبل ابدا) برجاء المساعدة للأهمية. مع الشكر والتقدير لجميع أعضاء المنتدى وجميع مشرفين المنتدى

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

السلام عليكم   كيف يمكنني عمل رسالة تنبيه تظهر بشكل تلقائي عندما يقترب موعد تنفيذ عمل ما؛ - حيث المنظومة تعمد إدراج مجموعة من أوامر الأعمال مدرجة برقم أمر عمل وتاريخ استحقاق نفيذه. - أن تقوم الرسالة بالتنبيه قبل 3 أيام من تنفيذ العمل، تنازلياً؛ أي 2 يوم و1 يوم.   شكراً مقدماً      

السلام عليكم   توجد مشكلتان في برنامج المخزن ( الذي تعلمت كيف أصنعه )   المشكلة الأولى : -   عدم ظهور تقرير حركة صنف بين تاريخين بصورة صحيحة   فكما ترى الآن فى الصور اننى أدخلت تاريخين ( لتحديد الاستعلام المسؤول عن بيانات تقرير حركة صنف )  وهما  1 يناير 2010   و   1 يناير  2020       تكون النتيجة تقرير فارغ بدون أي حركات على الصنف       بالرغم من وجود حركات على الصنف ( الموجود في نموذج الاستعلام عن حركة صنف بين تاريخين )  كما هو موضح في فاتورة الشراء التالية       وأيضا إذا قمنا بعمل الاستعلام بين التاريخين  1 يناير 2010   و   31 يناير 2020    تكون النتيجة صحيحة ويخرج لنا تقرير حركة الصنف بطريقة منضبطة  مثل ذلك         ولكننا إذا أدخلنا التاريخين    1 يناير 2010    و    31 يناير 2010    تكون نفس النتيجة السابقة ( بالرغم من عدم وجود بيانات حركات بين هذين التاريخين )       ومن ذلك يتضح لنا أنه يخرج لنا الفترة بين الايام فقط دون النظر الى الشهور أو السنوات للتاريخين       فما هو حل هذه المشكلة حتى تكون نتائج التقرير سليمة وتخرج الحركات بين التاريخين لنفس الصنف طبعا  ؟؟؟!!!!!       المشكلة الثانية : -   ظهور رسالة التنبيه بتخطي الحد الأدنى للصنف مع صنف تعدي الحد الادنى فعلا ثم ظهورها مع كل الاصناف الاخرى فى فاتورة البيع  بالرغم من ان هذه الاصناف لم تتعدى الحد الادنى بالمخزن           فما هي الطريقة الصحيحة لجعل الرسالة تظهر فقط للصنف الذي تعدى الحد الادنى فقط وعدم ظهورها مع باقى الاصناف التى لم تتعدى الحد الادنى بالمخزن  ؟؟؟!!!!!     وجزاكم الله خيرا   مهندس / أحـمـــد

بسم الله الرحمن الرحيم عند تسطيب السيكوال سيرفر لاول مرة على الحاسوب وبعد عمل الجداول الخاصة بك اذا اردت ان تعدل جدول ما وبعد الحفظ سوف تظهر لك رسالة بـ أنه يجب عليك مسح الجدول وانشائه من جديد ولإلغاء ظهر هذه الرسالة بدون مسح الجدول عمل الاتي:                                                    

السلام عليكم برجاء التكرم منكم بحل المشكلة التالية اريد عند تحميل نموذج الاسماء ان تظهر رسالة تذكير توضح عدد الموظفين .... شاكر لكم حسن تعاونكم ... recorde_count.rar

السلام عليكم   لدي برنامج به نموذج عند إغلاقه تظهر رسالة خطأ لا أعرف مصدرها أرجو المساعدة في إلغائها.   وأيضاً في النموذج ذاته مربع لإضافة صورة موظف ولكن أريدها تكون مدمجه أي مضمنه في نفس النموذج أي ليس لها مسار في مجلد في نفس الجهاز  وذلك لغرض إستعمالها في مشاركتها عبر الشبكه الداخليه .   وجزاكم الله خير     Enjaaaz18for fixing.rar

السلام عليكم / منتدي الفريق العربي المبدع   object variable or with block variable not set  ارجو من الاخوة الافاضل ايجاد لي حل لهذة الرسالة 

عندي داتا جريد مرتبط بقاعدة بيانات عن طريق BindingSource1 واريد عند الضغط علي زر ادخال الموجود في فور products ان يتم اضافة بيانات الفورم الي سطر جدييد في الداتا جريد وهذة هو البرنامج في المرفق ارجو من الاخوة الا يبخلوا علي اخيهم علما ني استخدمت هذة الطريقة وظهرة رسالةالخطاء   Dim tb As DataTable = New DataTable()        Dim row As DataRow        tb = CType(BindingSource1.DataSource.Tables(BindingSource1.DataMember), DataTable)        tb = DataGridView1.DataSource        row = tb.NewRow        row(4) = TextBox3.Text        row(5) = TextBox3.Text        row(6) = TextBox8.Text        row(7) = TextBox9.Text        tb.Rows.Add(row)رسالة الخطا Unable to cast object of type 'System.Windows.Forms.BindingSource' to type 'System.Data.DataTable'.ولكم جزيل الشكر اخوانيalsahm_program.rar

بسم الله الرحمن الرحيمالسسلام عليكم ورحمة الله وبركاته تحية طيبة وبعد دي اول مشاركة لي واول طلب لي في الموقع الممتاز دة انا صممت برنامج للمكتبة بمساعدة احد الزملاء واقتربت من نهايته ولكن اريد عمل رسالة تنبه بانتهاء مدة الاستعارة وعند الاشارة على احد الاستعارة لا تظهر ( اي عند ارجاع الكتاب لا يظهر المستعير )  مع تعديل نموذج الاستعلام الذي يظهر للطباعة وجزاكم الله خير . مرسل اليكم البرنامج كامل  ولكم جزيل الشكر  للأسف البرنامج بعد الضغط 9 ميجا    دة الرابط ان شاء الله http://up.top4top.net/downloadf-top4top_5c502ebadb1-rar.html

السلام عليكم ورحمة الله   الفكرة برنامج لارسال رسالة نصية المشكلة : عند اختيار القسم من القائمة المنسدلة للتحديد وقراءة جميع العملاء في هذا القسم لارسال الرسالة (ارسال رسالة جماعية) تطهر لي المشكلة   cn.Open() Dim se As String = ("select [staff.ID],[staff.Name],[staff.depar],[staff.Job],[staff.Tel] from Staff where [staff.depar] = '" & ComboBox1.Text & "'") Dim com As New SqlClient.SqlCommand(se, cn) Dim re As SqlClient.SqlDataReader = com.ExecuteReader re.Read() While re.Read() IDS = re.GetValue(0) Name = re.GetValue(1) depar = re.GetValue(2) job = re.GetValue(3) tel = re.GetValue(4) re.Close() Dim enter1 As String = "INSERT INTO ozekimessageout(sender,receiver,msg,operator,status)" & "values ('0918244733','" & tel & "','" & TextBox1.Text & "','Sudani','send') " Dim com2 As New SqlClient.SqlCommand(enter1, cn) com2.ExecuteNonQuery() Dim enter As String = "INSERT INTO MSGDetails([staff.Name],[staff.depar],[staff.Job],[staff.Tel],MSG,date)" & "values ('" & Name & "','" & depar & "','" & job & "','" & tel & "','" & TextBox1.Text & "','" & DateTimePicker1.Text & "') " Dim com1 As New SqlClient.SqlCommand(enter, cn) com1.ExecuteNonQuery() End While MsgBox(" ", MsgBoxStyle.Information, "OK") TextBox1.Text = "" ComboBox1.SelectedIndex = -1 ComboBox1.Focus() cn.Close() End Sub  

اريد معرفة معني الرسالة التي تظهر في الصورة المرفقة؟؟؟؟وهل يوجد خطأ في كود الحفظ المرفق؟؟؟Protected Sub Save_btn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Save_btn.Click         Dim conn As New SqlConnection         Dim cmd As New SqlCommand         Dim reader As SqlDataReader         conn.ConnectionString = "server=.;database=school;trusted_connection=true"         conn.Open()         cmd.CommandTimeout = 500         cmd.Connection = conn         'cmd.CommandText = "insert into student_data_new (national_no,student_name,birth_date,sex,nationality,gov,city,day_t,month_t,year_t,raw,mam_name,dad_job,Kaid_no,tel,address) values (" + nat_no.Text + "," + st_nam.Text + "," + birth_day_txt.Text + "," + sex_combo.SelectedValue + "," + nationality_combo.SelectedValue + "," + birth_place_combo.SelectedValue + "," + birth_city_combo.SelectedValue + "," + od.Text + "," + om.Text + "," + oy.Text + "," + raw_combo.SelectedValue + "," + mom_name_txt.Text + "," + dad_job_txt.Text + "," + kaid_no_txt.Text + "," + tels_txt.Text + "," + address_txt.Text + " )"         cmd.CommandText = "insert into student_data_new (national_no,sex,nationality,gov,city,day_t,month_t,year_t,raw,mam_name,dad_job,Kaid_no,tel,address) values (" + nat_no.Text + "," + sex_combo.SelectedValue + "," + nationality_combo.SelectedValue + "," + birth_place_combo.SelectedValue + "," + birth_city_combo.SelectedValue + "," + od.Text + "," + om.Text + "," + oy.Text + "," + raw_combo.SelectedValue + "," + mom_name_txt.Text + "," + dad_job_txt.Text + "," + kaid_no_txt.Text + "," + tels_txt.Text + "," + address_txt.Text + " )"         reader = cmd.ExecuteReader()         cmd.ExecuteNonQuery()         If reader.Read Then         End If         conn.Close()     End Sub

السلام عليكم ورحمة الله   حملت ملف من هذا الموقع لأحد المشتركين ويقوم بإرسال رسالة إلى البريد الألكتروني ولكن بعد ما قمت بالتعديل عليه تظهر رسالة تم الإرسال ولكن لا يصلني شي إلى بريدي !! مع أن كل التعديلات سليمة , ممكن أحد يصلح الملف .   المرفق الأول هو الملف الأصلي الي يرسل وأستقبلت منه عبر البريد   والمرفق الثاني هو بعد التعديل ولم يتم الإرسال .   يجب إدخال البريد وكلمة المرور في الجدول المخصص أولاً قبل الإرسال  من نوع جي ميل وبدون  @gmail.com       SendEmail ForFixing.rar

بسم الله الرحمن الرحيم استفسار بسيط اتمنى اجابة لة ....................................................................................................................................................... لدى قاعدة بيانات موضوعة على سيرفر اسمها MDB1  قمت بأخذ نسخة منها واسميتها MDB2 حذفت كافة جداول القاعدة الثانية وربطها بالقاعدة الأولى   واعطيت النسخة الثانية لباقى المستخدمين للعمل عليها فى بحث او ادخل بيانات ....................................................................................................................................................... المشكلة فى حالة التعديل على جداول قاعدة البيانات الأصلية MDB1 يجب على كافة المستخدين ايقاف العمل (عدد المستخدمين اكثر من 50 مستخدم فى اماكن متفرقة ) يصعب الاتصال بالجميع للاغلاق فى حالة اضافة نموذج جديد يجب التنبية على المستخدمين بأخذ نسخة جديدة لايجاد التعديلات ....................................................................................................................................................... المطلوب - طريقة لفصل كافة المستخدمين بزر أو خلافة موجود على القاعدة الأصلية MDB1 - ارسال رسالة للجميع بضرورة الاغلاق للتعديل او لأخذ نسخة جديدة من خلال القاعدة MDB1 الى القاعدة MDb2 ....................................................................................................................................................... وشكرا للجميع

السلام عليكم ورحمة لله وبركاتة     اريد التعديل على كود ارسال رسالة من الجيميل   بحيث استطيع ارسال رسالة من الايميل الخاص بالموقع          هذا هو كود ارسال رسالة من الجيميل  الى المشتركين Public Sub sendMsgToEmail(SubjectMsg As String, bodyMsg As String, toEmail As String) ' Dim client As New SmtpClient("smtp.gmail.com", 587) client.EnableSsl = True client.DeliveryMethod = SmtpDeliveryMethod.Network client.UseDefaultCredentials = False client.Credentials = New System.Net.NetworkCredential("الايميل", "كلمةالسر") Dim mail As String = toEmail Dim msg As New MailMessage(toEmail, mail) msg.Subject = String.Format("{0}", SubjectMsg) msg.Body = bodyMsg client.Send(msg) End Sub-------------

 نرجوا المساعدة لمبتدئ  فى الاكسيس     قمت بتصميم برنامج عيادة اسنان  بواسطة برنامج الاكسيس   OFFICE  XP   ونظام التشغيل لدى هو   ويندوز اكس بى  والبرنامج يعمل بكفاءة عاليه على جهازى    قمت باعطاء هذا البرنامج الى طبيب اسنان وقمت بتثبيت نسخة OFFICE XP  على جهاز الكمبيوتر الخاص به علما بان نسخة الويندوز لديه هى WINDIOWS  7      ولكن فؤجئت عن فتح البرنامج للعمل تظهر هذه الرسالة (الرسالة مرفق مع سؤالى هذا )   نرجوا الافادة عن هذا الموضوع    

 نرجوا المساعدة لمبتدئ  فى الاكسيس     قمت بتصميم برنامج عيادة اسنان  بواسطة برنامج الاكسيس   OFFICE  XP   ونظام التشغيل لدى هو   ويندوز اكس بى  والبرنامج يعمل بكفاءة عاليه على جهازى    قمت باعطاء هذا البرنامج الى طبيب اسنان وقمت بتثبيت نسخة OFFICE XP  على جهاز الكمبيوتر الخاص به علما بان نسخة الويندوز لديه هى WINDIOWS  7      ولكن فؤجئت عن فتح البرنامج للعمل تظهر هذه الرسالة (الرسالة مرفق مع سؤالى هذا )   نرجوا الافادة عن هذا الموضوع  

السلام عليكم  هل من الممكن ارسال رسالة نصية قصيرة الى هاتف محمول باستخدام الفيجوال فوكس برو 9 مع التقدير

بسم الله الرحمن الرحيم سلام الله عليكم ورحمتة وبركاتة إستكمالاً للموضوع فى هذا الرابط http://arabteam2000-forum.com/index.php/topic/275160-رسالة-خطأ-تظهر-من-microsoft-offece-access-عند-فتح-أحد-النماذج-؟/?hl=%D8%B1%D8%B3%D8%A7% D9%84%D8%A9+%D8%AE%D8%B7%D8%A3   الرسالة مازالت تظهر فى نموذج بعينة حتى بعد عملية التحديث للافيس   و ذلك منعنى من توزيع البرنامج لأصحابة رغم إكتمالة  ليزيد عن شهر الأن   فأرجوا من لدية الحل أن يقدمة و جزاة الله خيرا   فى رعاية الله