AccessTr.neT

Yaptığınız bu program size çok teşekür ederim. Çalışmalarınızda başarılar dilerim.

Sağolun, ileri seviye örnekler renk katıyor çalışmalarımıza.

1. Yorumdaki örneği kullanamıyorum
nasıl yapacağım yardım edebiilirmisiniz

Hocam yeni bir flex grid nesnesi eklerken lisansa ihtiyacınız var diye uyarı veriyor ekte dosyada bir flex nesnesi üzerinde iki farklı tablo oluşturmak istedim böyle bir şey mümkünmü

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

 

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