Skip to main content

AccessTr.neT


Komut Satırında Tablo Ve Alanı Bulamıyor

Komut Satırında Tablo Ve Alanı Bulamıyor

Çözüldü #1
üstatlara ve tüm üyelere selamlar.
insert komutu ile eklenmiş satırlara ve alanlara ubdate komutu ile veri atmaya çalışıyordum.
biyerden sonra komutlar hata vermeye başladı.
Yardım ederseniz memnun olurum teşekkürler.

HATALI SATIR AŞAĞIDA KIRMIZI YAZININ ALTINDAKİ TÜM SATIRLAR

Private Sub Komut33_Click()
DoCmd.SetWarnings False
'AKTARMAKOMUTSATIRI
 DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [E_K_drc] = E_K_drc1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
 DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [E_K_gost] = E_K_gost1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
 DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [E_K_ekgostP] = E_K_ekgostP1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
 DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [E_K_ekgostO] = E_K_ekgostO1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
 DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [E_E_drc] = E_K_drc1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
 DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [E_E_gost] = E_K_gost1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
 DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [E_E_ekgostP] = E_K_ekgostP1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
 DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [E_E_ekgostO] = E_K_ekgostO1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
 DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [E_kidem] = E_kidem1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
    DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [Y_K_drc] = Y_K_drc1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
    DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [Y_K_gost] = Y_K_gost1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
    DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [Y_K_ekgostP] = Y_K_ekgostP1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
    DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [Y_K_ekgostO] = Y_K_ekgostO1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
    DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [Y_E_drc] = Y_K_drc1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
    DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [Y_E_gost] = Y_K_gost1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
    DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [Y_E_ekgostP] = Y_K_ekgostP1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
    DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [Y_E_ekgostO] = Y_K_ekgostO1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
    DoCmd.RunSQL "UPDATE [Terfi_hsp] SET [Y_kidem] = Y_kidem1 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"

TAM BURADA YARDIM LAZIM
*******'HESAPLAMALIAKRATMAKOMUTSATIRI**(katsay isimli tablodan;aykat,yankat ve tabkat isimli alanlarıtanımadığındankomutuiptalettim

'DoCmd.RunSQL "UPDATE [Terfi_hsp] SET[EKgost_tut] = [E_K_gost] * [katsay]![aykat]  where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
'DoCmd.RunSQL "UPDATE [Terfi_hsp] SET[EKekgost_tut] = [E_K_ekgostO] * [katsay]![aykat]  where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
'DoCmd.RunSQL "UPDATE [Terfi_hsp] SET[Ekidemtut] = [E_kidem] * [katsay]![aykat]  * 20 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
'DoCmd.RunSQL "UPDATE [Terfi_hsp] SET[EEgost_tut] = [E_E_gost] * [katsay]![aykat]  where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
'DoCmd.RunSQL "UPDATE [Terfi_hsp] SET[EEekgost_tut] = [E_E_ekgostO] * [katsay]![aykat]  where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
'DoCmd.RunSQL "UPDATE [Terfi_hsp] SET[YKgost_tut] = [Y_K_gost] * [katsay]![aykat]  where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
'DoCmd.RunSQL "UPDATE [Terfi_hsp] SET[YKekgost_tut] = [Y_K_ekgostO] *[katsay]![aykat]  where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
'DoCmd.RunSQL "UPDATE [Terfi_hsp] SET[Ykidemtut] = [Y_kidem] * [katsay]![aykat]  * 20 where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
'DoCmd.RunSQL "UPDATE [Terfi_hsp] SET[YEgost_tut] = [Y_E_gost] * [katsay]![aykat] where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
'DoCmd.RunSQL "UPDATE [Terfi_hsp] SET[YEekgost_tut] = [Y_E_ekgostO] * [katsay]![aykat]  where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
'DoCmd.RunSQL "UPDATE [Terfi_hsp] SET[gostfark] = [YKgost_tut] - [EKgost_tut] where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
'DoCmd.RunSQL "UPDATE [Terfi_hsp] SET[ekgostfark] = [YKekgost_tut] - [EKekgost_tut] where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
'DoCmd.RunSQL "UPDATE [Terfi_hsp] SET[kidemfark] = [Ykidemtut] - [Ekidemtut] where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
DoCmd.SetWarnings True
Me.Terfi_hsp_Alt_Form.Requery
End Sub
Cevapla
#2
ilk kısım için tek tek  yapmak yerine 
Kod:
DoCmd.RunSQL " UPDATE [Terfi_hsp] SET [E_K_drc] = E_K_drc1 ,[E_K_gost] = E_K_gost1 , [E_K_ekgostP] = E_K_ekgostP1 , [E_K_ekgostO] = E_K_ekgostO1 , [E_E_drc] = E_K_drc1 , [E_E_gost] = E_K_gost1 , [E_E_ekgostP] = E_K_ekgostP1 , [E_E_ekgostO] = E_K_ekgostO1 , [E_kidem] = E_kidem1 , [Y_K_drc] = Y_K_drc1 , [Y_K_gost] = Y_K_gost1 , [Y_K_ekgostP] = Y_K_ekgostP1 , [Y_K_ekgostO] = Y_K_ekgostO1 , [Y_E_drc] = Y_K_drc1 , [Y_E_gost] = Y_K_gost1 , [Y_E_ekgostP] = Y_K_ekgostP1 , [Y_E_ekgostO] = Y_K_ekgostO1 , [Y_kidem] = Y_kidem1 where [TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id "
 hatalı kısım için ise değerle farklı tablodan alındığı için o tabloyu tanımlamanız gerek 2 tablo arasında  ortak anahtar bir alan varsa

Kod:
UPDATE güncellenecektabloadı
INNER JOIN '
değerleralınacak tablo ON [güncellenecektabloadı].[ortakalan1] = [değerleralınacak ].[ortakalan1]
SET yeni değerler
WHERE kiriterler

şeklinde bir sorgu oluşturulabilir.
yada 
Kod:
UPDATE [Terfi_hsp]
SET [Terfi_hsp].[alan1]= (SELECT [katsay].[alan1] FROM [katsay].WHERE kriterler)
WHERE kriterler;

gibi...
Cevapla
#3
üstadım:
UPDATE güncellenecektabloadı INNER JOIN 'değerleralınacak tablo ON [güncellenecektabloadı].[ortakalan1] = [değerleralınacak ].[ortakalan1] SET yeni değerler WHERE  kiriterler

DoCmd.RunSQL "Update [Terfi_hsp] INNER Join [katsay] ON [Terfi_hsp].[trftrh] = [katsay ].[gunayyil]SET [Terfi_hsp].[A]=[katsay].[aykat] where[TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![AnaFormEkranı]![sub]![id]=Terfi_hsp.kisi_id"
söz dizimi hatası verdi
Cevapla
#4
O sadece kaba taslak bir kalıp tablolarınızı yada formu görmeden çözüm üretmem zor.
Açıkçası  seviyem çözmeye yetmez çalışmanızı görmeden
Cevapla
#5
proje yi ekledim
.rar BoşProje.rar (Dosya Boyutu: 197,63 KB | İndirme Sayısı: 2)
Cevapla
#6
sorun galiba 
(12/03/2019, 18:28)fkilic76 yazdı: [katsay ].[gunayyil] SET 

buradaki "[katsay ]" alanında fazladan bir boşluktan kaynaklanmış, "[katsay]" yaparsanız sorun düzelebilir.
göndermiş olduğunuz dosyada da boşluğu silince hata vermedi.

aşağıdaki kodu dener misiniz?
Kod:
 DoCmd.RunSQL " UPDATE Terfi_hsp INNER JOIN katsay ON Terfi_hsp.TrfTrh = katsay.gunayyil SET " & _
              " [EKgost_tut] = [Terfi_hsp]![E_K_gost] * [katsay]![aykat]    ," & _
              " [EKekgost_tut] = [Terfi_hsp]![E_K_ekgostO] * [katsay]![aykat]  ," & _
              " [Ekidemtut] = [Terfi_hsp]![E_kidem] * [katsay]![aykat] * 20  ," & _
              " [EEgost_tut] = [Terfi_hsp]![E_E_gost] * [katsay]![aykat]    ," & _
              " [EEekgost_tut] = [Terfi_hsp]![E_E_ekgostO] * [katsay]![aykat]  ," & _
              " [YKgost_tut] = [Terfi_hsp]![Y_K_gost] * [katsay]![aykat]    ," & _
              " [YKekgost_tut] = [Terfi_hsp]![Y_K_ekgostO] *[katsay]![aykat]  ," & _
              " [Ykidemtut] = [Terfi_hsp]![Y_kidem] * [katsay]![aykat] * 20  ," & _
              " [YEgost_tut] = [Terfi_hsp]![Y_E_gost] * [katsay]![aykat]    ," & _
              " [YEekgost_tut] = [Terfi_hsp]![Y_E_ekgostO] * [katsay]![aykat]  ," & _
              " [gostfark] = [Terfi_hsp]![YKgost_tut] - [EKgost_tut]    ," & _
              " [ekgostfark] = [Terfi_hsp]![YKekgost_tut] - [EKekgost_tut]   ," & _
              " [KidemFark] = [Terfi_hsp]![Ykidemtut] - [Ekidemtut]" & _
              " where [TrfTrh]>= metin1 and [TrfTrh]<= metin2 and [Forms]![Terfiyap]![id]=Terfi_hsp.kisi_id "

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task