Pytanie : Kompilować Błąd "Móc Read tylko własność"

Kompilować Błąd "Móc Read tylko majątkowy "

Highlighted na

! btno = RecvKKL! btno 

(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:

Private Okręt podwodny cmdMove_Click ()
    
Na Błąd Życiorys Następnie

    Command12.Enabled = Fałszywy
    
    Option1.Enabled = Fałszywy
    Option2.Enabled = Fałszywy
    
    Moving_Rec (InputBox ("Wchodzić Do the Notatka Liczba"))

Kończyć Okręt podwodny


Intymny Okręt podwodny Moving_Rec (lsno Kopia)

'Na Błąd Rozpoczynający NGPErrPara:
  
Ciemnawy RsCounter Jako Nowy ADODB.Recordset
Ciemnawy BNo

Text1 (18) .text = lsno
  
'''''''''' Związek Dla Mover.MDB kartoteka dla przelewanie dane od Trant.MDb Mover.MDB
    Jeżeli RecvKKL_Cnn.State = (1) Wtedy RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51; Dane Source=" & App.Path &" \ Mover.mdb; Dżetowy OLEDB: Baza danych Password=xxxxxxxxxxxxx "

''''''''' Lokalny Recordset B_Detail
    
    Jeżeli RecvLCL.State = (1) Wtedy RecvLCL.Close
        RecvLCL.Open "wybiórka * od B_Detail DOKĄD LsNo =" & Text1 (18) .text & "i Czek = (1)", przeciw, adOpenKeyset, adLockOptimistic
        
        
    Jeżeli RecvKKL.State = (1) Wtedy RecvKKL.Close
        RecvKKL.Open "Wybiórka * od B_Detail", RecvKKL_Cnn, adOpenKeyset, adLockOptimistic

    Jeżeli RecvKKL! btno > (0) Wtedy
        BNo = RecvKKL! btno

        Z RecvLCL
        
            .AddNew
        
            ! btno = RecvKKL! btno
            ! Tryb = RecvKKL! Tryb

Odpowiedź : Kompilować Błąd "Móc Read tylko własność"

Gdzie RecvLCL oznajmiać? I widzieć ono gdziekolwiek, ale ono móc globalny zmienna. Ono oznajmiać jako ADODB.Recordset?
Inne rozwiązania  
 
programming4us programming4us