DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim cnn As ADODB.Connection 'Burada yeni bir ado bağlantısı tanımlıyorum
Dim rst As New ADODB.Recordset 'Burada yeni bir kayıt kümesi tanımlıyorum
Set cnn = CurrentProject.Connection 'Burada bağlantıyı şu an geçerli olan uygulamaya ayarlıyorum
'Burada istrediğiniz harici bir access uygulamasını da yazabilirsiniz
'C:\diğeruygulama.mdb gibi
'Aşağıdaki satırda kayıt kümesini tanımladığım bağlantının istediğim tablonun kayıt kümesi olarak açıyorum
rst.Open "tblAlınanSipariş", cnn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
'Yeni bir kayıt kümesi ekliyorum
rst.AddNew
'kayıt kümesinin her alanını benim formumdaki metin kutusuna eşitliyorum
'Burada rst("SiparişNo") olarak da yazabilirdim ancak siz alan adlarını
'verirken boşluk bıraktığınızdan index numaralarını kullandım
rst(0) = Me.Sipariş_No
rst(1) = Me.Firma_Adı
rst(2) = Me.Firma_Adresi
rst(3) = Me.Sipariş_Tarihi
rst(4) = Me.Malzeme_Kodu
rst(5) = Me.Malzeme_Adı
'Kayıt kümesini kaydediyorum
rst.Save
'Güvenlik için mutlaka önceden tanımladığım tüm alanları boşalyıyorum
'Bu olmasa da çalışıyor kod ama çok uygulama birden açıldığına
'karışıklığa sebep verebilir
Set rst = Nothing
Set cnn = Nothing