Daha önceden sorunsuz çalışan bir kod, şimdi çalışmaz oldu ve sebebini bulamadım.
Şöyle ki; eklediğim programda "frm_disiplinkurulukarari" formuyla "metin11" açılan kutu nesnesiyle seçtiğim öğrencinin bilgilerinin
"tbl_ogrenciler" tablosundan "tbl_disiplinkarari" tablosuna kaydet butonuyla aktarabiliyordum. Lakin şuan gerçekleşmiyor. Nedeni nedir acaba?

Selamlar,

Aşağıdaki Sql kodunu w14,w15,.... tablo sütunları endirekt refere ederek daha kısa yazmanın yolu var mıdır ?

"w" & [W_No] gibi...

Şimdiden teşekkürler...


[sql] IIf ([W_No] < 23,

Switch( [W_No]=13, [w13],
[W_No]=14, [w14],
[W_No]=15, [w15],
[W_No]=16, [w16],
[W_No]=17, [w17],
[W_No]=18, [w18],
[W_No]=19, [w19],
[W_No]=20, [w20],
[W_No]=22, [w22]
  ),

IIf ([W_No] < 33,

Switch( [W_No]=23, [w23],
[W_N

şu kod ile

DoCmd.RunCommand acCmdRecordsGoToNew

yeni kayıt kısmına geçip bilgileri doldurduktan sonra şu kod ile de

DoCmd.RunCommand acCmdSaveRecord

ile kaydediyorum ama kutularda resimdeki görüntü oluşuyor. muhtemelen Dlookup ile son kayda gidebilirim
ama tabloyla ilişkili formda yeni kayıt işlemi bu kadar zor olmamalı
siz nasıl yapıyorsunuz
[Resim: https://resim.accesstr.net/do.php?img=9889]

---

şöyle kullanınca olmadı

DoCmd.RunCommand acCmdSaveRecord

        
[vb]Do

iyi geceler
sql veritabanına bağlı tablo olan tPersonel tablosu ile 
yerel tablo olan topla tablosunu güncelleştirme sorgusu için her ikisinde bulunan sicil alanı
ilişkilendirip astim alanını güncellemek istiyorum
resimdeki hata mesajını veriyor
tPersonel tablosu bağlanırken tüm alanlar not türüne dönüşüyor
topla tablosunun sicil alanı ise metin özellikte
hatanın sebebi alan uyuşmazlığı mı 
yoksa tabloların farklı özellikte olması olabilir

[img]https://resim.accesstr.net/do.php?img=10

Arkadaşlar eklediğim programda ekle butonuna bastığımda tbl_karar tablosundan karar_no alanındaki değeri saydırıp bir fazlasıyla karar numarası oluşturuyorum. Yalnız ekle butonuna basıp verileri girip kaydet butonuna basınca, tbl_karar tablosunun ilk kaydı alt satırına yapıyor. Hatam nerede. Bunu sadece hiç kayıt yokken yapıyor.

[sql]Dim yil, ay, gn As Integer
Dim d1 As Variant
d1 = Nz(DLookup("yenikararsay", "Srg_karar_say"), 0)
If d1 = 0 Then
Me.txtkararno = Forma

Merhaba,

Kullanıcı düzeyi güvenlikli çalıştırdığım bir database deki silmek istediğim herhangi bir tablo, sorgu, form veya rapor unsurunu silemiyorum. Sağ tıkladığımda Sil ve Kes komutları aktif değil. Nasıl çözebilirim.

Not: Başka uygun bir konu bulamadığım için buradan yazdım.

Hayırlı ramazanlar şöyle bir kod ile tablonun eski ve yeni değerleri arasında karşılaştırma yapıp listelemek istiyoruz
[code]Private Sub Komut3_Click()
    Dim strSQL, strSQL_perad, strSQL_persoy As String
    strSQL_perad = "SELECT" & _
        " itLastPersonel.SICNO" & "," & _
        " 'PERAD' AS AlanAdi" & "," & _
        " itLastPersonel.PERAD" & "," & _
        " itNewPersonel.PERAD" & _
        " FROM itLastPersonel" & _
        " INNER JOIN itNewPersonel ON itLastPersonel.SICNO

Arkadaşlar kendi hazırladığım basit bir ota galeri veri tabanı var..
Basit olarak veri tabanında yapılacak işlem
Firmaya müşteriden araç alımı ve yine müşteriye araç satımı yapılması bu işlemleri yapan personel şeklinde olması .

Ben tabloları yaptım ama ilişki şemalarında alım ve satım da tam bağlantıları yapamadım bu konuda yardımcı olabilirmisiniz

buradaki 
Dim dizi(tableSize, 3) As String 
tableSize const olarak kabul etmiyor
nasıl yazmam lazım

iyi günler
bir ara tablo alanlarını döngü içinde kullanmak ile ilgili bir konu açmıştım
orada şu döngü ile
[vb]Public Sub sqls(lastTableName As String, newTableName As String, criteriaFieldName As String)
    Dim i As Integer
    Dim sql, strSQL As String
    Dim lastColumnName, newColumnName As String
    Dim name1, name2 As String
   
    strSQL = ""

    For i = 0 To CurrentDb.TableDefs(lastTableName).Fields.Count - 1
   
        lastColumnName = CurrentDb.TableDefs(lastTableNa