Yaptığınız bu program size çok teşekür ederim. Çalışmalarınızda başarılar dilerim.
Flex_Grid_Denemeleri
Sağolun, ileri seviye örnekler renk katıyor çalışmalarımıza.
Son Düzenleme: 23/05/2009, 23:08, Düzenleyen: mehmeser.
1. Yorumdaki örneği kullanamıyorum
nasıl yapacağım yardım edebiilirmisiniz
nasıl yapacağım yardım edebiilirmisiniz
@benbendedeilem
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ü
serkandiker, 06-05-2009 tarihinden beri AccessTr.neT üyesidir.
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
Konuyu Okuyanlar: 1 Ziyaretçi