Not very often, I jump up onto one of these tram, just to go for a very short distance along the tracks.
Tram has been a very convenient mean to get around from the place I worked.
If I go for MTR, it will get so long the way I go from the ground floor to the platform, which is a few stairs and tunnels to go.
If I go for bus, it will usually be loaded and it is not a comfort to sit on there when I am already exhausted from work.
Mini buses are good, as long as it is close to full load and the bus go straight to the destination. But sometimes it will gang around until 16 seats are loaded and it may sometimes take 10-15mins!
So, Trams go very frequent. In winter, when the air is cool, it is usually easier for me to get on to the trams. The only thing against it is time. In a rush, not at all.
So occasionally when I get myself free, go by tram is very enjoyable. The air and space let my mind free and I just watch the people on the street ganging around like a slow motion film.
Ding-ding~~Ding-ding~~ time passes... Let's get off~~
By the way, let's do some PS~~haha
Tuesday, December 29, 2009
Monday, December 28, 2009
Ad hoc Assignment - Simple MS Access DB Form
Option Compare Database
'This function will run when the "All" button is clicked.
Private Sub DisplayAll_Click()
Form_CustomerList.RecordSource = "select CustomerList.TGAcctNo, CustomerList.FieldworkStartDate, CustomerList.FieldworkEndDate , SurveyInfo.* from CustomerList inner join SurveyInfo on SurveyInfo.SurveyID = CustomerList.SurveyID"
End Sub
'This function will run when the "Search" button is clicked.
Private Sub DisplaySearch_Click()
'Check text field
If Len(AcctSearch) = 0 Or IsNull(AcctSearch) Or Len(AcctSearch) < 10 = True Then
MsgBox "Please a valid TG Account No."
Else
'Update query
Form_CustomerList.RecordSource = "select CustomerList.TGAcctNo, CustomerList.FieldworkStartDate, CustomerList.FieldworkEndDate , SurveyInfo.* from CustomerList inner join SurveyInfo on SurveyInfo.SurveyID = CustomerList.SurveyID where CustomerList.TGAcctNo like '" & AcctSearch & "'"
MsgBox Form_CustomerList.RecordsetClone.RecordCount & " Record(s) found."
End If
End Sub
'This function will run when the form is first opened.
Private Sub Form_Open(Cancel As Integer)
Form_CustomerList.RecordSource = ""
'Form_CustomerList.RecordSource = "select CustomerList.TGAcctNo, CustomerList.FieldworkStartDate, CustomerList.FieldworkEndDate , SurveyInfo.* from CustomerList inner join SurveyInfo on SurveyInfo.SurveyID = CustomerList.SurveyID"
End Sub
'This function will run when the "All" button is clicked.
Private Sub DisplayAll_Click()
Form_CustomerList.RecordSource = "select CustomerList.TGAcctNo, CustomerList.FieldworkStartDate, CustomerList.FieldworkEndDate , SurveyInfo.* from CustomerList inner join SurveyInfo on SurveyInfo.SurveyID = CustomerList.SurveyID"
End Sub
'This function will run when the "Search" button is clicked.
Private Sub DisplaySearch_Click()
'Check text field
If Len(AcctSearch) = 0 Or IsNull(AcctSearch) Or Len(AcctSearch) < 10 = True Then
MsgBox "Please a valid TG Account No."
Else
'Update query
Form_CustomerList.RecordSource = "select CustomerList.TGAcctNo, CustomerList.FieldworkStartDate, CustomerList.FieldworkEndDate , SurveyInfo.* from CustomerList inner join SurveyInfo on SurveyInfo.SurveyID = CustomerList.SurveyID where CustomerList.TGAcctNo like '" & AcctSearch & "'"
MsgBox Form_CustomerList.RecordsetClone.RecordCount & " Record(s) found."
End If
End Sub
'This function will run when the form is first opened.
Private Sub Form_Open(Cancel As Integer)
Form_CustomerList.RecordSource = ""
'Form_CustomerList.RecordSource = "select CustomerList.TGAcctNo, CustomerList.FieldworkStartDate, CustomerList.FieldworkEndDate , SurveyInfo.* from CustomerList inner join SurveyInfo on SurveyInfo.SurveyID = CustomerList.SurveyID"
End Sub
Thursday, December 17, 2009
RE Amemiya FD3S RX-7
Tuesday, December 8, 2009
Nissan Fairlady 350Z Nismo Tuned
I have started this kit back in 2007 Oct. I haven't been working on it at all as the sanding work for the body kit is really a demanding task. And afterall, I have got this kit stayed untouched over the years and worked on many some other things else.
From time to time, I have work little by little and finally, I have got the body replicated and it is now ready to be painted. Ihave decided to do it a pearl orange color and this paint is from Ricebox again. I hope I can still be working on this in December and hopefully get it done straight a way.
From time to time, I have work little by little and finally, I have got the body replicated and it is now ready to be painted. Ihave decided to do it a pearl orange color and this paint is from Ricebox again. I hope I can still be working on this in December and hopefully get it done straight a way.
Wednesday, December 2, 2009
Denizen Miniatures 1:43 Racing Figures (2)
Tuesday, December 1, 2009
Third Prize~!
E-P1 X Star Ferry Pier
Subscribe to:
Posts (Atom)