初めまして。
問題:下記文で実行エラー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を探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文字化け変換方法
-
Access VBA wiht文での実行時エ...
-
sjisの文字化けとその対処方法...
-
mb_send_mailでUTF8なメールを...
-
Gmailへのメール送信で文字化け
-
mb_convert_encoding で 一部の...
-
送信したメールのタイトルが無...
-
全角の”’¥を半角に変換したい
-
mb_ereg_replaceに関して
-
SQL Serverで文字コードUTF-8
-
SJISで取得した半角カナをUTF-8...
-
Accessの文字数を調べたい
-
VBAのコマンドボタンの文字列の...
-
メッセージボックスで1025文字...
-
ソースコードの1行が長いとき...
-
エスケープ文字の復帰(¥r)と...
-
文字の入力で横バー上段、中断...
-
PHPで変数から1行目だけを取得...
-
変数の中の改行コードをBRタグ...
-
最終行の改行について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文字化け変換方法
-
UTF8メールがLotus Notesで文字...
-
PHP+Postgres 「髙」が文字化け
-
phpMyAdmin内での文字化け
-
SJISで取得した半角カナをUTF-8...
-
PHPmailerでの添付ファイルの文...
-
SJIS→UTF-8変換後の文字化けに...
-
SQL Serverで文字コードUTF-8
-
includeファイルの文字コードに...
-
PHPのsendmailでの文字化けにつ...
-
mb_strposについて予定外の結果...
-
「あ」→「82A0」のようにshift-...
-
mb_send_mailの2重投稿を防止し...
-
multipart/form-dataの文字化け
-
PHPスクリプトでエンコードエラー
-
IMAP関数で取得した文字列の、...
-
メールのCCに複数のアドレスを...
-
メール題名の文字化け
-
自動返信メールへの画像添付
-
mb_regex_encodingでエンコード...
おすすめ情報