ابو عارف

مشاركة مع اساتذة الكرام =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

هذا مثال حسب فهمي من السؤال من جدول الى استعلام المرفق TEST1.accdb

وعليكم السلام و رحمة الله أخي اليك المثال بعد تعديل و في المستقبل اذا اردت تطبيق الكود علي حقول اخرى ، ما عليك الا نسخ حدث بعد تحديث من حقل مطبق عليه الكود الى حدث بعد تحديث هذا الحقل و كتابة حرف H في خاصية Tag FF (1).mdb

احسنت أستاذ خليفة ، و انا ماجربت على اكسس 32 بت لان أنا أعمل على أكسس 64 بت (الشرط صواب) و ما ينتقل الى Else وسطر ذي خطاء في Else و ما أخبرني نسيت "O" 😊 و المرفق بعد تعديل FF.mdb

تفضل أخي برنامج اكسس عندي 64 بت حصلت المديول في المنتدى ثم قمت ببعض تعديلات لكي يعمل على نواتين 64 و 32 بت و عرض نافذة InputBox في وسط الشاشة FF.mdb

أخي عدلت لك المثال يعتمد على فراغ مربع نص ops في حالات: بعد تحديث ops ، عند فتح نموذج ، عند تنقل بين سجلات يعني عند تنقل بين سجلات و وصلت المربع فارغة يتم تمكين الصفحة و الا يتم الغاء تمكينها، FF.mdb

وعليكم السلام و رحمة الله و بركاته لان يتم تغير خصائص و نموذج في عرض نموذج ،لا في عرض تصميم النموذج يحفظ تغيرات في وضع تصميم و لإبقاء صفحات غير ممكنة ضع الكود تالي عند فتح نموذج Private Sub Form_Open(Cancel As Integer) TabControl_1.Pages(0).Enabled = False TabControl_1.Pages(1).Enabled = False TabControl_1.Pages(2).Enabled = False End Sub