Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
11/01/2018 19:45
Konu Sahibi
alperadn01
Yorumlar
5
Okunma
514
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
alperadn01

alperadn01

Aktif Üye
644
 40
 47
 192
 23/11/2008
0
 -
 
 Ofis 2003
 27/04/2019,17:18
Çözüldü 
arkadaşlar merhaba. ekte gönderdiğim örnekte dosya1 ismindeki formda arşivle isminde buton yardımıyla üzerinde bulunduğumuz kaydı arşive kaldırmak istiyorum. ancak bir uyarı veriyor çözemedim bu konuda yardıma ihtiyacım var teşekkür ederim



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.064
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,21:56
Merhaba,

Ekleme sorgusunda tarih alanı boş olursa hata verir. Bunun yerine ado kullan.


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim rs As New ADODB.Recordset

rs.Open "dosyaarşiv", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs.AddNew
    
    rs("tc no") = Me.[tc no]
    rs("adı soyadı") = Me.[adı soyadı]
    rs("işe başlama") = Me.[işe başlama]
    rs("işten ayrılış") = Me.[işten ayrılış]
    
    rs.Update
Set rs = Nothing
    

    MsgBox ("Dosya,ARŞİV tablosuna eklendi")
    Me.Requery
    Me.Refresh
    DoCmd.GoToRecord , , acFirst


Zaten bu tablo yapısı ile çalışacak olsa bile çalışmaz. Yapılmaması Gereken Ölümcül HatalarURL'ye Git dosyaarşiv diye tablo adı, işe başlama diye de alan adı olmaz.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

alperadn01

alperadn01

Aktif Üye
644
 40
 47
 192
 23/11/2008
0
 -
 
 Ofis 2003
 27/04/2019,17:18
Çok teşekkür ederim. Bir sorum daha olacak. Tüm kayıtları rs("tc no") = Me.[tc no]
    rs
("adı soyadı") = Me.[adı soyadı]
    rs
("işe başlama") = Me.[işe başlama]
    rs
("işten ayrılış") = Me.[işten ayrılış] bu şekilde tek tek kodları yazmaktansa var olan mevcut kayıtların tamamını aynı anda aktarma  şansımız var mı? Tabii sadece üzerinde bulunduğumuz kayıt için



alperadn01

alperadn01

Aktif Üye
644
 40
 47
 192
 23/11/2008
0
 -
 
 Ofis 2003
 27/04/2019,17:18
Muhakkak bir çözümü vardır sorumun. Yardımlarınızı bekliyorum. Teşekkür ederim şimdiden



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.064
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,21:56
Merhaba,

Bu yapı ile uygulamanı bir adım ileriye taşıyamazsın. Olmayacak yerlerde anlayamadığın hatalar vermeye başlayacak.

Formda, arşiv tablosuna aktarılacak verileri içeren metin kutusu ve açılan kutuların im özelliğine 1 yaz,

Butonun tıklandığında olayına aşağıdaki kodu ekle.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
    'dosyaarşiv isimli tabloya kayıt işlemi yapılıyor

Dim GDenetim As Control

Dim rs As New ADODB.Recordset

rs.Open "dosyaarşiv", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs.AddNew

For Each GDenetim In Me

    If GDenetim.Tag = 1 Then
       
       rs(GDenetim.ControlSource) = GDenetim.Value
       
    End If
    
Next GDenetim

rs.Update

Set rs = Nothing
    

MsgBox ("Dosya,ARŞİV tablosuna eklendi")
Me.Requery
Me.Refresh
DoCmd.GoToRecord , , acFirst


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

alperadn01

alperadn01

Aktif Üye
644
 40
 47
 192
 23/11/2008
0
 -
 
 Ofis 2003
 27/04/2019,17:18
(14/01/2018 21:09)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba,

Bu yapı ile uygulamanı bir adım ileriye taşıyamazsın. Olmayacak yerlerde anlayamadığın hatalar vermeye başlayacak.

Formda, arşiv tablosuna aktarılacak verileri içeren metin kutusu ve açılan kutuların im özelliğine 1 yaz,

Butonun tıklandığında olayına aşağıdaki kodu ekle.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
    'dosyaarşiv isimli tabloya kayıt işlemi yapılıyor

Dim GDenetim As Control

Dim rs As New ADODB.Recordset

rs.Open "dosyaarşiv", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs.AddNew

For Each GDenetim In Me

    If GDenetim.Tag = 1 Then
       
       rs(GDenetim.ControlSource) = GDenetim.Value
       
    End If
    
Next GDenetim

rs.Update

Set rs = Nothing
    

MsgBox ("Dosya,ARŞİV tablosuna eklendi")
Me.Requery
Me.Refresh
DoCmd.GoToRecord , , acFirst


harikasın devrem teşekkür ederim




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Kayıt Silindiğinde Silinenler Tablosuna Aktarma haziran4 4 124 20/05/2019, 11:58
Son Yorum: haziran4
Çözüldü 3 Farklı Raporu Bir Pdf Te Toplamak aliyuzen 7 149 09/05/2019, 16:57
Son Yorum: aliyuzen
Çözüldü Sorgulanacak Alanları Formdan Seçme Erhan5106 1 121 23/04/2019, 16:06
Son Yorum: Erhan5106
Çözüldü Web Sitesinden Tabloya Veri Alma aliyuzen 3 297 10/04/2019, 15:43
Son Yorum: ozanakkaya
Çözüldü Access Formdaki Renkli Alanları Excele Renkli Olarak Aktarma IceMan7 6 379 10/04/2019, 15:27
Son Yorum: IceMan7

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.