DATA ARAMA 2
Yayınlayan Alpim42 2009/4/26 (328 okuma)
[b]{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset162 Comic Sans MS;}}
{\colortbl ;\red255\green255\blue255;}
\viewkind4\uc1\pard\cf1\lang1055\f0\fs20 'Bir alana ba\'f0l\'fd olmayan textler i\'e7in ARAMA
\par
\par Private Sub Command13_Click()
\par On Error Resume Next
\par data1.Refresh
\par data1.Recordset.Findfirst "STOK_KODU like '" & Text9.Text & "'"
\par If data1.Recordset![STOK_KODU] <> Text9 Then
\par MsgBox "B\'d6YLE B\'ddR KAYIT YOK"
\par Else
\par Text1 = data1.Recordset![STOK_KODU]
\par Text2 = data1.Recordset![STOK_ADI]
\par Text3 = data1.Recordset![BIRIMI]
\par End If
\par End Sub
\par
\par
\par
\par 'Bir alana ba\'f0l\'fd olAN textler i\'e7in ARAMA
\par
\par Private Sub Command8_Click()
\par On Error Resume Next
\par data1.Refresh
\par data1.Recordset.Findfirst "ADI like '" & Text3.Text & "'"
\par If data1.Recordset![ADI] <> Text3 Then
\par MsgBox "B\'d6YLE B\'ddR KAYIT YOK"
\par End If
\par End Sub
\par
\par }
[/b]
| Bu kategorideki diğer makaleler | |
DATA ARAMA 1
|
DATA SQL ARAMA
|
|
Yorumların sorumluluğu gönderen üyelerimize aittir. Yorumların içeriğinden, yorumu gönderen üyelerimiz sorumludur.
|