- Katılım
- 22 Aralık 2005
- Mesajlar
- 423
- Excel Vers. ve Dili
- Microsoft 365
Arkadaşlar merhaba,
Forumda aradım ancak bulamadım. Kapalı bir Access accdb dosyam var ve bir userform ile bu ve bunun gibi diğer birçok dosyaya veri kayıt, silme ve değiştirme işlemleri yaptırıyorum. Access konu ve sorgularına çok yabancı olmama rağmen Allah tan birkaç örnek bulup uyarladıktan sonra Access kayıt ve silme işlemini tamamladım.
Sorum şudur ki, aşağıdaki gibi bağlantı kurduğum tabloda bulunan SICIL sütunundaki TEMIZLIK, YEMEKHANE, GUVENLIK gibi kelimelerle başlayan ifadeleri saydırmak istiyorum. Bu kelimelerin anlamı tabloda yanlarında bulunan rakamlarla kişilerin sicil numaralarını oluşturuyor(TEMIZLIK-01; YEMEKHANE-35; GUVENLIK-05 vs. gibi) yani kadroda bulunan personeller gibi sabit bir sicil numaraları olmadığından unique olabilmeleri açısından böyle bir yöntem düşündüm. Ama bir türlü rakamı alamıyorum, bilgisi fikri olan varsa ve paylaşırlarsa çok memnun olurum;
Const Tablo As String = "SELECT Count ('PERSONEL.SICIL' AS 'TEMIZLIK' FROM 'PERSONEL'"
Const MAC As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Mega\Projects\ProjeMac\Files\Mac.accdb"
Dim baglan As ADODB.Connection
Dim ks As ADODB.Recordset
Dim TasNum As Long
Set baglan = New ADODB.Connection
baglan.Open MAC
Set ks = New ADODB.Recordset
ks.Open MAC, baglan, adOpenForwardOnly
If Not ks.EOF Then
TasNum = ks.Fields(0).Value
End If
ks.Close
baglan.Close
MsgBox TasNum & " kisi var"
End Sub
Forumda aradım ancak bulamadım. Kapalı bir Access accdb dosyam var ve bir userform ile bu ve bunun gibi diğer birçok dosyaya veri kayıt, silme ve değiştirme işlemleri yaptırıyorum. Access konu ve sorgularına çok yabancı olmama rağmen Allah tan birkaç örnek bulup uyarladıktan sonra Access kayıt ve silme işlemini tamamladım.
Sorum şudur ki, aşağıdaki gibi bağlantı kurduğum tabloda bulunan SICIL sütunundaki TEMIZLIK, YEMEKHANE, GUVENLIK gibi kelimelerle başlayan ifadeleri saydırmak istiyorum. Bu kelimelerin anlamı tabloda yanlarında bulunan rakamlarla kişilerin sicil numaralarını oluşturuyor(TEMIZLIK-01; YEMEKHANE-35; GUVENLIK-05 vs. gibi) yani kadroda bulunan personeller gibi sabit bir sicil numaraları olmadığından unique olabilmeleri açısından böyle bir yöntem düşündüm. Ama bir türlü rakamı alamıyorum, bilgisi fikri olan varsa ve paylaşırlarsa çok memnun olurum;
Const Tablo As String = "SELECT Count ('PERSONEL.SICIL' AS 'TEMIZLIK' FROM 'PERSONEL'"
Const MAC As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Mega\Projects\ProjeMac\Files\Mac.accdb"
Dim baglan As ADODB.Connection
Dim ks As ADODB.Recordset
Dim TasNum As Long
Set baglan = New ADODB.Connection
baglan.Open MAC
Set ks = New ADODB.Recordset
ks.Open MAC, baglan, adOpenForwardOnly
If Not ks.EOF Then
TasNum = ks.Fields(0).Value
End If
ks.Close
baglan.Close
MsgBox TasNum & " kisi var"
End Sub