Private Sub Değiştir0_Click()
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open "x:\StokGiris.mdb", , "1104", -1
Data.Password
'Password
End With
cat.ActiveConnection = conn
With rst
.ActiveConnection = conn
.Open "URETIM", LockType:=adLockOptimistic
.AddNew
.Fields("Tarih") = Date
.Update
End With
rst.Close
Set tbl = Nothing
Set cat = Nothing
access yolu: .Open "x:\StokGiris.mdb", , "1104", -1
Tablonun adı .Open "URETIM", LockType:=adLockOptimistic
kaydedilecek alan adı .Fields("Tarih") = Date burda günün tarihini tabloyaya yazmış
Geçen hafta şaka ile karışık cevaplar vermiştim. Ancak bu noktada yardımcı olabilmemiz için, uygulamanızı görmemiz gerekiyor. Şifreler ve kullanıcı adları nerede kayıtlı? Accessin içindeki çalışma gurubunu mu kullandınız yoksa özel olarak kendiniz mi yarattınız?
Bu yüzden sağlıklı yardım alabilmeniz için örnek eklemeniz gerekiyor.
Sayın Modalı
Kullanıcı tanımlı girişler yok. Çalışma grubu veya yetkilendirme değil. Özel kullanımda açılıp konulan şifreden bahsediyorum. Açılışa konulmuş bir şifre olursa, tablo bağlama yöntemi ile verilere ulaşılmasını engelleyebilirim diye düşündüm. bilmiyorum yanlış mı düşünüyorum.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.