Access Veri Tabanı Kayıt Numarası - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Access Veri Tabanı Kayıt Numarası (/konu-access-veri-tabani-kayit-numarasi.html) Sayfalar:
1
2
|
Access Veri Tabanı Kayıt Numarası - osmanyd - 07/04/2022 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. RE: Access Veri Tabanı Kayıt Numarası - berduş - 07/04/2022 örnek çalışmanızı eklemeniz çözümü kolaylaştırır RE: Access Veri Tabanı Kayıt Numarası - osmanyd - 07/04/2022 Merhaba kodlarım aşağıdaki gibidir; Kod:
Private Sub CommandButton1_Click() RE: Access Veri Tabanı Kayıt Numarası - mozuer - 07/04/2022 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 RE: Access Veri Tabanı Kayıt Numarası - osmanyd - 07/04/2022 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. RE: Access Veri Tabanı Kayıt Numarası - mozuer - 07/04/2022 Ö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 ..... |