Question : Compile Error "Can't Assign to read only property"

Compile Error "Can't Assign to read only property"

Highlighted on

            !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 Sub cmdMove_Click()
    
On Error Resume Next

    Command12.Enabled = False
    
    Option1.Enabled = False
    Option2.Enabled = False
    
    Moving_Rec (InputBox("Enter the Memo Number"))

End Sub


Private Sub Moving_Rec(lsno As Double)

'On Error GoTo NGPErrPara:
  
Dim RsCounter As New ADODB.Recordset
Dim BNo

Text1(18).text = lsno
  
''''''''''Connection For Mover.MDB file for transferring data from Trant.MDb to Mover.MDB
    If RecvKKL_Cnn.State = 1 Then RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\Mover.mdb;Jet OLEDB:Database Password=xxxxxxxxxxxxx"

'''''''''Local Recordset Connecting to B_Detail
    
    If RecvLCL.State = 1 Then RecvLCL.Close
        RecvLCL.Open "select * from B_Detail WHERE LsNo = " & Text1(18).text & " and Check = 1", con, adOpenKeyset, adLockOptimistic
        
        
    If RecvKKL.State = 1 Then RecvKKL.Close
        RecvKKL.Open "Select * from B_Detail", RecvKKL_Cnn, adOpenKeyset, adLockOptimistic

    If RecvKKL!btno > 0 Then
        BNo = RecvKKL!btno

        With RecvLCL
        
            .AddNew
        
            !btno = RecvKKL!btno
            !Mode = RecvKKL!Mode

Answer : Compile Error "Can't Assign to read only property"

Where is RecvLCL declared? I don't see it anywhere, but it may be a global variable. Has it been declared as an ADODB.Recordset?





Random Solutions  
 
programming4us programming4us