Başlıkta ne sorduğumu belirttim aşağıdaki kod bloğundaki bazı noktaları tam yorumlayamadım. yardımlarınızı bekliyorum. teşekkürler. Private Sub Text1_LostFocus On Error Resume Next If Text1. Text = "" Then Command1. SetFocus Else Dim bul As New ADODB. Recordset bul. Open "select from urun where urun_no='" & Text1. Text & "'", "DSN=stok", adOpenStatic, adLockOptimistic ' "select from urun where urun_no='" & Text1. Text & "'" bu sorgunun tam anlamını istiyorum If bul = "" Then 'burda nedemek istiyor aslında açık ama yukarıyla ilişkisi ne aa = MsgBox Text1. Text = "" Text1. SetFocus Else Dim stokg As New ADODB. Recordset Dim stokc As New ADODB. Recordset Dim g As Integer Dim c As Integer stokg. Open "select sum from ana where urun_no='" & Text1. Text & "'", "DSN=stok", adOpenStatic, adLockOptimistic ' zelikle buraları anlamadım stokc. Open "select sum from ana where urun_no='" & Text1. Text & "'", "DSN=stok", adOpenStatic, adLockOptimistic g = CInt(stokg("expr1000")) 'bu ("expr100") kodu nedir ne işe yarıyor c = CInt(stokc("expr1000")) Label11. Caption = g - c & " Adet" text2. Text = bul End If End If End Sub

' "select from urun where urun_no='" & Text1. Text & "'" Açıklama: Text1 idli metin kutusunun içindeki değeri alıyor. Daha sonra onu urun tablosunda sorguluyor . If bul = "" Then Açıklama: Veritabanında aranan ürün bulunmamış ise. stokg. Open "select sum from ana where urun_no='" & Text1. Text & "'", "DSN=stok", adOpenStatic, adLockOptimistic Açıklama: ana adlı tabloda bu ürün numaraları ürünlerinin adetlerini topluyor Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

cevap verecek olan yokmu.

' "select from urun where urun_no='" & Text1. Text & "'" Açıklama: Text1 idli metin kutusunun içindeki değeri alıyor. Daha sonra onu urun tablosunda sorguluyor . If bul = "" Then Açıklama: Veritabanında aranan ürün bulunmamış ise. stokg. Open "select sum from ana where urun_no='" & Text1. Text & "'", "DSN=stok", adOpenStatic, adLockOptimistic Açıklama: ana adlı tabloda bu ürün numaraları ürünlerinin adetlerini topluyor birinci sorum: if bul ="" then 'deyimi bir üstündeki sorguyla ilişkilimi yoksa ayrı bir mantıksal sınamamı ilişkili olsa if ="" then demesi gerekmezmi. ikinci sorum: stokg. Open "select sum from ana where urun_no='" & Text1. Text & "'", "DSN=stok", adOpenStatic, adLockOptimistic bu sorgu satırından iki tane var ikiside aynı yapılmak istenen işlem nasıl yapılacakki. üçüncü sorum: ("expr1000") kodu nedir