Help me, help me !
-
Message Error show :Procedure declaration does not match description of event or procedure having the same name. This error message is showed in procedure Private Sub adcVT_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) With pRecordset If bThem Then Exit Sub If .EOF Or .BOF Then Exit Sub txtMaVT = IIf(IsNull(!MaVT), "", !MaVT) txtTenVT = IIf(IsNull(!TenVT), "", !TenVT) txtDVTinh = IIf(IsNull(!DVTinh), "", !DVTinh) txtMaVT_DVTK = IIf(IsNull(!MaVT_DVTK), "", !MaVT_DVTK) If !LoaiVT Then chkVattu.Value = 1 Else chkVattu.Value = 0 End If End With End Sub - I don't find procedure having same name when I check my project - I think there 's error dll in my pc but I don't know them. Can u help me what 's error dll or why error ? Thank u alot ! Baggio
-
Message Error show :Procedure declaration does not match description of event or procedure having the same name. This error message is showed in procedure Private Sub adcVT_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) With pRecordset If bThem Then Exit Sub If .EOF Or .BOF Then Exit Sub txtMaVT = IIf(IsNull(!MaVT), "", !MaVT) txtTenVT = IIf(IsNull(!TenVT), "", !TenVT) txtDVTinh = IIf(IsNull(!DVTinh), "", !DVTinh) txtMaVT_DVTK = IIf(IsNull(!MaVT_DVTK), "", !MaVT_DVTK) If !LoaiVT Then chkVattu.Value = 1 Else chkVattu.Value = 0 End If End With End Sub - I don't find procedure having same name when I check my project - I think there 's error dll in my pc but I don't know them. Can u help me what 's error dll or why error ? Thank u alot ! Baggio
Hi Baggio, I am just guessing here because the "smile" covered up part of the error. I think that I had this problem once. My error was located in this part of the code:
baggioberto wrote:
Private Sub adcVT_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
The problem was that I tried to type in the procedure's heading instead of selecting it from the drop down boxes. I had one letter wrong which generated the error. You can also get this error if you try to put code for a different procedure under the wrong heading. I know that I haven't explained this very well but I'm hoping that you can figure out what I'm trying to say. Good luck, Garner