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\Engines\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]

Teşekkür

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:

 

[acar6783]

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\Engines\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.

Accesde coklu kayıt silmeye çalıştığımda aynı hatayı alıyorum fakat cevapa ne yazdığını anlayamadım ):

 

[FERAZ]

Accesde coklu kayıt silmeye çalıştığımda aynı hatayı alıyorum fakat cevapa ne yazdığını anlayamadım ):

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5\Engines\Jet 3.5 bu çıkmadı bende gifi takip ederseniz hedefe ulaşırsınız sanırım.

 

[tugkan]

Sayın @acar6783
Cevap aşağıdadır.

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\Engines\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.

 

[acar6783]

Teşekkürler,
Silme işlemini döngü ile yapınca o hatayı almıştım fakat aşağıdaki kodlarla sorunumu çözdüm .

Sorgu2 = "DELETE * FROM GiderRaporu WHERE YIL & '" & "|" & "' & AY = '" & Key & "' "

        Con.Execute (Sorgu2)