Üstatlara ve tüm üyelere selamlar.
yapmak istediğim proje gereği, 12 ay boyunca aynı kişileri ve hesapları ay başlığı altında tutacağım
ocak ayındaki kişileri şubat ayına daha sonra şubattan mart a gibi aktaracağım. mümkünmüdür.
aktarma detayları ve proje ektedir. "ayaktar" formunu açınca göreceksiniz
Tablo yapınız yanlış. Aylar için sadece ay id ve adını bulunduran bir tablo yapın. Ay içindeki hareketler için de ayrı bir tablo yapın yıl ve ay bilgisi olsun. Bu arada o ay için kaydedilecek kişiler de bu tabloda olsun. Sonra da bir güncelleştirme sorgusu yapın, kriter olarak açılan kutu verilerinize bağlı bir güncelleme sorgusuyla, aynı kişilere ait bilgilerin sadece ay id değerini 1 iken 2 yapıp tabloya eklesin. Yapmaya çalışın, başaramazsanız yardımcı oluruz.
Listboxtta listelemek istiyorsanız alttaki kodu deneyebilirsiniz.Tabii doğru anladıysam.
Sql = buraya ilgili alan adlarını giriniz ben isime kadar yazdım.
Private Sub Aktar_Click()
Dim Sql As String
Dim rs As Object
Dim cn As Object
Set rs = CreateObject("ADODB.Recordset")
Set cn = CreateObject("ADODB.Connection")
Sql = "select id,ap_id,replace(ay_id,'" & cmbay1.Column(0) & "','" & cmbay2.Column(0) & "') as [ay id],kisi_id,tcno,isim from hesap where [ay_id] = " & cmbay1.Column(0) & ""
If Me.cmbay1.Value = "" Or IsNull(cmbay1.Value) Then GoTo son
If cmbay2.Value = "" Or IsNull(cmbay2.Value) Then GoTo son
With cn
If .State = adStateOpen Then
.Close
Set cn = Nothing
End If
End With
Set cn = CurrentProject.Connection
With rs
If .State = adStateOpen Then .Close
.CursorType = adOpenDynamic
.CursorLocation = 3
.LockType = adLockOptimistic
.Open Sql, cn
End With
Liste15.ColumnCount = rs.Fields.Count
Liste15.ColumnWidths = "1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM"
Liste15.ColumnHeads = True
Set Liste15.Recordset = rs
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
Exit Sub
feraz üstat yanlış anlamışsınız.hesap tablosundaki ay_id:1olanları yine aynı tabloda ay_id=2 olacak şekilde yeniden kaydetmek istiyorum
strSQL = "UPDATE hesap " & _
"SET ay_id = " & cmbay2.Column(0) & " WHERE ay_id = " & cmbay1.Column(0) & ""
CurrentDb.Execute strSQL
Yukarıdaki kodu ekledim.
Private Sub Aktar_Click()
Dim Sql As String
Dim rs As Object
Dim cn As Object
Set rs = CreateObject("ADODB.Recordset")
Set cn = CreateObject("ADODB.Connection")
Sql = "select id,ap_id,replace(ay_id,'" & cmbay1.Column(0) & "','" & cmbay2.Column(0) & "') as [ay id],kisi_id,tcno,isim from hesap where [ay_id] = " & cmbay1.Column(0) & ""
If Me.cmbay1.Value = "" Or IsNull(cmbay1.Value) Then GoTo son
If cmbay2.Value = "" Or IsNull(cmbay2.Value) Then GoTo son
With cn
If .State = adStateOpen Then
.Close
Set cn = Nothing
End If
End With
Set cn = CurrentProject.Connection
With rs
If .State = adStateOpen Then .Close
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Sql, cn
End With
Liste15.ColumnCount = rs.Fields.Count
Liste15.ColumnWidths = "1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM"
Liste15.ColumnHeads = True
Set Liste15.Recordset = rs
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
strSQL = "UPDATE hesap " & _
"SET ay_id = " & cmbay2.Column(0) & " WHERE ay_id = " & cmbay1.Column(0) & ""
CurrentDb.Execute strSQL
Exit Sub
son:
MsgBox "Combolar bos olamaz", vbCritical
End Sub
Alttaki gibi değiştirin kod kısaldı.
Not comboların adlarını değiştirmiştim kolaylık olsun diye cmbay1 ve cmbay2 olarak.
Private Sub Aktar_Click()
Dim Sql As String
Dim rs As Object
Dim cn As Object
Set rs = CreateObject("ADODB.Recordset")
Set cn = CreateObject("ADODB.Connection")
If Me.cmbay1.Value = "" Or IsNull(cmbay1.Value) Then GoTo son
If cmbay2.Value = "" Or IsNull(cmbay2.Value) Then GoTo son
strSQL = "UPDATE hesap " & _
"SET ay_id = " & cmbay2.Column(0) & " WHERE ay_id = " & cmbay1.Column(0) & ""
CurrentDb.Execute strSQL
Sql = "select * from hesap"
With cn
If .State = adStateOpen Then
.Close
Set cn = Nothing
End If
End With
Set cn = CurrentProject.Connection
With rs
If .State = adStateOpen Then .Close
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Sql, cn
End With
Liste15.ColumnCount = rs.Fields.Count
Liste15.ColumnWidths = "1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM;1CM"
Liste15.ColumnHeads = True
Set Liste15.Recordset = rs
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
Exit Sub
son:
MsgBox "Combolar bos olamaz", vbCritical
End Sub