محمدvb

استخدمي الكويري سترينق (Qwerystring) أو السيشن (Session) أو الكوكيز (Cookis) عن الأفضل طبعا الكوكيز ومن ثم الكويري سترينق ومن ثم السيشن لأن الكوكيز يسجل بيانات اليوزر في ملف نصي على جهاز اليوزر ... والكويري سترينق يرسل اسم اليوزر ضمن رابط الصفحة المطلوبه ... و…

Dim add As New OleDbCommand add.Connection = conn add.CommandType = CommandType.Text add.CommandText = " insert into i_e_g ( b,r,total,shortage,d) values ('" & TextBox99.Text & "','" & TextBox118.Text & "','" & TextBox192.Text & "','" & TextBox315.Text & "','"…

ضع هذا الكود في أعلى شاشة الكود General Sub imprime(grille As MSFlexGrid) Printer.RightToLeft = False Printer.ScaleMode = 6 offset% = Printer.CurrentY Printer.FontName = "Arabic Transparent" Printer.FontSize = 8.3 Printer.FontBold = False Dim x, y As Integer x…

مرحبا المثال التالي يمكنك من تحويل الفليكس إلى برنامج وورد أو برنامج أكسل ومن هناك ممكن القيام بطباعة البيانات Msflixgrid to word and excel for print.rar

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

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

واسعد الله مساك تصغير في شريط المهام Form1.WindowState = 1 تكبير كامل الشاشة Form1.WindowState = 2 إغلاق الفورم End أتمنى هذا المطلوب

وعليكم السلام ورحمة الله وبركاته هناك حلول كثيرة ولكن ابسط الحلول يتم وضع السطر هذا بعد كود عرض البيانات في التكستات ولنفرض ان التكست الخاص بالدرجة هو TextBox1 If Val(TextBox1.Text) = 2000 Then TextBox1.Text = "" أتمنى لك الإفادة .. تحياتي للجميع

الحين عندك عدة كلمات متفهرسة في المصفوفة السابقة بالتشكيل والمستخدم يكتب في تكست بوكس كلمه غير مشكله تبا تتأكد من مطابقتها لبعض اذا كان هذا طلبك الحل يكون كذا تابع للكود السابق Imports System.Globalization Public Function txtto(ByVal txt As String) Dim str As …

لعمل المطلوب عليك اولا بعمليتين العملية الاولى : تقوم بجلب النص المطلوب من الحقل او الحقلين وتضعها في متغير العملية الثانية : استخدام دالة split لتجزئة النص وهذا مثال على الدالة لنفرض النص موجود في متغير سترينق اسمه sss وممكن تستغنى عن العملية الثانية بإجراء ا…

وعليكم السلام قاعدة البيانات تكون في مجلد Debuge وجملة الاتصال كالتالي : اكسس 2003 Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\db1.mdb") أكسس 2007 Dim Conn As New OleDbConnection("Provider=Micro…

وعليكم السلام ورحمة الله وبركاته لعمل نسخة احتياطية لقاعدة البيانات يجب أولاً أن نتصل بها ثم أخذ نسخة أحتياطية لها ثم نغلق الاتصال ويبقى علينا قبل عمل النسخة التأكد من وجود السابقة ان وجدت نقوم بحذفها وإذا لم توجد نقوم بعمل النسخة فإليك الكود التالي If cn.stat…

وعليكم السلام ورحمة الله وبركاته اللي فهمته منك تريد ادخال بيانات لجدول ما وتريد رقم id الخاص بالسجل المدخل علشان تستخدمه في جدول آخر ((((إذا هذا قصدك فإليك الحل)))) Dim Cmd As New OledbCommand Cmd.Connection = con Cmd.CommandText = "Insert Into Table1 (f1,f2)…

datareport1.topmargin = 200 datareport1.bottommargin = 200 datareport1.rightmargin = 200 datareport1.leftmargin = 200 أعلى أسفل يمين يسار أو من شاشة تصميم التقرير تقدر تغيرها من هناك والقيمة الإفتراضية 1440

وعليكم السلام ورحمة الله وبركاته المشكلة ليست في الأداة المشكلة في ويندوز سفن لا يقبل بعض الأدوات ذات الإمتداد OCX OR DLL ولا يقبل أن تسجل بواسطة RegSvr32 ويقبل بعض الأدوات لا نعرف هل من نفس الأدوات أو من النظام للإفادة .. تحياتي

وعليكم السلام ورحمة الله وبركاته أخي العزيز أولاً لابد من وجود حقل خاص بفئات المستخدمين حيكون مثلاً كتالي state = حالة المستخدم هل هو من فئة (A) أو من فئة (B) كما ذكرت في سؤالك أو أي فئة تدخلها عند التسجيل وحيكون عندنا في صفحات بعدد الفئات لنفرض أن الفئات التي…

وعليكم السلام ورحمة الله وبركاته TextBox1.Text = TreeView1.SelectedNode.FullPath

وعليكم السلام ورحمة الله وبركاته انته هنا لم تسند أي قيمة للسيشن حاول هكذا تكتب الكود Session["mySession"] = TextBox1.Text;

وعليكم السلام ورحمة الله وبركاته تغيير خاصية ListBox إلى CheckBox ومن ثم تعمل فور لوب وتاخذ القيم المحددة وتخزنها في الداتا بيز لو ما عرفت ارفق مشروعك نعدل عليه .. تحياتي

وعليكم السلام ورحمة الله وبركاته بعد هذا السطر Session("emp_no") = Trim(dr.item("emp_no")) يتم وضع هذا السطر Session("emp_name") = Trim(dr.item("emp_name")) بشرط حقل اسم المستخدم هو emp_name بكذا احنا وضعنا اسم اسم المستخدم في سيشن في صفحة المشاكل في حدث Page_…