Sub Tamamla()
Dim i As Integer
strSQL = "SELECT * FROM AHK"
Set pozkayit = New ADODB.Recordset
pozkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With pozkayit
For i = 1 To 100
.Find "[is_no]=" & Me.is_no
.Fields("pz_no") = "E." & i
.Update
.MoveNext
Next i
End With
End Sub
If IsNull(Me.pz_no) Then
pz_no = "E.1"
Form.Requery
End If
kodunu aşağıdaki ile değiştircall tamamla