[حريف برمجة]

انت بتقول "لا أريد طباعة الورقة إذا لم يتم حفضها في القاعدة "

بعد الحفظ يتم جلب رقم الفاتورة مباشرة ،،

ثم طباعة الفاتورة في حال جلب رقم الفاتورة .

هذا مثال لحفظ سجل في قاعدة بيانات اكسس وجلب ID للسجل نفسه ،، يمكنك التحقق من القيمة وتنفيذ امر بعد التحقق .

كود :

Dim connect As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
   "Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=True;"

متغير يحمل قيمة الترقيم التلقائي    Dim ID As Integer

Using conn As New OleDbConnection(connect)
 Using cmd As New SqlCommand("insert Into Categories (CategoryName) Values (@CategoryName)", conn)
   cmd.Parameters.AddWithValue("@CategoryName", Category.Text)
   conn.Open()
   cmd.ExecuteNonquery()
   cmd.Commandtext="select @@Identity"
   ID = cmd.ExecuteScalar()

MsgBox(ID)

If ID <> "" or ID <> Nothing then
ضع كود الطباعة هنا سواء بإستعلام برقم الآيدي أو من الداتاقريدفيو كما عملت انت
End If

   conn.close()
 End Using
End Using