ابو عارف

السلام عليكم و رحمة الله و بركاته إخواني الأعزاء ؛ معاينة من صفحة الى الصفحة في أكسس غريبة بنسبة لي لأن أكسس ليس مثل إكسل أو الوورد ، في مستند الوورد أو مصنف اكسل يمكن تحديد صفحات من مستند أو مصنف ثم يطلب من طابعة طباعة من صفحة كذا الى صفحة كذا , ولكن في اكسس يتم تصفية تقرير على معيار بيانات مراد طباعتها ثم يطبعه مباشر أو عرضه في معاينة قبل طباعة , و طريقة طباعة من صفحة الى صفحة في اكسس لا أحد يعلم أي صفحة تحتوي على أي بيانات حتى بعد عرض تقرير في عرض معاينة , وفي الحالة يجب عرض تقرير بجميع صفحاته ثم يختار صفحات ما يريد طباعته . أو يمكن فيه ميزة خاصة و انا لا ادري عنها !!! الله أعلم

تفضل حبيبي Full Control Of Print Report.mdb

بسيطة ان شاء الله ، حاليا انا بعيد من كمبيوتر

وعليكم السلام تفضل Full Control Of Print Report.mdb

السلام عليكم و رحمة الله و بركاته في مثال الأخير لاستاذ/ أبو خليل جربت حجز فترة تنتهي قبل إنتهاء حجز زبون من بعده مثلا حسن 1 قام بحجز من ساعة 2 مساءً حتى 4 مساءً ثم جاء حسن 2 يريد حجز من ساعة 1 و لمدة 4 ساعات و عند ضغط على الزر حجز يعرض رسالة خطاء و بعد الغاء رسالة ثم ضغط على زر حجز مرة اخرى، يقبل الحجز كما في صورة

أخي اليك التعديل كما طلبت leb.accdb

مشاركة مع اساتذة الكرام =Format(IIf([timeer] Like "*AM",DateAdd("h",12,[timeer]),[timeer]),"dd/mm/yyyy h:nn AM/PM")

خلي قيمة افتراضية لمربع نص PAID صفر أو وضع إسم تلك المربع بين دالة NZ(PAID,0) CurrentDb.Execute "INSERT INTO Tbl_Party (HUSBAND_NAME, DATE_PARTY, PARTY_ID, COST_AMOUNT, PAID) " & _ "VALUES ('" & Me.HUSBAND_NAME & "', #" & Format(Me.DATE_PARTY, "dd/mm/yyyy") & "#, " & _ Me.PARTY_ID & ", " & Me.COST_AMOUNT & ", " & Nz(Me.PAID, 0) & ")", dbFailOnError

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

لا تقلق سيستمر مع اضافة بيانات جرب التعديل الأعلى

عندي انا يعمل 100% في شيت الاول لا تعمل اي شيء البرنامج يعمل تسطير من تلقاء نفسه مع بدء كتابة في صف جديد عملت لك فلاتر اذا حبيت تصدير بين تاريخين ، اكتب تاريخين " من الى" ثم اضغط على زر فلتر ما فهمت قصك بضبط ، حاليا كيو آركود موجو في عمود M و نص كيوآركود من عمود I في نفس صف، و يعمل كماهو على كل حال انت جرب المرفق و شوف نتيجة أنشطة 2025 (A).xlsb

الشكر لله و جزاك الله هو نفس ملف يبدل القديم على الجديد و في تعدديل جديد تم اضافة تاريخ و الوقت تصدير الى اسم الملف يصدر كل ملف على اسم مختلف الا تصدير ملفين في نفس دقيقة، باضافة تعديل فتح ملف بعدد تصدير احذفت عمود Q و لا حاجة له لان كيو آر كود يأخذ رابط من حقل (رابط يوتيوب) أنشطة 2025 (A).xlsb

السلام عليكم و رحمة الله و بركاته أخي العزيز،،ارى اجابة استاذ عبدالله متوافقة تماما كما طلبت ولكن اعتقد المطلوب من طلب منك مختلف ، و المطوب هو تغير لون سهم و اتجاهه على حسب معايير عمود Normal Value لإختبار فئة في عمود Test كما في الصورة ، لا العمود كامل على 3 معايير ،هذا حسب فهمي و الله اعلم.

السلام عليكم و رحمة الله و بركاته أخي جرب التعديل انا جربت أزرار يعمل تماما في ورقتين ، و الماكرو كيو آركود خليتها يعمل عند ضغط على الزر الجديد Create Qrcode فقط متى ما شئت لا مع تحديث خلايا انت جربه و اخبرني بنتيجة ان شاء الله اساعدك رغم خبرتي في اكسل قليلة لانني اعمل في اكسس أكثر من اكسل . أنشطة 2025 (1).xlsb

الشكر لله و بارك الله فيك.

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

كليك يمين على ايقونة نموذج في نافذة أكواد ثم ضغط على اختيار Export File احفظ نموذج في اي مكان في الجهاز خطوة 2) افتح برنامجك افتح نافذذة أكواد كليك يمين عند ايقونات عاصر ثم اختار Emport File ثم اذهب الى ملف الذي احفظته و دبل كليك عليه وقد تم استراد النموذج بنجاح بالتوفيق،،،

وعليكم السلام و رحمة الله وبركاته آخي الكريم ملفك فيه أكثر من مشكلة و أكبر ها إنشاء جميع كيو آر كود عند تغير اية خلية في شيت ولا يعطي مجال تغير بيانات بحاول اساعدك على قدر مستطاع إن شاء الله

نزل مرفق من جيديد تم تعديل مع العلم الرساله لم يظهر عندي

اليك كما تفضلت و اذا اردت عددم قفل الصفحة خلال تنقل بين سجلات في نفس الصفحة حتى انتقال الى الصفحة اخرى ، امسح حدث في الحالي نموذج . حماية الصفحة.mdb

وعليكم السلام و رحمة الله و بركاته سبب المشكلة عدم وجود متغير tmp . hg و اليك الكود بعد تعديل Sub Copy_Transfer_WORD() Dim WS As Worksheet Dim Rng As Range, j As Range, Irow As Range Dim x As Long, r As Long, lastRow As Long Dim i As Integer, Ary As Variant Dim Cnt() As String Dim arr() As String Dim tmp As Range Set WS = Sheets("الانشطة") lastRow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row Application.DisplayAlerts = False Application.ScreenUpdating = False Msg = MsgBox("؟" & " " & "Word " & ":" & " تصدير التقرير بصيغة", vbYesNo, WS.Name) If Msg <> vbYes Then Exit Sub n.Visible = xlSheetVisible: n.Cells.UnMerge Set tmp = n.Range("A1:l" & n.Rows.Count) Cnt() = Split("A-A,D-C,E-D,F-E,G-F,H-G,I-H,J-I", ","): tmp.Clear For i = 0 To UBound(Cnt) arr = Split(Cnt(i), "-") Set Rng = n.Range(arr(1) & n.Rows.Count).End(xlUp) WS.Range(arr(0) & "4:" & arr(0) & lastRow).Copy Destination:=Rng Next i rngA = Split("C", ","): rngB = Split("B", ",") For i = LBound(rngA) To UBound(rngA) WS.Range(rngA(i) & "4:" & rngA(i) & lastRow).Copy With n.Range(rngB(i) & "1") .PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End With Next i n.Columns("A").SpecialCells(xlBlanks).EntireRow.Delete lr = n.Cells(n.Rows.Count, "A").End(xlUp).Row Set A = n.Rows(1): Set b = n.Rows(2): Set d = n.[A1:I1]: Set E = n.Range("A3:I" & lr) A.RowHeight = 75: b.RowHeight = 40: b.Font.Bold = True: b.Font.Size = 14 d.Merge: d.Interior.Color = RGB(192, 192, 192) n.[A2:I2].Interior.Color = RGB(215, 238, 247): n.[H2:I2].Merge E.Interior.ColorIndex = xlNone: E.Font.Name = "AdvertisingBold": E.Font.Size = 13 F = n.Cells(2, n.Columns.Count).End(xlToLeft).Column + 1 n.Range(n.Cells(2, 1), n.Cells(lr, F)).Borders.Weight = xlThin Ary = Array(5, 15, 38, 38, 38, 15, 15, 15, 15) For x = 0 To UBound(Ary) n.Columns(x + 1).ColumnWidth = Ary(x) Next x Set Irow = n.Range("A3", n.Cells(n.Rows.Count, "A").End(xlUp)) For Each j In Irow.Rows If j.RowHeight < 20 Then: j.RowHeight = 30: Else j.EntireRow.AutoFit Next n.Range("b3:b" & n.Rows.Count).NumberFormat = "yyyy/mm/dd" n.Range("A:I").EntireColumn.HorizontalAlignment = xlCenter n.Range("A:I").EntireColumn.VerticalAlignment = xlCenter With n.Range("A3:A" & n.Cells(Rows.Count, "B").End(xlUp).Row) .Value = Evaluate("ROW(" & .Address & ")-2") End With WS.Activate: ExcelToWordSheet1 n.Visible = xlSheetVeryHidden Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

تم تعديل على حسب إلغاء تمكين صفحة في حال عدم وجود حقل فارغ في صفحة و الا الصفحة مفتوحة و يمكن تغير جميع حقولها و بعد تعبئة حقل/حقول فارغة و ضغط على ايقونة صفحة اخرا أو انتقال الى سجل سابق او تالي يتم الغاء تمكين . حماية الصفحة.mdb

لم يظهر عندي الخطاء على العموم ارفعت اليك ملفين في ملف الأول نموذج 2 عدلت على حسب طلبك و عملت نموذج 3 هذا نموذج يطبق الكود بعد تغير الصفحة أو انتقال الى سجل آخر بمعنى طوال تعديل اية الحقل في حقول صفحة الحالية و في نفس سجل لم ينفذ الكود. TEST1.accdb الملف الثاني عدلت حسب فكرتي بعيدا من وحدات نمطية على سبيل مثال تحويل أرقام الى نجوم في Infutbox شوف حجم وحدة نمطية باضافة مشاكل توافق نسخ الاكسس. انظر الى بدء كتابة في حقل محمي FFNew.mdb

حسب طلب صاحب موضوع لديه 1000 سجل مراد تعديله و لكن اذا اراد تشغيل استعلام بين فترات على نفس جدول يمكن يستسني قيم معدلة مسبقا و تعديل الاستعلام الى: UPDATE TAEBOL_TEST SET TAEBOL_TEST.ITEM_PRES_FK = IIf([ITEM_PRES_FK]<1 And [ITEM_PRES_FK] Like "*.*",[ITEM_PRES_FK]*(1 & String(Len([ITEM_PRES_FK]) -InStr([ITEM_PRES_FK],"."),"0")),[ITEM_PRES_FK]), TAEBOL_TEST.NASBA_2 = IIf([NASBA_2] Like "*%*" Or Len(Nz([NASBA_2]))=0,[NASBA_2],[NASBA_2] & "%");

تفضل أخي الكريم TEST1.accdb