12/03/2019, 14:27
ü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
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