Search results

hey. i have this code from awhile back: Public Function CalcHrsOneWk(DaysSelected As Byte, HrsPerDay As String) As String Dim lngHrsOnly As Long Dim varWkHrs, varWkMin, varTotHrsWk, varTotMinWk varWkHrs = Val(Left(HrsPerDay, 2)) * DaysSelected varWkMin = Val(Right(HrsPerDay...

can you give me a sample? :P

yeah or actually something that looks like this: If Not IsNull(Me.txtSearch) Then If strWhereSql = "" Then strWhereSql = "WHERE qryCallLogList3.CALLLOGCOMMENT Like '*" & Me.txtSearch & "*'" Else strWhereSql = strWhereSql & "AND qryCallLogList3.CALLLOGCOMMENT Like '*" &...

hi. is there a term or function within access that identifies if the given day is a weekend? cause i want to do something like: HourseWorked*Date(If weekend, 1.5) something like this.

hi, i have a combo box that is used to filter a sql statement, that combo box is from a table, i once saw a sample (can't find it anymore) that had the option to have an ALL or 0 choice so you can view everything or just the records with 0 or null on that field. how do i do that as an sql...

what do you mean? like search the contents of a memo field?

i see thanks anyway :)

but how bout just saying that you want to call all tags? let's say, by default, the text boxes combo box etc are disabled and locked, would it be possible to write something like: Private Sub cmdEdit_Click() Me.Tag = "GroupA" Enabled = true Locked = false this is just a sample. is it possible...

well what you want is a whole lot :P basically, when you want them to not be able to delete the database, you have to put the back end of the database where they can't access it, cause they're only supposed to use the front end anyway. in regards to entry deletion at the interface, that...

hi. i just realized a flaw in my database, i set that on dirty, certain fields would be auto filled with the current time and date, but since it's on dirty, every time someone makes a change the date and time field change too, what's the best way to remedy around this that it only populates the...

can you group a text box, a combo box etc? if so how? i tried but it only works with buttons on me for some reason. cause i have like 10 text boxes and 2 memo fields and i really am not into the whole idea of writing them individually to enable or lock. thanks for any assistance!

yay it works now. awesome! thanks so much man, i appreciate it.

well, good news is, the error earlier is gone, what i know have is a syntax error. syntax error (missing operator) in query expression 'SCHEDULEID In(,1)'

i just realized something, in the form there is already an strSQL so i changed it too strSQL2 and here's the debug: debug.Print strSQL2 SELECT SCHEDULEID, SCHEDSTATUS, SCHEDSTATUSDATE FROM tblSchedule WHERE SCHEDULEID & strItems; still getting too few parameters though.

Private Sub cmdSetStatus_Click() Dim strItems As String For Each varItem In Me.lstSchedule.ItemsSelected '/read the selected Item Id lngSchdulRecID = Me.lstSchedule.ItemData(varItem) strItems = strItems & "," & lngSchdulRecID Next varItem '/Drop the last comma strItems =...

strSQL = "SELECT SCHEDSTATUS, SCHEDSTATUSDATE FROM tblSchedule " _ & "WHERE SCHEDULEID & strItems;" hehe. sorry for that, typo too, but as you can see i already changed it still getting the few parameters error.

it works now, but no i get run-time error '3061` too few parameters, expected 1. it's on the Set rs = CurrentDb.OpenRecordset(strSqL) line

here's what i did to what you gave me, i cant seem to get it to work, i get error 1 or too few parameters Private Sub cmdSetStatus_Click() Dim strItems As String For Each varItem In Me.lstSchedule.ItemsSelected '/read the selected Item Id lngSchdulRecID =...

i tried the code you gave me but the: rs.("status") = Me.cboStatus2 rs.("date") = Date is red?

ok, so i have this code Private Sub cmdConfirm_Click() For Each varItem In Me.lstSchedule.ItemsSelected 'read the selected Item Id lngSchdulRecID = Me.lstSchedule.ItemData(varItem) 'update the fields in the record in the "tblSchedule" table strSQL = "SELECT tblSchedule.Status...