Vraag : Compileer Fout „kan niet toewijzen om slechts bezit“ te lezen

Compileer Fout „kan niet toewijzen om slechts bezit "

Highlighted op

te lezen! btno = RecvKKL! btno

" codeBody " 
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:
van 
Private SubcmdMove_Click ()
    
Op Fout hervat daarna

    Command12.Enabled = Vals
    
    Option1.Enabled = Vals
    Option2.Enabled = Vals
    
    Moving_Rec (InputBox („ga het Aantal van het Memorandum in“))

Beëindig Sub


Privé SubMoving_Rec (lsno zoals Dubbel)

'Op Fout GoTo NGPErrPara:
  
Schemerige RsCounter als Nieuwe ADODB.Recordset
Schemerige BNo

Text1 (18) .text = lsno
  
'''''''''' Verbinding voor Mover.MDB- dossier voor het overbrengen van gegevens van Trant.MDb aan Mover.MDB
    Als RecvKKL_Cnn.State = 1 toen RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open „Provider=Microsoft.Jet.OLEDB.3.51; Gegevens Source=“ & App.Path &“ \ Mover.mdb; Straal OLEDB: Gegevensbestand Password=xxxxxxxxxxxxx "

''''''''' Lokale Recordset die met B_Detail verbinden
    
    Als RecvLCL.State = 1 toen RecvLCL.Close
        RecvLCL.Open „selecteren * uit B_Detail WAAR LsNo =“ & Text1 (18) .text & „en de Controle = 1“, adOpenKeyset bedriegt, adLockOptimistic
        
        
    Als RecvKKL.State = 1 toen RecvKKL.Close
        RecvKKL.Open „selecteren * uit B_Detail“, adLockOptimistic RecvKKL_Cnn, adOpenKeyset,

    Als RecvKKL! btno > 0 toen
        BNo = RecvKKL! btno

        Met RecvLCL
        
            .AddNew
        
            ! btno = RecvKKL! btno
            ! Wijze = RecvKKL! Wijze

Antwoord : Compileer Fout „kan niet toewijzen om slechts bezit“ te lezen

Waar wordt RecvLCL verklaard? Ik zie het niet overal, maar het kan een globale variabele zijn. Is het verklaard als ADODB.Recordset?
Andere oplossingen  
 
programming4us programming4us