04-12-2019, 01:18
Visual Basic
- Private Sub tablo_duzenle_Click()
- Dim Kayit As New ADODB.Recordset, SiraNo, ElGrp, ElSr, PrsSira, PrsID, GenSira, EGSNS As Long, GrpKd As String
- Kayit.Open "SELECT * FROM BOYAMA_RECETE_VERITABANI Order By ISLEM_SIRA, PROSES_ID, VER_GRUBU, MADDE ", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
- Kayit.MoveFirst
- Do Until Kayit.EOF
- SiraNo = SiraNo + 1: PrsSira = PrsSira + IIf(PrsID <> Kayit("PROSES_ID"), 1, 0): GenSira = GenSira + IIf((PrsID & GrpKd) <> (Kayit("PROSES_ID") & Kayit("VER_GRUBU")), 1, 0)
- EGSNS = IIf(PrsID <> Kayit("PROSES_ID"), 0, EGSNS) + IIf((PrsID & GrpKd) <> (Kayit("PROSES_ID") & Kayit("VER_GRUBU")), 1, 0)
- If PrsID <> Kayit("PROSES_ID") And GrpKd <> Kayit("VER_GRUBU") Then
- ElGrp = 1: ElSr = 1
- ElseIf PrsID = Kayit("PROSES_ID") And GrpKd = Kayit("VER_GRUBU") Then
- ElSr = ElSr + 1
- ElseIf PrsID = Kayit("PROSES_ID") And GrpKd <> Kayit("VER_GRUBU") Then
- ElGrp = IIf(Mid(Kayit("MADDE"), 1, 3) = "BOY", ElGrp, ElGrp + 1): ElSr = 1
- Else
- ElGrp = ElGrp + 1: ElSr = 1
- End If
- Kayit("ELIAR_PARTI_SIRA") = SiraNo
- Kayit("ELIAR_GRUP_SIRA_NO") = ElSr
- Kayit("ELIAR_GRUP_SIRA") = ElGrp
- Kayit("ELIAR_PROSES_SIRA") = PrsSira
- Kayit("ELIAR_MADDE") = Mid(Kayit("MADDE"), 1, 3) & PrsSira
- Kayit("ELIAR_GNL_SIRA") = GenSira
- Kayit("ELIAR_GRUP_SIRA_NO_SAYISI") = EGSNS
- PrsID = Kayit("PROSES_ID"): GrpKd = Kayit("VER_GRUBU")
- Kayit.Update
- Kayit.MoveNext
- Loop
- Kayit.Close: Set Kayit = Nothing
- End Sub
Prosedurunu kullanabilirsiniz.