[مساعدة]

السلام عليكم


ضع هذا الكود في الموديول Module

كود :

' عدد المتبقي لهم أقل من 24 ساعة
Public Function GetAlertCount() As Integer

    '   'h'  تعني فرق بالساعات
    Dim STR = "SELECT COUNT(*) FROM [TB_Notices] WHERE DateDiff('h', Now, [DateGet]) <= 24"

    Dim Adp As New OleDbCommand(STR, conn)
    If conn.State <> ConnectionState.Open Then conn.Open()
    Dim ret As Integer = Adp.ExecuteScalar
    conn.Close()

    Return ret

End Function

وضع هذا الكود في حدث Form_Load للفورم frmMain

كود :

Label1.Text = GetAlertCount()

ابحث عن طريقة الربط بين الجداول لتكون مشاريعك على أسس صحيحة.