
初めまして。
問題:下記文で実行エラー91が発生します。
しようとしていること:
従業員の名前をクリックしたら、その月のレコードがなければ1日から末日までの行を自動で作成する。
Option Compare Database
Option Explicit
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Public Function GetSbfFormDescription1() As Form_f00_kkkkkf
Set GetSbfFormDescription1 = Forms!f00_kkkkk_WorkTime!subForm.Form
End Function
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Public Function SbfFormDescription1() As Boolean
SbfFormDescription1 = Me.GetSbfFormDescription1.RecordsetClone.RecordCount > 0
End Function
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Public Function AppendCalenderRow1()
Dim rsw As RecordsetWrapper
Dim dtmLoop As Date
' Dim rsA As DAO.Recordset2
' Dim fld As DAO.Field2
If Me.SbfFormDescription1 = False Then
→ With rsw.GetRecordsetClone(Me.GetSbfFormDescription1.Recordset)
.FindFirst ("[ID]=" & DateSerial(Me.cmb_year, Me.cmb_month.Value, 1))
If .NoMatch Then
For dtmLoop = DateSerial(Me.cmb_year, Me.cmb_month.Value, 1) To DateSerial(Me.cmb_year, Me.cmb_month.Value + 1, 0)
.AddNew
![ID] = Me.staff_list.Value & Format$(dtmLoop, "yymmdd")
![Employee] = Me.staff_list.Value
![Work_Date] = dtmLoop
![Work_Time] = "0"
![Over_Time] = "0"
![Work_Year] = Format$(dtmLoop, "YYYY")
![Work_Month] = Format$(dtmLoop, "MM")
.Update
Next dtmLoop
Else
End
End If
' Set rsA = Nothing
' Set fld = Nothing
End With
End If
Me.GetSbfFormDescription1.Requery
eh.TryToSaveRecord
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
includeファイルの文字コードに...
-
セッションが文字化け、エンコ...
-
文字化け変換方法
-
PostgreSQLからCSV形式でエクス...
-
VBAのコマンドボタンの文字列の...
-
テキストファイルから改行コー...
-
メッセージボックスで1025文字...
-
VBAでCSVをExcelに取り込む時に...
-
エクセルでの漢字、カタカナ、...
-
エクセルのCOUNTIFが正しくカウ...
-
ソースコードの1行が長いとき...
-
1行ごとに取得して、その改行...
-
VB.net テキストボックス半角文...
-
VB6 機種依存文字の変換
-
テキストボックスの回転
-
文字の入力で横バー上段、中断...
-
Excel関数「COUNTIF」で”文字”...
-
reuterの記事をbeautiful.soup....
-
C++で空Enterの入力を判...
-
jsp 改行コードで改行させて表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文字化け変換方法
-
PHPmailerでの添付ファイルの文...
-
PHP cURLでPOSTした値が文字化...
-
SQL Serverで文字コードUTF-8
-
日本語(マルチバイト)でのwor...
-
imodeメールのSubject部分の文...
-
「テキストテキスト」という文...
-
mb_eregについて
-
SJISからUTFに変換して...
-
SJISで取得した半角カナをUTF-8...
-
PostgreSQLからCSV形式でエクス...
-
PHPの文字化けについて教え...
-
PHPでのメール差出人名について
-
【PHP】日本語を実体参照符号化...
-
Shift-JISからUTF-8への変換が...
-
phpフォームで携帯へメール送信...
-
txtファイル作成の際に文字コー...
-
vodafoneが言う事ききません
-
文字コードを変換したURLを作成...
-
PHP + SQLite 文字化けについて
おすすめ情報