代码之家 › 专栏 › 技术社区 › jcrizk

对象模块需要为接口“~”实现“~”

access-vba vba

jcrizk · 技术社区 · 6 年前

所以我试着按照这些问题作为指导:

每当我单击窗体上的控件时,都会出现以下错误:

这是我的界面:

iTransactionRecord

选项比较数据库选项显式公共属性get transaction_date()as date 端部特性 < /代码> 这是我的课: ledgerrecord 选项比较数据库选项显式实现ITransactionRecord 从接口私人交易日期私有属性get itransactionrecord_transaction_date()as date itransactionrecord_transaction_date=交易日期端部特性公共属性get transaction_date()as date 交易日期=交易日期端部特性公共财产出租交易日期(ByVal NewTransaction日期为日期) tttransaction_date=cdate(格式((newtransaction_date),“m/d/yyyy”)) 端部特性 < /代码> transferrecord 选项比较数据库选项显式实现ITransactionRecord 从接口私人交易日期私有属性get itransactionrecord_transaction_date()as date itransactionrecord_transaction_date=交易日期端部特性 How to use comparison methods between class object modules in VBA in a similar manner as VB.NET? Option Compare Database Option Explicit Public Property Get TRANSACTION_DATE() As Date End Property Option Compare Database Option Explicit Implements ITransactionRecord 'from interface Private tTRANSACTION_DATE As Date Private Property Get ITransactionRecord_TRANSACTION_DATE() As Date ITransactionRecord_TRANSACTION_DATE = TRANSACTION_DATE End Property Public Property Get TRANSACTION_DATE() As Date TRANSACTION_DATE = tTRANSACTION_DATE End Property Public Property Let TRANSACTION_DATE(ByVal newTRANSACTION_DATE As Date) tTRANSACTION_DATE = CDate(Format((newTRANSACTION_DATE), "m / d / yyyy")) End Property

1 回复 | 直到 6 年前

Mathieu Guindon 6 年前

Public Property Get TRANSACTION_DATE() As Date
End Property

在VBA中,公共接口成员名称中不能有下划线,因为这样会得到:

Private Property Get ITransactionRecord_TRANSACTION_DATE() As Date

而vba与这两个下划线混淆,它只需要一个下划线;在vba中,实现接口成员(或处理事件源的事件)的成员将是名为 [Source]_[MemberName] : _ 下划线字符在接口成员的签名中具有语法意义,至少在任何表示要由其他人实现的类中,都应该小心使用它。

将属性重命名为 帕斯卡命名法 TransactionDate 然后问题就消失了:

Public Property Get TransactionDate() As Date
End Property

Private Property Get ITransactionRecord_TransactionDate() As Date

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

5 月前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

5 月前

Eric · 我有邮政编码替换问题Excel VBA

5 月前

Chasester · VBA使用嵌套的DIV抓取URL

5 月前

jkp · 特殊字符复选标记

5 月前

Iron Man · 代码插入和复制到错误的工作表

5 月前

NoFafo · 将文本框放入数组进行格式化

5 月前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

5 月前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

6 月前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

6 月前