Dosya paylaşım kilidi sayısı aşıldı.Hatası alıyorum.

[Orion1]

Merhabalar.
Aşağıdaki kodlar ile yaklaşık 36000 satırlı kayıtlı veriyi değiştiriyorum.KS6.Update
satırında aşağıdaki hatayı alıyorum.
Dosya paylaşım kilidi sayısı aşıldı.MaxLocksPerFile Kayıt defteri girdisini arttırın.
Sayın üstadlarımın ve arkadaşlarımın bu konuda önerisini bekliyorum.
If KS6.RecordCount > 0 Then
KS6.MoveFirst
Do While Not KS6.EOF
KS6("Blok") = ComboBox1.Value
KS6("Daire") = TextBox1.Value
KS6("Isim") = TextBox2.Value
KS6.Update
KS6.MoveNext
Loop
End If

[Haluk]

Bilgisayarınız size ne yapmanız gerektiğini söylemiş zaten ....

Kayıt defterinden ilgili anahtarın değerini arttırmanız gerekiyor.

Bu iş için, kayıt defterinde ( yani registry'de) aşağıdaki anahtarı bulun;

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5\Engi nes\Jet 3.5

Ekranın sağ tarafında MaxLocksPerFile değerini değiştirmeniz gerekiyor. Bu anahtarı seçip, sağ tıklayın ve çıkan menüden modify - değiştir 'i seçip burada "decimal" seçeneğini seçin ve kutudaki değeri değiştirin.

[Orion1]

Merhabalar.
Sayın hocam:İşlem tamamdır.Değer 9500'e ayarlıymış.
Yardımınız için teşekkürler ederim.Saygılar sunarım.:hey: