DATA SONRAKİ KAYIT
Yayınlayan Alpim42 2009/4/26 (176 okuma)
[b]{\rtf1\ansi\ansicpg1254\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 SONRAK\'dd KAYIT
\par
\par Private Sub Command4_Click()
\par On Error Resume Next
\par DATA1.Recordset.MoveNext
\par Text1 = DATA1.Recordset![STOK_KODU]
\par Text2 = DATA1.Recordset![STOK_ADI]
\par Text3 = DATA1.Recordset![BIRIMI]
\par If DATA1.Recordset.EOF Then
\par DATA1.Recordset.MoveLAST
\par Text1 = DATA1.Recordset![STOK_KODU]
\par Text2 = DATA1.Recordset![STOK_ADI]
\par Text3 = DATA1.Recordset![BIRIMI]
\par MsgBox "\'ddLK KAYITDASINIZ"
\par End If
\par End Sub
\par
\par
\par
\par 'Bir alana ba\'f0l\'fd olan textler i\'e7in SONRAK\'dd KAYIT
\par
\par
\par
\par Private Sub Command4_Click()
\par On Error Resume Next
\par DATA1.Recordset..MoveNext
\par If DATA1.Recordset.EOF Then
\par DATA1.Recordset.MoveLAST
\par MsgBox "\ddLK KAYITDASINIZ"
\par End If
\par
\par End Sub
\par
\par
\par }
[/b]
| Bu kategorideki diğer makaleler | |
DATA ÖNCEKİ KAYIT
|
DATA İLK KAYIT
|
|
Yorumların sorumluluğu gönderen üyelerimize aittir. Yorumların içeriğinden, yorumu gönderen üyelerimiz sorumludur.
|