Arkadaşlar kodu aşağıdaki gibi düzenlemeye çalıştım fakat bir yerde hata veriyor ince noktası neredir bakabilir miyiz.
hata şu şekilde = işlem, bu tür nesnede desteklenmiyor. diye uyarı veriyor. renkli alan için veriyor.
benim asıl yapmak istediğim. tablodaki id ye göre kayıtta güncelleme.
Private Sub btnDKaydet_Click()
If Me.TxİzinTuru = "Yıllık İzin" Then
Select Case Val(Kalan - TxİzinNet)
Case Is >= "0"
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Set DB = CurrentDb
Set rs = DB.OpenRecordset("Tbl_İzinler")
With rs
.Edit
.FindFirst "[Tbl_İzinler]=" & idxizin
.Fields("İzinTarih") = Me.TxİzinTarih
.Fields("İzinPrsId") = Me.TxPersonelAra
.Fields("İzinTuru") = Me.TxİzinTuru
.Fields("İzinBaslama") = Me.TxİzinBaslama
.Fields("İzinBitis") = Me.TxİzinBitis
.Fields("İsBasi") = Me.TxİsBasi
.Fields("İzinYili") = Me.TxİzinYili
.Fields("İzinGun") = Me.TxİzinGun
.Fields("İzinYili1") = Me.TxİzinYili1
.Fields("İzinGun1") = Me.TxİzinGun1
.Fields("İzinNet") = Me.TxİzinNet
.Fields("İzinYol") = Me.TxİzinYol
.Fields("İzinHaftaSonu") = Me.TxHaftaSonu
.Fields("İzinNot") = Me.TxİzinNot
.Fields("İzinAdres") = Me.TxİzinAdres
.Update
End With
MsgBox "Bilgiler Başarıyla Kaydedildi.", vbInformation, "İşlem Tamam"
DoCmd.RunCommand acCmdSaveRecord
TumDenetimlerPasif
Forms![frmizinraporu].Refresh
Forms!Frm_Ana![İzinli Olan Personel]![Liste_İzinli_olan].Requery
Case Is < "0"
If MsgBox("Personelin Yıllık İzin Hakkı " & Me.Kalan & " Gündür." & Chr(13) & "Girmiş olduğunuz izin günü " & Me.TxİzinNet & " gün dür." & Chr(13) & " Kayıt Yeniden Düzenlensin mi? ", vbQuestion + vbYesNo, "D İ K K A T") = vbYes Then
DoCmd.CancelEvent
Me.TxİzinBitis.BackColor = vbRed
Me.TxİzinBitis.SetFocus
Else
Set DB = CurrentDb
Set rs = DB.OpenRecordset("Tbl_İzinler")
With rs
.Edit
.FindFirst "[Tbl_İzinler]=" & idxizin
.Fields("İzinTarih") = Me.TxİzinTarih
.Fields("İzinPrsId") = Me.TxPersonelAra
.Fields("İzinTuru") = Me.TxİzinTuru
.Fields("İzinBaslama") = Me.TxİzinBaslama
.Fields("İzinBitis") = Me.TxİzinBitis
.Fields("İsBasi") = Me.TxİsBasi
.Fields("İzinYili") = Me.TxİzinYili
.Fields("İzinGun") = Me.TxİzinGun
.Fields("İzinYili1") = Me.TxİzinYili1
.Fields("İzinGun1") = Me.TxİzinGun1
.Fields("İzinNet") = Me.TxİzinNet
.Fields("İzinYol") = Me.TxİzinYol
.Fields("İzinHaftaSonu") = Me.TxHaftaSonu
.Fields("İzinNot") = Me.TxİzinNot
.Fields("İzinAdres") = Me.TxİzinAdres
.Update
End With
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Bilgiler Başarıyla Kaydedildi.", vbInformation, "İşlem Tamam"
TumDenetimlerPasif
DoCmd.OpenReport "Yillik_Muva", acPreview
Forms![frmizinraporu].Refresh
Forms!Frm_Ana![İzinli Olan Personel]![Liste_İzinli_olan].Requery
End If
End Select
Else
MsgBox "Bilgiler Başarıyla Kaydedildi.", vbInformation, "İşlem Tamam"
DoCmd.RunCommand acCmdSaveRecord
TumDenetimlerPasif
Forms![frmizinraporu].Refresh
Forms!Frm_Ana![İzinli Olan Personel]![Liste_İzinli_olan].Requery
End If
btnkaydet.Visible = False
btnDKaydet.Visible = True
End Sub
#1
