[asemshahen5]

PHP كود :

If CheckCode("t1", "code", t4.text)  = True Then
            ' في حالة كود الصنف موجود
            Edit()
        Else
            ' في حالة كود الصنف غير موجود
            Save()

        End If 


بسيطة بس كدة .

و ده كود المديول :

PHP كود :

Module Module1
    Public Function CheckCode(t1 As String, code As String, t4 As String) As Boolean
        Dim dt As New DataTable
        Dim SqlStr As String = "select * from " & t1 & " where " & code & " ='" & t4 & "'"
        If con.State = ConnectionState.Closed Then con.Open()
        Dim adp As New SqlClient.SqlDataAdapter(SqlStr, con)
        adp.Fill(dt)
        If dt.Rows.Count = 0 Then
            MsgBox("الكود غير موجود")
            CheckCode = False
        Else
            MsgBox("الكود موجود")
            CheckCode = True
        End If
        If con.State = ConnectionState.Open Then con.Close()
        Return CheckCode
    End Function
End Module 


و بدا المديول تستطيع عمل إستعلام عن أي قيمة بأي جدول بدل كل مرة تكتب فانكشن جديد لكل جدول تستخدم واحد بس .