Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Access Veri Tabanı Kayıt Numarası

osmanyd
osmanyd
Access Cevaplanmış Soruları
11
332

Access Veri Tabanı Kayıt Numarası

Çözüldü #1
osmanyd
Üye
osmanyd
Bul
Üye
Adı Soyadı:
Yaşı: 32
Konum: -
Ofis Versiyonu: -
Son Oturumu: 22/04/2022,13:46
Yorumları: 6
Konuları: 1
Kayıt Tarihi: 07/04/2022
Teşekkür Puanı: 0
Merhaba,

Access veri tabanına Excel üzerinden kayıt yaparken ilk sütunda 1 , 2 , 3 olarak otomatik kayıt sırası geliyor.

Yapmak istediğim kayıt numarasının başında "kayıt" kelimesinin olması. kayıt1 , kayıt2 , kayıt3 şeklinde.

Yardımcı olan arkadaşlara şimdiden teşekkür ederim iyi çalışmalar.
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,20:21
Yorumları: 8.270
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.015
örnek çalışmanızı eklemeniz çözümü kolaylaştırır
Cevapla
#3
osmanyd
Üye
osmanyd
Bul
Üye
Adı Soyadı:
Yaşı: 32
Konum: -
Ofis Versiyonu: -
Son Oturumu: 22/04/2022,13:46
Yorumları: 6
Konuları: 1
Kayıt Tarihi: 07/04/2022
Teşekkür Puanı: 0
Merhaba kodlarım aşağıdaki gibidir;

Kod:
Private Sub CommandButton1_Click()
Set rs = CreateObject("adodb.recordset")
With rs
    .Open "select * from veriler", con, 1, 3
    .addnew
On Local Error Resume Next   
    .fields("tarih").Value = Format(CDate(TextBox1.Value), "dd.mm.yyyy")
    .fields("srad").Value = CStr(TextBox2.Value)
    .fields("adsoyad").Value = CStr(TextBox3.Value)
    .fields("odetarihi").Value = Format(CDate(TextBox6.Value), "dd.mm.yyyy")
    .fields("odedigi").Value = CDbl(Round(TextBox7.Value, 2))
    .fields("aciklama").Value = CStr(TextBox8.Value)
    .Update
End With
Call UserForm_Initialize
Call UserForm_Activate
Set rs = Nothing
End Sub
.fields("id").Value = kayıt1 kayıt2 kayıt3 olarak sıralı bir şekilde artarak giriş yapmak istiyorum
Cevapla
#4
mozuer
Aktif Üye
mozuer
Bul
Aktif Üye
Adı Soyadı: mu.... öz....
Yaşı: 48
Konum: Kocaeli
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 22/09/2023,16:14
Yorumları: 164
Konuları: 42
Kayıt Tarihi: 26/12/2009
Teşekkür Puanı: 33
Mesleğiniz: Elektrik Mühendisi
Yazdıklarınızdan yorumladığım kadarıyla;
id alanı otomatik sayıysa metin ile birlikte kayıt yapılamaz (kayıt..) gibi
Bunun için yeni bir alan oluşturulmalı
Ve her kayıt eklendiğinde sayım yaptırarak istediğinize ulaşılabilir
.fields(....).Value="kayıt" & DCount("*","veriler")+1 gibi
Cevapla
#5
osmanyd
Üye
osmanyd
Bul
Üye
Adı Soyadı:
Yaşı: 32
Konum: -
Ofis Versiyonu: -
Son Oturumu: 22/04/2022,13:46
Yorumları: 6
Konuları: 1
Kayıt Tarihi: 07/04/2022
Teşekkür Puanı: 0
Excel 2016 kullanıyorum


Kod:
.fields(id).Value="kayıt" & DCount("*","veriler")+1  >>>  Sub or function not defined hatası alıyorum  DCount sarı işaretliyor.


Kod:
.Fields(id).Value = "kayıt" & Application.WorksheetFunction.DCount("*", "veriler") + 1 >>> type mismatch hatası alıyorum "*" sarı işaretliyor.
Son Düzenleme: 07/04/2022, 16:32, Düzenleyen: osmanyd.
Cevapla
#6
mozuer
Aktif Üye
mozuer
Bul
Aktif Üye
Adı Soyadı: mu.... öz....
Yaşı: 48
Konum: Kocaeli
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 22/09/2023,16:14
Yorumları: 164
Konuları: 42
Kayıt Tarihi: 26/12/2009
Teşekkür Puanı: 33
Mesleğiniz: Elektrik Mühendisi
Örneği görmediğimiz için tahmin yürütüyorum...

Sayfa adı Sayfa1 diyelim
Kayıtları saydıracağımız sütun A2:A.. diyelim


Dim iRw As Integer
Dim iSat As Integer
Dim RwNm As String

With Worksheets("Sayfa1")
iRw=.Range("A" & .Rows.Count).End(xlUp).Row
iSat=Application.WorksheetFunction.Count(.Range("A2:A" & iRw))+1
End With
RwNm="kayıt" & iSat

With rs
......

.Fields(id).Value = RwNm

.....
Son Düzenleme: 07/04/2022, 21:08, Düzenleyen: mozuer.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task