تعديل في برنامجي

عندما ادخلت رقم في خانة الCustomer ID او supplier ID لا يحدث شيء ما هي رسالة الخطأ التي تراها؟

اخي لو تعطينا رسائل الخطا ممكن نساعدك لكن انا الان ضائع لانه لم اجد اي رسائل خطا .

اما عن ال quantity in stock

Private Sub txtqtypurch_Change()
txtqty.Text = Val(txtqty.Text) + Val(txtqtypurch.Text)
End Sub

Private Sub txtqtysold_Change()
'Dim txtqty As Integer
'Dim txtqtysold As Integer
'
If txtqty <= 0 Or txtqty.Text < txtqtysold.Text Then
    MsgBox "Not enough quantity in stock for this operation"
Else
    txtqty.Text = txtqty - txtqtysold
End If
End Sub

نفس الكود الذي كتبته :)

أخي العزيز عند ادخال رقم جديد في خانة الCustomer ID او supplier ID لا تظهر رسالة ولكن عند ادخال رقم موجود فعلا تظهر هذه العبارة (The changes you requested to the table were not successful becz they would create duplicate values in the indes)

وبالنسبة للكود الذي ذكرته أدخلته كما هو في فورم medicine وتظهر لي عبارة type mismatch

وكذلك أين الحل بالنسبة للبحث

الخطأ الاول يحصل لان عند ادخال رقم في الخانة customer ID يعتقد انك تحاول ادخال زبون جديد برقم index موجود اصلا لذلك لا انصح بالبحث من خلال هذه الطريقة.

Private Sub txtqtysold_Change()
'Dim txtqty As Integer
'Dim txtqtysold As Integer
'
If Val(txtqty) <= 0 Or Val(txtqty.Text) < Val(txtqtysold.Text) Then
    MsgBox "Not enough quantity in stock for this operation"
Else
    txtqty.Text = Val(txtqty) - Val(txtqtysold)
End If
End Sub

اضفت ال val لانها تحول ال string الى ارقام.

عفوا اخي .. ما هي طرق البحث التي تقصدها ممكن نأخذ فكرة عنها أو الكود الخاص بها إذا أمكن

ممكن query مثل:

Dim SQL as string
SQL = "select * from supplier where supplierID=" & txtsupplier.text
Ado.Recordsource = SQL