Search results

Hi, I've a job of sorting a number of tutors whose available dates with "The least Available Algorithm First" mechanism. The following is the example for tutors' availability dates TutorA Date1 TutorB Date9 TutorC Date11 TutorB Date5 TutorA Date11 TutorE Date3 TutorE Date17 TutorD...

No. nothing applied in the Format PROPERTY? See attached files

same display at immediate windows Immediate windows ? dTeach_PIP 12:00:00 AM However, the For ... Next below is still skipped For Each varItm In lstTAssignDt.ItemsSelected Debug.Print lstTAssignDt.ItemData(varItm) dTeach_PIP = "#" & Format(lstTAssignDt.ItemData(varItm), "mm/dd/yyyy") & "#"...

What do you mean by Control Set? I don't get the meaning of your message.

I've removed "Medium Date" from "General" tab of its table structure. However, I still got the following time stamp. Immediate windows ? dTeach_PIP 12:00:00 AM I wonder that the for .. next is skipped (Not PASSED) when an item is selected. Why? For Each varItm In lstTAssignDt.ItemsSelected...

I wonder that the for .. next is passed when an item is selected. Why?

My intention is to show the data (typed "Date") in forms/reports as "dd-mmm-yyyy". Do I need to set the date as "medium date" format in its table structure for this purpose? If not, how do I make the date displayed as "dd-mmm-yyyy" in forms/reports ? Thanks

I wish to have medium date of dd-mmm-yyyy format for DLookup function. Here you're the codes. tables tblTAssign_PIP tblTeachTT_PIP -------------------------------------------------- Option explicit Private iSession as integer Private Sub lstPIPYr_Click() Dim dTeach_PIP As Date...

I got the same error of Immediate windows ? dTeach_PIP 12:00:00 AM

I know it's US date format. Can I convert it to medium date format of "dd mmm yyyy"?

Hi, I've a listbox (lstTAssignDt) to hold a number of date and when a date is selected. It will be assigned to dTeach_PIP (type Date). ... For Each varItm In lstTAssignDt.ItemsSelected dTeach_PIP = Format(lstTAssignDt.ItemData(varItm), "dd\-mmm\-yyyy") Next varItm ...

Hi I intend to attach a word file, a pdf file to an Oultook with the following ACCESS VBA, I list partial scripts as follows and i don't know how I can attach more than more file to the Outlook mail. Set outMail = outApp.CreateItem(olMailItem) outMail.Attachments.Add _...

datasheet record? how? My listbox is working for ACCESS.

I've a listbox in which each item is examined for a condition. If the condition is met，the element will turn to green colour. What would be suggested? Thanks in advance. NT100

Hi, I've a listbox below. List0.RowSourceType = "Value List" List0.RowSource = "" List0.AddItem "1" List0.AddItem "2" List0.AddItem "3" How do I get the value of 2 if a user select 2, the 2nd row of the list0? Thanks in advance.

Fixed. Thanks

I intend to build a listbox to fill the value (e.g. Mr., Mrs, Ms, Miss) of a "title" field from an ACCESS table and then highlight it in the listbox. If !Title = "Dr" Then lstTitle.Selected(0) = True ElseIf !Title = "Mr" Then...

I'm sorry that the above suggestion doesn't work. I list the script for your inspection. Private Sub chkR1_1_Click() Dim dDtTeach1, dDtTeach2, dTeach1, dTeach2 As Date Dim sSelectDt1, sSelectDt2, sProgram As String Dim iRotation, iSession, iSCnt As Integer Dim iSession1...

I'm sorry for that i haven't responded right away. I need to test the suggested scripts even i read them and understand them. Now, I'm hurrying up to meet the deadline of other programming work. Anyway, i’ll response soon.

Hi, I'm working with DLookup. It works fine. However, when I run DLookup twice in sequence for different criteria. I got a value which is not present in the table. 1ST DLOOKUP Debug.Print "DLookup is "; DLookup(iSession1, "tblTAssign_FPA", "[AcademicYr] = " & txtApptYr.Value & " AND...