Search results

Hi I have a tedious task each month of creating a text file made up from data of other text files with the first and last line of each text file removed. What method exists to iterate through each of the text files in a directory, remove the first and last row in each file then against each...

I have a master form with a picture as the background with a timer event that fires every 5 minutes. I have a subform (a clock) with a timer event every second to update the text. How do I make the sub form background transparent so that I see the master form back ground? I did it this way so I...

Hi All I dont have room on my form to read a text box from left to right so can it be rotated? so i read the text from bottom up as you can do in word text boxes or excel cells? regards in advance

I have the following field which is stored as a string: [field3]"2006090111123500" the first 8 characters represent the date but backwards. I want to filter between dates. I have the following in the query grid: CallDate: DateValue(Right(Left([Field3],8),2) & "/" & Mid(Left([Field3],8),5,2)...

I have a query string with the following: StrWhere = " WHERE (((TblProduct.Description)" & " Like """ * Group * """)" & "AND ((TblProduct.CurrentProduct)=False));" However VB is putting in a space between the asterisk around group. so if I paste this in the qry grid it fails. how do i get...

I am trying to change the text on a label on a form I just opened. DoCmd.OpenForm ("FrmPBCliCheck") Forms!frmpbclicheck!LblTransferData.Value = "CPS=Y on line " & CLI & " Gamma Transfer Update= " & Y & " " & Z access complains at this. Help would be appreciated on how to reference the lbl...

Hi I have some code that opens a spreadsheet with the view of doing the following: DoCmd.TransferSpreadsheet acImport, , "TblTransferSpreadsheet", "D:\" & filename, True, "A1:J" & lngRows It reports back error 3251 operation not supported by this type of object. any ideas? if i copy the...

Hi all I am trying to make an on click event. As I type the keyword for example Dim. Dim goes red once I put in the space after it and the mouse goes back. I want : Dim CLIIn as String I dont understand this behaviour. I am on a client machine with a split database. Is it something I have...

Hi I need to write a function to convert pounds and pence to all pence. so therefore £10.55 becomes 1055 or £1.55 becomes 155. The function will not know if the number has a negative sign in front £-1.55 so it needs to allow for that so how do I get the digits only from the left and right of...

I have the following function: Public Function GetPeakPeriod(DateString As String, Time As String) As String Dim d1 As Date Dim Weekend As Boolean Dim TimeConv As String d1 = DateString If Len(Time) > 5 Then TimeConv = Left(Time, 2) & ":" & Mid(Time, 3, 2) & ":" & Right(Time, 2) Else...

Hi I have a field that is text which holds the month in form "oct" etc. I need to pass the numerical value of that month to a function so how do I create an expression that will change it (in this instance) to 09. kind regards in advance. peter

Hi I have to evaluate an is null. i have: ArrDate = Me.Arrival_Date.Value TodayDate = Now If (ArrDate Is Null) Then 'date field is empty do nothing else 'do something end if it halts by saying object not found so how do i correctly evaluate the if? regards Peter

I have a main form whose recordsource is a table that holds transaction data. the pk to filter is taken from another open form and i want to filter on the group that was selected with the group number being a fk in the ftran table as a number. the open event has the following code: Dim GroupID...

I have a form that takes a pk from another open form, what i would like is to show the transactional records for the pk. i have: Dim GroupID As String 'get groupid from open group deal form GroupID = Forms![group main screen form]!GroupID 'create sqlstring sql = "SELECT FTRAN.FtranID...

I have some code on the after update event of a combo, the combo gets a pk value of a group. Code: Forms![ftran query subform].RowSource = "SELECT FTRAN.FtranID, FTRAN.[AGENT-DSN], FTRAN.[GROUP-DSN], FTRAN.Date, FTRAN.Amount, FTRAN.[F Type], FTRAN.Cat From FTRAN WHERE (((FTRAN.[GROUP-DSN])=" &...

I want to use a select case statement but not sure how to evaluate part of the case: Select case Me.CBIndProduct.Column(2) Case ... Here the word commission is to be identified which is left 10 of Me.CBIndProduct.Column(2) case else end select the string for commission is longer than 10...

I have a database that has a field [country] that stores the numerical id of the country from a table of countries. The student table also has a field called [mother tongue] and it seems to me that this is duplication. I created a simple query based on a link table that tells me the country and...

Hi I have two recordsets one based on a query: 'query to get recordset of booked products per student StrSelect = "SELECT STUDENT.StudentID, COURSEBK.[COURSE-DSName]" StrFrom = "FROM STUDENT INNER JOIN COURSEBK ON STUDENT.StudentID = COURSEBK.[STUDENT-DSN]" StrWhere = "WHERE...

I have the following that appends data from one table to another: (I didnt print the sql string as you know what it does) If Not RstAppend.BOF And Not RstAppend.EOF Then 'if data in recordset do something DoCmd.SetWarnings False DoCmd.RunSQL StrQry The sql string appends from one table to...

I would like to create a dropdown list in each cell that is only visible on double click. if i look in the object browser for dropdown class it is greyed out how do i get it to use. regards peter