Access Veri Tabanı Kayıt Numarası

1 2
07/04/2022, 11:22

osmanyd

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.
07/04/2022, 12:45

berduş

örnek çalışmanızı eklemeniz çözümü kolaylaştırır
07/04/2022, 13:49

osmanyd

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
07/04/2022, 14:33

mozuer

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
07/04/2022, 16:31

osmanyd

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.
07/04/2022, 21:06

mozuer

Ö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

.....
1 2