[Yardım]  Access e Veri Kaydetme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Access e Veri Kaydetme

İleti#1)  cadriano » 14 Mar 2019 18:55

Arkadaşlar herkeze iyi akşamlar...
Üstadlarımdan ricam eklemiş olduğum dosyada 1 adet userfom bir adet access veri tabanaı bulunmakta userfomdaki bulunan combobox ladan access e veri kaydetmek istiyorum ilgilenen arkadaşlara şimdiden teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
cadriano
Siteye Alışmış
 
Adı Soyadı:enver caliskan
Kayıt: 01 Oca 2011 04:56
İleti: 137
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İtalya

Cevap: Access e Veri Kaydetme

İleti#2)  batur_00 » 14 Mar 2019 21:36

Acccesse kayit.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
batur_00
Siteye Alışmış
 
Kayıt: 05 Ekm 2014 22:39
Meslek: tekstil işçisi
Yaş: 42
İleti: 217
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa-Orhangazi

Cevap: Access e Veri Kaydetme

İleti#3)  cadriano » 14 Mar 2019 23:31

Batur bey çok teşekkür ederim yardımalarınız için tam istediğim gibi olmuş ALLAH sizden razı olsun. İyi çalşmalar.
Kullanıcı avatarı
cadriano
Siteye Alışmış
 
Adı Soyadı:enver caliskan
Kayıt: 01 Oca 2011 04:56
İleti: 137
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İtalya

Cevap: Access e Veri Kaydetme

İleti#4)  batur_00 » 15 Mar 2019 08:05

Rica ederim Allah cümlemizden razı olsun.
Kullanıcı avatarı
batur_00
Siteye Alışmış
 
Kayıt: 05 Ekm 2014 22:39
Meslek: tekstil işçisi
Yaş: 42
İleti: 217
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa-Orhangazi

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Access e Veri Kaydetme

İleti#5)  cadriano » 16 Mar 2019 13:04

Batur bey tekrardan Merhaba sizi tekrar rahatsız ediyorum kusura bakmayın şimdiden özür dilerim...
birkaç gün önce access veri tabanına veri kaydetme konusunda bana yardımcı olmuştunuz ellerinize sağlık süper olmuş.
fakat son bombobox11 e tarih girmediğim halde en son sutüna otomatik tarih atıyor bunu iptal edebilirmiyiz lütfen. Ben tarih girersem yazmasını istiyorum.
Sizden yeni bir ricam daha olacak eğer sizi zorlamıcaksam userform uzerinde bir takım düzenlemeler yaptım.
form üzerinde buttonlar mevcut. LisView üzerinden veri seçip comboboxlara çekerek
veri güncelleme düzenleme yapmak istiyorum ve ListView üzerinden seçili herhangi bir satırı silmek istiyorum lütfen.
Çok Çok özür dilerim sizden çok şey istediysem
Başka Üstadlarımda yadımlarını esirgemesin lütfen...
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
cadriano
Siteye Alışmış
 
Adı Soyadı:enver caliskan
Kayıt: 01 Oca 2011 04:56
İleti: 137
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İtalya

Cevap: Access e Veri Kaydetme

İleti#6)  batur_00 » 16 Mar 2019 17:24

Tarih Kaydı tamam.
Diğer konularda pc ve offis 64 bit olduğu için listviev bende hata veriyor diğer arkadaşlar yardımcı olucaklardır sitede de örnekler mevcut yararlanabilirsiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
batur_00
Siteye Alışmış
 
Kayıt: 05 Ekm 2014 22:39
Meslek: tekstil işçisi
Yaş: 42
İleti: 217
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa-Orhangazi

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Access e Veri Kaydetme

İleti#7)  cadriano » 16 Mar 2019 19:20

Batur bey çok teşekkür ederim size iyi çalışmalar..
inşallah başka arkadaşlar yardımcı olurlar..
Kullanıcı avatarı
cadriano
Siteye Alışmış
 
Adı Soyadı:enver caliskan
Kayıt: 01 Oca 2011 04:56
İleti: 137
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İtalya

Cevap: Access e Veri Kaydetme

İleti#8)  batur_00 » 16 Mar 2019 20:43

Access yeni kayıt, güncelleme, silme, listboxa ve comboboxa veri alma basit bir çalışma ekledim biraz değişiklik yaptım kusura bakmayın siz yine kendinize göre düzenlersiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
batur_00
Siteye Alışmış
 
Kayıt: 05 Ekm 2014 22:39
Meslek: tekstil işçisi
Yaş: 42
İleti: 217
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa-Orhangazi

Cevap: Access e Veri Kaydetme

İleti#9)  batur_00 » 17 Mar 2019 12:50

Yukaridaki dosyaya ilaveten listsbox süzme textboxlarda tarih denetimi ve hata yakalama eklendi.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
batur_00
Siteye Alışmış
 
Kayıt: 05 Ekm 2014 22:39
Meslek: tekstil işçisi
Yaş: 42
İleti: 217
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa-Orhangazi

Cevap: Access e Veri Kaydetme

İleti#10)  ali.ozturk55 » 18 Mar 2019 11:12

Merhabalar,

Benim bi excel çalışma kitabım var içinde bir çok sayfa var. bu sayfalara günlük olarak veri ekliyorum. bu verileri yeni bir sayfada alt alta sıra ile yazmasını istiyorum. her yeni eklediğim veriyi alt alta otomatik olarak eklesin.

yardımlarınız için şimdiden teşekkür ederim.
Kullanıcı avatarı
ali.ozturk55
 
Kayıt: 18 Mar 2019 10:57
Meslek: FİNANS SORUMLUSU
Yaş: 30
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: SAMSUN

Cevap: Access e Veri Kaydetme

İleti#11)  cadriano » 18 Mar 2019 21:15

Batur bey merhabalar.
Öncelikle geç cevap verdiğim için sizden çok özür diliyorum bir türlü fırsat buluta yazamadın kusura bakmayın.
İlginizden dolayı size çok çok teşekkür ederim elleriniz dert görmesin mükemmel olmuş. Sizide baya yordum bundan dolayı sizden ayrıca özür dilerim. Batur bey size çok yüklendiğimi biliyorum bu sitede öyle yardım sever üstadlar varki gerçekten hepsinden çok faydalandım Ali, öz bey olsun Feraz, bey olsun aklıma gelmeyen isimlerde var şimdide siz imdadıma koştunuz bu siteye emeği geçen tüm arkadaşlardan ALLAH razı olsun. Batur bey form üzerinde düzeltmeler yaptım fakat hala bir kaç eksiğim var örneğin uyarı tarihi eklediğim zaman o tarih geldiği gün formu açtığım anda ilgili satırdaki tüm verileri baz alarak mesaj verdirmek istiyorum süzme özelliğini sağlasınız siz eklemişsiniz birde listboxda süzülen verileri yazdırma özelliği eklemek istiyorum... Batur bey sizi yormicaksan sizden ricam mümkünse bunlarıda ekliyebilirseniz çok sevinirim. Tekrar tekrar teşekkür ederim iyi çalışmalar dilerim...
Kullanıcı avatarı
cadriano
Siteye Alışmış
 
Adı Soyadı:enver caliskan
Kayıt: 01 Oca 2011 04:56
İleti: 137
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İtalya

Cevap: Access e Veri Kaydetme

İleti#12)  cadriano » 18 Mar 2019 21:20

Batur bey dosya ektedir
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
cadriano
Siteye Alışmış
 
Adı Soyadı:enver caliskan
Kayıt: 01 Oca 2011 04:56
İleti: 137
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İtalya

Cevap: Access e Veri Kaydetme

İleti#13)  batur_00 » 19 Mar 2019 08:38

Enver bey dosyayı her gün açıyor musunuz açıyorsanız sıkıntı yok o günkü hatırlatmalar dosya açıldığı an gelir ama her gün açmıyorsanız farklı yol izlemek gerek.
Kullanıcı avatarı
batur_00
Siteye Alışmış
 
Kayıt: 05 Ekm 2014 22:39
Meslek: tekstil işçisi
Yaş: 42
İleti: 217
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa-Orhangazi

Cevap: Access e Veri Kaydetme

İleti#14)  cadriano » 19 Mar 2019 12:14

Batur bey tekrardan merhabalar.

Batur bey Dosyayı hemen hemen hergün açıyorum ama sizin farklı bir oneriniz varsa oda olabilir..
Kullanıcı avatarı
cadriano
Siteye Alışmış
 
Adı Soyadı:enver caliskan
Kayıt: 01 Oca 2011 04:56
İleti: 137
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İtalya

Cevap: Access e Veri Kaydetme

İleti#15)  batur_00 » 19 Mar 2019 14:03

Sizin dosyanız üzerinde çalışamadım bende hata veriyor takvim ve lsitviev.
Çalışma Sayfası kilitli olduğu için yeni yazdırma sayfası açamadım kodlar hata vermiyor ama ne yazdığınıda göremiyorum siz denersiniz.
Açılışta uyarı tarihi gelenlerin ad soyadlarını mesajla veriyor.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
batur_00
Siteye Alışmış
 
Kayıt: 05 Ekm 2014 22:39
Meslek: tekstil işçisi
Yaş: 42
İleti: 217
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa-Orhangazi

Cevap: Access e Veri Kaydetme

İleti#16)  cadriano » 19 Mar 2019 17:26

Batur bey size ne kadar teşekkür etsem azdır süper olmuş..

Uyarı kodlarını bit buton'a atadım daha iyi oldu Yazdırma işlemini dediğiniz gibi sayfa kilitli olduğu için hata vermiş
şimdi gayet iyi çalışıyor o sorunuda giderdim.


Çok çok teşekkür ederim yahırlı günler iyi çalışmalar....
Kullanıcı avatarı
cadriano
Siteye Alışmış
 
Adı Soyadı:enver caliskan
Kayıt: 01 Oca 2011 04:56
İleti: 137
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İtalya

Cevap: Access e Veri Kaydetme

İleti#17)  batur_00 » 19 Mar 2019 17:43

İşinize yaramasına sevindim hayırlı günler.
Kullanıcı avatarı
batur_00
Siteye Alışmış
 
Kayıt: 05 Ekm 2014 22:39
Meslek: tekstil işçisi
Yaş: 42
İleti: 217
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa-Orhangazi

Cevap: Access e Veri Kaydetme

İleti#18)  cadriano » 23 Mar 2019 18:26

Batur bey merhabalar tekrardan sizi rahatsız ediyorum kusura bakmayın şimdiden özür dilerim...

Private Sub CommandButton12_Click()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim Kntrl As Date
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
Kntrl = VBA.Format(Date, "dd.mm.yyyy")
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Referans-AccessData.mdb"
rst.Open "SELECT Data.[Adi_Soyadi] FROM Data WHERE Data.[Uyari_Tarihi]='" & Kntrl & "'", cnn, 1, 1
If Not rst.BOF And Not rst.EOF And rst.RecordCount > 0 Then
Do
dateKntrl = dateKntrl & vbNewLine & rst.Fields("Adi_Soyadi").Value
rst.MoveNext
Loop Until rst.EOF
MsgBox "Dikkat! Bu Gün Önemli Uyarı Mesajlarınız Var" & dateKntrl & vbNewLine, vbQuestion
End If
If Not rst Is Nothing Then
If rst.State = adStateOpen Then rst.Close
End If
Set rst = Nothing
If Not cnn Is Nothing Then
If cnn.State = adStateOpen Then cnn.Close
End If
End Sub


Batur bey sizin yazmış olduğunuz bu kodlarda sadece Adsoyad mesajı verdirebiliyoruz. Buna ek olarak referans veren ve telefon numarasını ekliyebilirmiyiz. Teşekkür ederim
Kullanıcı avatarı
cadriano
Siteye Alışmış
 
Adı Soyadı:enver caliskan
Kayıt: 01 Oca 2011 04:56
İleti: 137
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İtalya

Cevap: Access e Veri Kaydetme

İleti#19)  batur_00 » 23 Mar 2019 18:50

Kod: Tümünü seç
Sub Auto_Open()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim Kntrl As Date
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
Kntrl = VBA.Format(Date, "dd.mm.yyyy")
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Referans-AccessData.mdb"

rst.Open "SELECT * FROM Data WHERE Data.[Uyari_Tarihi]='" & Kntrl & "'", cnn, 1, 1
        If Not rst.BOF And Not rst.EOF And rst.RecordCount > 0 Then
            Do
                dateKntrl = dateKntrl & vbNewLine & rst.Fields("Referans_Veren").Value & vbTab & rst.Fields("Adi_Soyadi").Value & vbTab & rst.Fields("Tel_1").Value
                rst.MoveNext
            Loop Until rst.EOF
            MsgBox "Bug?n Refarans? Olanlar" & dateKntrl & vbNewLine, vbQuestion
        End If
       
If Not rst Is Nothing Then
    If rst.State = adStateOpen Then rst.Close
End If
    Set rst = Nothing
If Not cnn Is Nothing Then
    If cnn.State = adStateOpen Then cnn.Close
End If
    Set cnn = Nothing
End Sub
Kullanıcı avatarı
batur_00
Siteye Alışmış
 
Kayıt: 05 Ekm 2014 22:39
Meslek: tekstil işçisi
Yaş: 42
İleti: 217
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa-Orhangazi

Cevap: Access e Veri Kaydetme

İleti#20)  cadriano » 24 Mar 2019 00:29

Batur bey çok teşekkür ederim süpersiniz.. İyi çalışmalar
Kullanıcı avatarı
cadriano
Siteye Alışmış
 
Adı Soyadı:enver caliskan
Kayıt: 01 Oca 2011 04:56
İleti: 137
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İtalya

Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot], Google Adsense [Bot], mturkben, Yandex[Bot] ve 2 misafir

Bumerang - Yazarkafe