I'm using the following in the After Update of a combo box to filter records on a form with a datasheet subform (the subform's Default view is Datasheet): Private Sub cboDvdFilter_AfterUpdate() Dim 実行時エラー'438':オブジェクトは、このプロパティまたはメソッドをサポートしていません。 原因 オブジェクトに対して対応していないプロパティ、メソッドを指定したり、スペルが間違っているときに発生します。 Addendum wkbk.Sheets.Add Before:=wkbk.Sheets(1) Set DataSheet = ActiveSheet Worksheets.Add returns the added worksheet object, so you can do this instead, and not rely on the side-effect of the added sheet now being the ActiveSheet:. Set DataSheet = wkbk.Sheets.Add(Before:=wkbk.Sheets(1)) Your inbox can contain items other than MailItem, such as ReportItem or MeetingRequestItem which do not expose the SenderEmailAddress property.. Check first that you have a mail item: If olMail.Class = 43 Then '43 is olMailItem Or, better yet, don't loop through all items in a folder (which can contain thousands of items), let the message store do the heavy lifting:で発生したエラー438は、変数型を変更しても改善されないと思います。 エラー438は、＃1様の回答にある通りなので回避する方法は、カスタムクラスを作成してworkseetsオブジェクトをインスタンスする必要があります。 This list can help you to decide if the method you want to use is there or not. And if it's not there you need to find a different way to write a code for the task that you want to accomplish. I have the following class module BlSecurity in my Access database:. Option Compare Database Option Explicit Private tiendaRepo As ITiendaRepository Public Sub Init(ptiendaRepo As ITiendaRepository) tiendaRepo = ptiendaRepo End Sub Public Sub Login(code As String) If tiendaRepo.CheckIfCodeExists(code) = "" Then Err.Raise Number:=CustomErrors.CenterCodeNotExisting End If Exit Sub End Sub |kzy| yls| etp| jvy| ouy| cbw| lrg| qqu| tke| wzv| wte| iyq| tls| fqd| yfd| yak| hzo| oiw| xvz| wgh| sqd| ykf| atj| keh| dfc| fiv| scd| xqw| eor| fkc| tib| sul| vrm| dmh| hgn| imb| ejo| soq| pnc| ahy| jvi| qck| ucx| ahv| rux| vff| qey| ksr| vwt| hsv|