mrnooo2000

كما عدل الاخ امير فى المشاركة السابقة انت لا تكتاج الى اسم المادة فى جدول trans و لكن يكفيك الكود اربط الجدولين عن طريق الكود و ليس الاسم هذا سيسهل عليك فيما بعد

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

الامر بسيط أخى ضع الشرط فى جملة التحديد هكذا SELECT gr.* FROM gr IN 'hisham.mdb' WHERE (((gr.y)='2003'));

جرب هذا الكود For i As Integer = 0 To TextBox1.Lines.Count - 1 TextBox2.Text = TextBox1.Lines(i).ToString() Dim str As String = TextBox2.Text.ToString Dim str1 = str.Split("=")(0).ToString MsgBox(str1) Dim str2 = str.Split("=")(1).ToString MsgBox(str2) Next

تفضل اخى Warehouses_System - Copy_2.rar

الموضوع أبسط من ذلك أخى استخدم جملة Linq مثال Dim qry As IEnumerable(Of DataRow) = From row In ds.Tables("tbl1").AsEnumerable(), row2 In ds.Tables("tbl2").AsEnumerable() Where (row.Field(Of Integer)("id") = row2.Field(Of Integer)("id")) And row2.Field(Of Integ…

ضع مثال يا اخى حتى نفهم مقصدك

المشاركة السابقة بها ما تطلب أخى الكريم

اليك أخى هذا الكود Public Sub BackupDB(Bk_path As String) On Error GoTo my_err Dim oldfile, NewFile, CopyMyDB oldfile = CurrentProject.FullName NewFile = Bk_path & "\" & Split(CurrentProject.Name, ".")(0) & "_" & Day(Date) & "." & Split(CurrentProject.Name, ".…

غير نوع البيانات فى الحقل من text الى hyperlink سيعود الحقل كما كان

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

تطبيقا للدالة التى وضعتها من قبل ضع هذا الكود بالنموذج و بمجرد تحريك المؤشر الى حقل الخصم سيتم الحساب مباشرة Private Sub Discount_GotFocus() On Error GoTo ExitHandler If Len(StName & "") > 0 And Len(GradeID & "") Then Dim Brothers As Recordset strSQL = "SELECT…

المشكلة فى تنسيق التاريخ أخى الكريم (و هو شىء غير منطقى من وجهة نظرى) عموما الحل بسيط كود الادراج بهذا الكود DoCmd.RunSQL " insert into table2 (sdate,amount,cusid)values (#" & Format(DateAdd("m", i, Me.FDate), "mm/dd/yyyy") & "#," & Me.Amount & "," & Me.CusId …

بعد اذن اخونا جعفر كل ما تريده اخى هو تعديل هذا السطر For i = 1 To 30 الى For i = 0 To 30 يعنى فقط 1 الى 0

اخى الكريم المقارنة عن طريق الاسم شىء صعب جدا ( ليس من الناحيه البرمجيه ) و لكن من الناحيه العمليه لأن أى خطأ املائى سيؤثر بالنتائج ناهيك عن تشابه الاسماء و ادخال الاسم بشكل غير كامل لذلك يجب ان تعتمد على شىء ثابت مثل الرقم القومى على اى حال هذه داله ترجع اسم …

Dim MyDate As Date MyDate = CDate("1/1/" & 2014)

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

استخدم الداله DCount او ضع مثال للتطبيق عليه

لا يمكنك عمل ذلك على حقل الترقيم التلقائى و لكن يمكنك اضافة حقل رقمى لتنفيذ ذلك عليه

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