Flex_Grid_Denemeleri

1 2
12/03/2009, 08:39

birgizlidost

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

mehmeser

Sağolun, ileri seviye örnekler renk katıyor çalışmalarımıza.
04/10/2012, 11:07

accessman

1. Yorumdaki örneği kullanamıyorum
nasıl yapacağım yardım edebiilirmisiniz
02/11/2012, 14:12

serkandiker

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ü
10/06/2020, 16:13

ertungaaga

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
1 2