Private Sub PUANKONUSU_AfterUpdate()
Dim VeriTumu As String
VeriTumu = PUANKONUSU.Column(0)
Me.PUANI = Mid$(VeriTumu, InStr(VeriTumu, "(") + 1, InStr(VeriTumu, ")") - InStr(VeriTumu, "(") - 1)
End Sub
kod mehmetdemiral hocama aittir.
konu başlığından farklı sorular için yeni konu açınız