لدي 2 فورم و اريد من البرنامج ان يفتح على الفورم الاول
اذا لم يكن هناك اي تسجيل في قاعدة البيانات
وإذا كان هناك تسجيل يفتح الفورم الثاني
انا كتبت هذا الكود لاني لم اعرف الطرقة الصحيحة
الكود فكرته هي
انه عند الحدث فورم لود يتم تحميل البيانات المسجلة في القاعدة داخل الكمبو بوكس وهذا الكود يعمل
فإذا كان القيمة فارغة يتم فتح هذا الفورم (الفورم1)
واذا لم تكن فارعة ينتقل الى الفورم 2
Dim ds As New DataSet
Dim ConStr As String = "Provider=Microsoft.ace.OLEDB.12.0;" & _
"Data Source =" & Application.StartupPath & "\Niveau.accdb"
Dim SQLstr As String = "SELECT Num,Niveau FROM TabNiveau "
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(ds, "TabNiveau")
Conn.Close()
TxtNum.DataBindings.Add("Text", ds, "TabNiveau.Num")
ComboNiveau.DataBindings.Add("Text", ds, "TabNiveau.Niveau")
' DataAdapter1.Dispose()
If ComboNiveau.Text = "" Then
Me.Show()
Else
FormHaqiba.Show()
Me.Hide()
End Ifجزاكم الله خيرا