دمج كودين في حدث واحد

sm44ms · فبراير 11

السلام عليكم
كيفية دمج كودين في حدث واحد على سبيل المثال
عندي كود للساعة وعداد الوقت 1000 واريد ان اضيف كود اخر في نفس الحدث وعدادا الوقت 5000 لاني حاولت ان ادمج بالكود نفسه لكن حصل مشكلة في العمل
سالت : قالو ممكن تفتح محرر الاكود مرتين لنفس النموذج - لكن لم اجد الطريقه في اوفيس 2007 هل عنده الفكره
جزاكم الله خيرا

**Moosak** · فبراير 11

وعليكم السلام ورحمة الله وبركاته 🙂

تفضل هذه أحد الطرق الممكنة :

image.png.41d52022f4e34f043ef4a997f1834d0f.png

2 Events.accdb

sm44ms · فبراير 11

حلو ه الفكره
ولكن كيف فتح عدد 2 محرر اكود لنفس الحدث

لاني اريد كود الوقت لبعض الدول مثل
ابوظبي

مكة

قرينتش

موسكو
في حقل واحد وتتغير كل 5 ثواني بين كل دوله في التوقيت

تم تعديل فبراير 11 بواسطه sm44ms

MOHAMMAD IBRAHIM · فبراير 11

اقتباس

حلو ه الفكره
ولكن كيف فتح عدد 2 محرر اكود لنفس الحدث

لاني اريد كود الوقت لبعض الدول مثل
ابوظبي

مكة

قرينتش

موسكو
في حقل واحد وتتغير كل 5 ثواني بين كل دوله في التوقيت

Option Compare Database
Option Explicit

Private x As Integer
Private currentTimeZone As Integer

Private Sub Form_Timer()
    ' زيادة العداد
    x = x + 1
    
    ' تحديث الوقت الحالي في Text1
    Me.Text1 = Time
    
    ' تغيير المنطقة الزمنية كل 5 ثواني
    If x = 5 Then
        x = 0
        currentTimeZone = currentTimeZone + 1
        If currentTimeZone > 3 Then currentTimeZone = 0
        
        ' الحصول على الوقت حسب المنطقة الزمنية الحالية
        Select Case currentTimeZone
            Case 0  ' أبوظبي (UTC+4)
                Me.Text2 = Format(DateAdd("h", 4, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss") & " أبوظبي"
            Case 1  ' مكة المكرمة (UTC+3)
                Me.Text2 = Format(DateAdd("h", 3, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss") & " مكة المكرمة"
            Case 2  ' توقيت غرينتش (UTC+0)
                Me.Text2 = Format(TimeSerial(Hour(Time), Minute(Time), Second(Time)), "hh:nn:ss") & " غرينتش"
            Case 3  ' موسكو (UTC+3)
                Me.Text2 = Format(DateAdd("h", 3, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss") & " موسكو"
        End Select
    End If
End Sub

تأكد من وجود مؤقت (Timer) في النموذج

اضبط فترة المؤقت على 1000 (ثانية واحدة)

أضف مربعي نص Text1 و Text2

سيعرض Text1 الوقت المحلي

سيعرض Text2 الأوقات المتغيرة للمدن المختلفة

---------------------------------------------------------

x: عداد للثواني

currentTimeZone: متغير لتتبع المنطقة الزمنية الحالية

2 Events - edit.accdb

تم تعديل فبراير 11 بواسطه MOHAMMAD IBRAHIM
اضافة مرفق

sm44ms · فبراير 11

ياصديقي - حصلت معي مشكلة هنا -

        لاني استخدم كود ثاني مع هذا وارفق لك الكود لتعدلهOption Compare Database

Option Compare Database Option Explicit Private x As Integer Private currentTimeZone As Integer Private Sub Form_Timer() ' زيادة العداد x = x + 1 ' تحديث الوقت الحالي في Text1 Me.Text1 = Time ' تغيير المنطقة الزمنية كل 5 ثواني If x = 5 Then x = 0 currentTimeZone = currentTimeZone + 1 If currentTimeZone > 3 Then currentTimeZone = 0 ' الحصول على الوقت حسب المنطقة الزمنية الحالية Select Case currentTimeZone Case 0 ' أبوظبي (UTC+4) Me.Text2 = Format(dateadd("h", 4, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss") & " أبوظبي" Case 1 ' مكة المكرمة (UTC+3) Me.Text2 = Format(dateadd("h", 3, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss") & " مكة المكرمة" Case 2 ' توقيت غرينتش (UTC+0) Me.Text2 = Format(TimeSerial(Hour(Time), Minute(Time), Second(Time)), "hh:nn:ss") & " غرينتش" Case 3 ' موسكو (UTC+3) Me.Text2 = Format(dateadd("h", 3, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss") & " موسكو" End Select End If On Error Resume Next If [TT] = "بدل فاقد" Then If [TT].ForeColor = vbYellow Then [TT].ForeColor = vbBlack [TT].BackColor = vbBlack Else [TT].ForeColor = vbYellow [TT].BackColor = vbBlack End If Else [TT].ForeColor = vbBlack [TT].BackColor = vbWhite End If If [ss] = "متقاعد" Then If [ss].ForeColor = vbWhite Then [ss].ForeColor = vbBlue [ss].BackColor = vbRed Else [ss].ForeColor = vbWhite [ss].BackColor = vbBlue End If Else [ss].ForeColor = vbBlack [ss].BackColor = vbYellow End If If [BD] = "استقالة" Then If [BD].ForeColor = vbWhite Then [BD].ForeColor = vbRed [ss].BackColor = vbRed Else [BD].ForeColor = vbWhite [BD].BackColor = vbRed End If Else [BD].ForeColor = vbBlack [BD].BackColor = vbYellow End If End Sub

Option Compare Database
Option Explicit

Private x As Integer
Private currentTimeZone As Integer
Private Sub Form_Timer()
    ' زيادة العداد
    x = x + 1
    
    ' تحديث الوقت الحالي في Text1
    Me.Text1 = Time
    
    ' تغيير المنطقة الزمنية كل 5 ثواني
    If x = 5 Then
        x = 0
        currentTimeZone = currentTimeZone + 1
        If currentTimeZone > 3 Then currentTimeZone = 0
        
        ' الحصول على الوقت حسب المنطقة الزمنية الحالية
        Select Case currentTimeZone
            Case 0  ' أبوظبي (UTC+4)
                Me.Text2 = Format(dateadd("h", 4, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss") & " أبوظبي"
            Case 1  ' مكة المكرمة (UTC+3)
                Me.Text2 = Format(dateadd("h", 3, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss") & " مكة المكرمة"
            Case 2  ' توقيت غرينتش (UTC+0)
                Me.Text2 = Format(TimeSerial(Hour(Time), Minute(Time), Second(Time)), "hh:nn:ss") & " غرينتش"
            Case 3  ' موسكو (UTC+3)
                Me.Text2 = Format(dateadd("h", 3, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss") & " موسكو"
        End Select
    End If




On Error Resume Next
   If [TT] = "بدل فاقد" Then
      If [TT].ForeColor = vbYellow Then
         [TT].ForeColor = vbBlack
         [TT].BackColor = vbBlack
      Else
         [TT].ForeColor = vbYellow
         [TT].BackColor = vbBlack
      End If
   Else
         [TT].ForeColor = vbBlack
         [TT].BackColor = vbWhite
   End If
   If [ss] = "متقاعد" Then
      If [ss].ForeColor = vbWhite Then
         [ss].ForeColor = vbBlue
         [ss].BackColor = vbRed
      Else
         [ss].ForeColor = vbWhite
         [ss].BackColor = vbBlue
      End If
   Else
         [ss].ForeColor = vbBlack
         [ss].BackColor = vbYellow
   End If
   If [BD] = "استقالة" Then
      If [BD].ForeColor = vbWhite Then
         [BD].ForeColor = vbRed
         [ss].BackColor = vbRed
      Else
         [BD].ForeColor = vbWhite
         [BD].BackColor = vbRed
      End If
   Else
         [BD].ForeColor = vbBlack
         [BD].BackColor = vbYellow
   End If
End Sub

سبب مشكلة هنا ولم يعمل

Option Compare Database

MOHAMMAD IBRAHIM · فبراير 12

هناك خطأ في جزء تنسيق حقل الاستقالة (BD)، حيث يتم تغيير خلفية الحقل الخاطئ:

Option Compare Database
Option Explicit

Private x As Integer
Private currentTimeZone As Integer

Private Sub Form_Timer()
    ' زيادة العداد وتحديث الوقت
    x = x + 1
    Me.Text1 = Time
    
    ' تحديث المناطق الزمنية
    UpdateTimeZones
    
    ' تحديث تنسيق الحقول
    UpdateFieldFormats
End Sub

Private Sub UpdateTimeZones()
    ' تغيير المنطقة الزمنية كل 5 ثواني
    If x = 5 Then
        x = 0
        currentTimeZone = currentTimeZone + 1
        If currentTimeZone > 3 Then currentTimeZone = 0
        
        ' الحصول على الوقت حسب المنطقة الزمنية الحالية
        Select Case currentTimeZone
            Case 0  ' أبوظبي (UTC+4)
                Me.Text2 = Format(DateAdd("h", 4, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss") & " أبوظبي"
            Case 1  ' مكة المكرمة (UTC+3)
                Me.Text2 = Format(DateAdd("h", 3, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss") & " مكة المكرمة"
            Case 2  ' توقيت غرينتش (UTC+0)
                Me.Text2 = Format(TimeSerial(Hour(Time), Minute(Time), Second(Time)), "hh:nn:ss") & " غرينتش"
            Case 3  ' موسكو (UTC+3)
                Me.Text2 = Format(DateAdd("h", 3, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss") & " موسكو"
        End Select
    End If
End Sub

Private Sub UpdateFieldFormats()
    On Error Resume Next
    
    ' تنسيق حقل بدل فاقد
    If [TT] = "بدل فاقد" Then
        If [TT].ForeColor = vbYellow Then
            [TT].ForeColor = vbBlack
            [TT].BackColor = vbBlack
        Else
            [TT].ForeColor = vbYellow
            [TT].BackColor = vbBlack
        End If
    Else
        [TT].ForeColor = vbBlack
        [TT].BackColor = vbWhite
    End If
    
    ' تنسيق حقل متقاعد
    If [ss] = "متقاعد" Then
        If [ss].ForeColor = vbWhite Then
            [ss].ForeColor = vbBlue
            [ss].BackColor = vbRed
        Else
            [ss].ForeColor = vbWhite
            [ss].BackColor = vbBlue
        End If
    Else
        [ss].ForeColor = vbBlack
        [ss].BackColor = vbYellow
    End If
    
    ' تنسيق حقل استقالة
    If [BD] = "استقالة" Then
        If [BD].ForeColor = vbWhite Then
            [BD].ForeColor = vbRed
            [BD].BackColor = vbRed  ' تم التصحيح: تغيير خلفية BD بدلاً من ss
        Else
            [BD].ForeColor = vbWhite
            [BD].BackColor = vbRed
        End If
    Else
        [BD].ForeColor = vbBlack
        [BD].BackColor = vbYellow
    End If
End Sub

وإن لم يعمل ارفق ملف المشروع فقط بالاكواد التي يوجد بها مشكلة

تم تعديل فبراير 12 بواسطه MOHAMMAD IBRAHIM

sm44ms · فبراير 12

اشتغل ؟ ولكن فيه خطاء في التوقيت العالمي
مثال - انا في ابوظبي
والفرق بينها ومكة ساعه

نفس الشي في عدن وبعض المدن والفرق كبير

Private Sub Form_Timer()
    ' زيادة العداد
    x = x + 1
    
    ' تحديث الوقت الحالي في Text1
    Me.Text1 = Time
    
    ' تغيير المنطقة الزمنية كل 5 ثواني
    If x = 5 Then
        x = 0
        currentTimeZone = currentTimeZone + 1
        
        ' إعادة تعيين المنطقة الزمنية إذا تجاوزت الحد الأقصى
        If currentTimeZone > 10 Then currentTimeZone = 0
        
        ' الحصول على الوقت حسب المنطقة الزمنية الحالية
        Select Case currentTimeZone
            Case 0  ' أبوظبي (UTC+4)
                Me.Text2 = Format(dateadd("h", 4, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " أبوظبي"
            Case 1  ' مكة المكرمة (UTC+3)
                Me.Text2 = Format(dateadd("h", 3, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " مكة المكرمة"
            Case 2  ' توقيت غرينتش (UTC+0)
                Me.Text2 = Format(TimeSerial(Hour(Time), Minute(Time), Second(Time)), "hh:nn:ss AM/PM") & " غرينتش"
            Case 3  ' موسكو (UTC+3)
                Me.Text2 = Format(dateadd("h", 3, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " موسكو"
            Case 4  ' نيويورك (UTC-5)
                Me.Text2 = Format(dateadd("h", -5, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " نيويورك"
            Case 5  ' طوكيو (UTC+9)
                Me.Text2 = Format(dateadd("h", 9, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " طوكيو"
            Case 6  ' عدن (UTC+3)
                Me.Text2 = Format(dateadd("h", 3, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " عدن"
            Case 7  ' القاهرة (UTC+2)
                Me.Text2 = Format(dateadd("h", 2, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " القاهرة"
            Case 8  ' بكين (UTC+8)
                Me.Text2 = Format(dateadd("h", 8, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " بكين"
            Case 9  ' باريس (UTC+1)
                Me.Text2 = Format(dateadd("h", 1, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " باريس"
            Case 10  ' لندن (UTC+0)
                Me.Text2 = Format(TimeSerial(Hour(Time), Minute(Time), Second(Time)), "hh:nn:ss AM/PM") & " لندن"
        End Select
    End If
End Sub

MOHAMMAD IBRAHIM · فبراير 12

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

Private Sub Form_Timer()
    ' زيادة العداد
    x = x + 1
    
    ' تحديث الوقت الحالي في Text1
    Me.Text1 = Time
    
    ' تغيير المنطقة الزمنية كل 5 ثواني
    If x = 5 Then
        x = 0
        currentTimeZone = currentTimeZone + 1
        
        ' إعادة تعيين المنطقة الزمنية إذا تجاوزت الحد الأقصى
        If currentTimeZone > 10 Then currentTimeZone = 0
        
        ' الحصول على التوقيت العالمي (UTC) بطرح 3 ساعات من التوقيت المحلي (مكة المكرمة)
        Dim utcTime As Date
        utcTime = DateAdd("h", -3, Time)
        
        ' الحصول على الوقت حسب المنطقة الزمنية الحالية
        Select Case currentTimeZone
            Case 0  ' أبوظبي (UTC+4)
                Me.Text2 = Format(DateAdd("h", 4, utcTime), "hh:nn:ss AM/PM") & " أبوظبي"
            Case 1  ' مكة المكرمة (UTC+3)
                Me.Text2 = Format(DateAdd("h", 3, utcTime), "hh:nn:ss AM/PM") & " مكة المكرمة"
            Case 2  ' توقيت غرينتش (UTC+0)
                Me.Text2 = Format(utcTime, "hh:nn:ss AM/PM") & " غرينتش"
            Case 3  ' موسكو (UTC+3)
                Me.Text2 = Format(DateAdd("h", 3, utcTime), "hh:nn:ss AM/PM") & " موسكو"
            Case 4  ' نيويورك (UTC-5)
                Me.Text2 = Format(DateAdd("h", -5, utcTime), "hh:nn:ss AM/PM") & " نيويورك"
            Case 5  ' طوكيو (UTC+9)
                Me.Text2 = Format(DateAdd("h", 9, utcTime), "hh:nn:ss AM/PM") & " طوكيو"
            Case 6  ' عدن (UTC+3)
                Me.Text2 = Format(DateAdd("h", 3, utcTime), "hh:nn:ss AM/PM") & " عدن"
            Case 7  ' القاهرة (UTC+2)
                Me.Text2 = Format(DateAdd("h", 2, utcTime), "hh:nn:ss AM/PM") & " القاهرة"
            Case 8  ' بكين (UTC+8)
                Me.Text2 = Format(DateAdd("h", 8, utcTime), "hh:nn:ss AM/PM") & " بكين"
            Case 9  ' باريس (UTC+1)
                Me.Text2 = Format(DateAdd("h", 1, utcTime), "hh:nn:ss AM/PM") & " باريس"
            Case 10 ' لندن (UTC+0)
                Me.Text2 = Format(utcTime, "hh:nn:ss AM/PM") & " لندن"
        End Select
    End If
End Sub

**Foksh** · فبراير 12

راجع هذا الموضوع

sm44ms · فبراير 12

اشكرك

تسجيل الدخول

دمج كودين في حدث واحد

الردود الموصى بها

sm44ms

Moosak

sm44ms

MOHAMMAD IBRAHIM

sm44ms

MOHAMMAD IBRAHIM

sm44ms

MOHAMMAD IBRAHIM

Foksh

sm44ms

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information