-
Posts
1,681 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
60
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو د.كاف يار
-
تفضل هذا التعديل على نفس مربح التحرير و السرد الي موجود من قبل السبب ان من كبر النموذج ما انتبهت انك اضفت مربع تحرير و سرد فيه الشهور كذلك نصيحة لك حاول مثل هذي النماذج انك ما تجعلها بحجم كبير لجل انها تناسب جميع الشاشات لو لاحظت اني صغرت حجم النموذج لكن عند الفتح ياخذ حجم الشاشة Microsoft Access Database جديد (3).zip
-
الموضوع بسيط مربع التحرير و السرد عشان يكون الشهر مطابق للشهر الي في نفس الجهاز فأستخدمت حلقة تكرارية مع تاريخ افتراضي عشان نطلع الأشهر و جعلت الكود في حدث عند الفتح Dim i As Integer MonthList = "اختيار ..." For i = 0 To 11 MonthList.AddItem i + 1 & "-" & Format(DateAdd("m", i, #1/1/2000#), "mmmm") Next في حدث عند التغيير في مربع التحرير و السر اضفت الفتر التالي On Error Resume Next Dim varFilter As Variant varFilter = Null If Not IsNull(MonthList) Then varFilter = (varFilter) & "format([txtMovementDateStart],'mmmm') LIKE '" & Right(MonthList, Len(MonthList) - 2) & "'" ' الفلتر t1.Caption = "التقرير الشهري للحركة لشهر" & " ( " & Right(MonthList, Len(MonthList) - 2) & " )" ' تعديل رأس الصفحة لإضافة اسم الشهر لعنوان الصفحة End If With Me.frmMovementMonthlyReport.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With و اذا رغبت بالتواصل معي تفضل على الخاص او الايميل حاليا لا استطيع استقبال المكالمات من السعودية لأني في ماليزيا
-
اضافة لوجو من جدول الى جميع التقارير
د.كاف يار replied to alzahrani2014's topic in قسم الأكسيس Access
هههههههه العذر و السموحة اتفضل 2اضافة شعار.zip -
طيب جرب هذا التعديل d (4).zip
-
اضافة لوجو من جدول الى جميع التقارير
د.كاف يار replied to alzahrani2014's topic in قسم الأكسيس Access
طيب اتفضل Microsoft Access Database جديد (3).zip -
اضافة لوجو من جدول الى جميع التقارير
د.كاف يار replied to alzahrani2014's topic in قسم الأكسيس Access
تفضل التعديل يا بوزهرة اضافة شعار.zip -
تفضل هذا التعديل Microsoft Access Database جديد (3).zip
-
-
متسرع في ردك كالعادة المرفق يعمل بصورة جدا ممتازة و لا توجد عليه أي شوائب لكن قد يكون الفرز في عمود غير العمود الذي تريده في المعادلة فقط قم بتغيير اسم العمود الى العمود الذي تريده اخي @Barna مجهودك اكثر من ممتاز و اخونا @bumb هذه عادته دائما متسرع في الاجابة و اتوقع انه يطلع على النتائج و لا يطلع على الكيفية ارجوا ان تتفهموا وجهة نظري فهي للتقريب و ليست للتفريق شكرا لكم ,,, ,
-
بحث فى مربع القائمة بعد تغيير مصدر البيانات لمربع القائمة
د.كاف يار replied to haitham elareny's topic in قسم الأكسيس Access
تفضل listboxSearch (22).zip -
تفضل هذه بعض الأكود تحتاجها في عملية الاضافة و التعديل و الحذف الإضافة Sub Add_New_Data() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim Address_Server As String, UserName_Server As String, Password_Server As String Dim strConnString As String Address_Server = "" UserName_Server = "" Password_Server = "" strConnString = "Provider=SQLOLEDB;Data Source=" & Address_Server & ";Persist Security Info=True;User ID=" & UserName_Server & ";Password=" & Password_Server & ";" Set conn = New ADODB.Connection conn.Open strConnString Set rs = conn.Execute("INSERT INTO Table_Name " & _ "([column_name1], [column_name2], [column_name3]) " & _ " VALUES(" & _ "[some_value1]," & _ "[some_value2]," & _ "[some_value3]," & _ ")") rs.Close Set rs = Nothing End Sub التعديل Sub Edit_Data() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim Address_Server As String, UserName_Server As String, Password_Server As String Dim strConnString As String Address_Server = "" UserName_Server = "" Password_Server = "" strConnString = "Provider=SQLOLEDB;Data Source=" & Address_Server & ";Persist Security Info=True;User ID=" & UserName_Server & ";Password=" & Password_Server & ";" Set conn = New ADODB.Connection conn.Open strConnString Set rs = conn.Execute("UPDATE Table_Name SET " & _ "[column_name1] = new_value," & _ "[column_name2] = new_value," & _ "[column_name3] = new_value," & _ "WHERE column_name = some_value") rs.Close Set rs = Nothing End Sub الحذف Sub DELETE_Data() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim Address_Server As String, UserName_Server As String, Password_Server As String Dim strConnString As String Address_Server = "" UserName_Server = "" Password_Server = "" strConnString = "Provider=SQLOLEDB;Data Source=" & Address_Server & ";Persist Security Info=True;User ID=" & UserName_Server & ";Password=" & Password_Server & ";" Set conn = New ADODB.Connection conn.Open strConnString Set rs = conn.Execute("DELETE FROM Table_Name " & _ "WHERE column_name = some_value") rs.Close Set rs = Nothing End Sub
-
اتفضل هذا التعديل d (3).zip
-
اتوقع انك تواجه مشكلة مع التاريخ لكن الموضوع ببساطه عليك ان تنقل ملف Modil الى برنامجك و تضعط مصدر العنصر مثالما هو عليه استخدم هذا الملف d (222).rar
-
اخي عند التعامل مع ارسال او تلقي البيانات فلن تحتاج الى استخدام هذه الرموز هي فقط تضاف حين الاتصال بالجداول من خلال الاكسس و بما انك حولت الى sql فأنت بحاجة الى بعض التعديلات للاتصال بقاعدة البيانات من خلال الكود و اذا رغبت بالاستمرار على نفسك وضعك الحالي فقط قم بتغيير اسماء الجداول المرتبطة و حذف رمز التمييز منها
-
استبدل الكود بالتالي [am_Pu7] = Nz([d_10], 0) + Nz([F_1], 0) - Nz([Di_Pu7], 0) تعويض الفارغ بصفر 0
-
كيف استطيع ان انقل option group من الفورم إلى التقرير
د.كاف يار replied to اسلام سيد's topic in قسم الأكسيس Access
تفضل التعديل طلب الايداع.accdb -
بحث فى مربع القائمة بعد تغيير مصدر البيانات لمربع القائمة
د.كاف يار replied to haitham elareny's topic in قسم الأكسيس Access
تفضل التعديل listboxSearch (1).accdb -
المطلوب فتح التقرير من النموذج لنفس الريكورد الموجود في النموذج
د.كاف يار replied to elghoultk's topic in قسم الأكسيس Access
-
-
هيا جرب الأن d (1).zip
-
المطلوب فتح التقرير من النموذج لنفس الريكورد الموجود في النموذج
د.كاف يار replied to elghoultk's topic in قسم الأكسيس Access
تفضل 2120855148_NILELAB2.accdb -
طيب جرب هذا التعديل d.zip
-
تصحيح استعلام في نماذج ال navigation form
د.كاف يار replied to alzahrani2014's topic in قسم الأكسيس Access
طيب اتفضل قاعدة 22.accdb -
الله يبارك فيك و في الجميع تمام
-
طيب لابد تفهم شي اي برنامج عبارة عن ادخال و اخراج اداخل البيانات عن طريق النموذج - الفورم و الأخراج - عن طريق التقارير معالجة البيانات و تطبيق الشروط تكون عند الإدخال اي لابد من فورم لكي تعالج البيانات بالطريقة التي تريدها