ALPA
Site Kurucusu
Mesaj Sayısı : 815
Nerden : Ankara
Kayıt tarihi : 02/03/09
 Rep Puanı : 32
 |  Konu: ADO SON KAYIT  Paz Mart 13, 2011 6:31 pm | |
| 'Bir alana bağlı olmayan textler için SON KAYIT - Kod:
-
Private Sub Command4_Click()
On Error Resume Next
Adodc1.Recordset.MoveLAST
Text1 = Adodc1.Recordset![STOK_KODU]
Text2 = Adodc1.Recordset![STOK_ADI]
Text3 = Adodc1.Recordset![BIRIMI]
End Sub 'Bir alana bağlı olan textler için SON KAYIT - Kod:
-
Private Sub Command4_Click()
Adodc1.Recordset.MoveLAST
End Sub ________Kullanıcı İmzası_________ | |
|
