Private Sub flxDates_Click()
'Check if user clicks on a valid date in appointments grid
'Entry (txtMonth) holds current month number
' (txtYear) holds current year
' (txtToday) holds currently selected date
Dim vRow As Long, vCol As Long, vDay As Long
Dim vDate As Date
Dim vText As String
FlexGridClick flxDates, vRow, vCol, vText 'return Row & Col (or whatever else)
vDate = 0 'set vDate to 0
Select Case fraMode
Case 1 'if DAY mode
vDate = txtToday 'set todays date
Case 2 'if WEEK mode
If vRow > 0 And vCol > 0 Then 'skip if either header rows
vDate = txtToday - Weekday(txtToday) 'calc first day of week
vDate = vDate + vRow 'calc selected date
End If
Case 3 'if MONTH mode
If vRow > 1 Then 'skip if either header rows
If vText <> "" Then 'if cell NOT blank then
vDay = Left(flxDates.TextMatrix(vRow, vCol), 2) 'fetch day No
If vDay > 0 Then
vDate = DateSerial(txtYear, txtMonth, vDay) 'set vDate to selected date
End If
End If
End If
End Select
If vDate <> 0 Then 'if vDate is valid then
MsgBox "Open another form here to create an appointment for " & Format(vDate, "d mmmm yyyy") & " and save to tablo1.", vbExclamation + vbOKOnly, "Create Appointment Form"
End If
End Sub
Merhaba arkadaşlar. bu uygulamada takvim üzerinde çift tıkladığımızda hata alıyorum. kaynağa girdiğimde ekteki kodla karşılaştım ama anlamadım. yardımcı olur musunuz. Teşekkür ederim
