Fråga : Sammanställa felet ”kan inte tilldela för att läsa endast egenskapen”,

Sammanställa egenskaps"

Highlighted för felet ”kan inte tilldela för att läsa endast på

! btno = RecvKKL! btno

> för

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

" codeBody " " class= undercmdMove_Click " för Private () På felmeritförteckning därefter Command12.Enabled = falskt Option1.Enabled = falskt Option2.Enabled = falskt Moving_Rec (InputBox (”skriv in memoen numrerar”)), Avsluta suben Privata underMoving_Rec (lsnoen som dubbelt) 'På felet GoTo NGPErrPara: Dunkla RsCounter som ny ADODB.Recordset Dunkla BNo Text1 (18) .text = lsno '''''''''' Anslutning för Mover.MDB sparar för överförande data från Trant.MDb till Mover.MDB Om RecvKKL_Cnn.State = 1 därefter RecvKKL_Cnn.Close RecvKKL_Cnn.Open ”Provider=Microsoft.Jet.OLEDB.3.51; Data Source=” & App.Path &” \ Mover.mdb; Spruta ut OLEDB: Databas Password=xxxxxxxxxxxxx ", ''''''''' Lokal Recordset som förbinder till B_Detail Om RecvLCL.State = 1 därefter RecvLCL.Close RecvLCL.Open ”väljer * från B_Detail VAR LsNo =” & Text1 (18) .text & ”och kontroll = 1”, lurar, adOpenKeyset som är adLockOptimistic Om RecvKKL.State = 1 därefter RecvKKL.Close RecvKKL.Open ”väljer * från B_Detail”, RecvKKL_Cnn, adOpenKeyset som är adLockOptimistic Om RecvKKL! btno > 0 därefter BNo = RecvKKL! btno Med RecvLCL .AddNew ! btno = RecvKKL! btno ! Funktionsläge = RecvKKL! Funktionsläge " klar "

Svar : Sammanställa felet ”kan inte tilldela för att läsa endast egenskapen”,

Var RecvLCL förklaras? Jag ser inte den någonstans, men det kan vara en global variabel. Har det förklarats som en ADODB.Recordset?