Search results

Hi there, I have a text box where the text wraps as required. Each new line (following a carriage return) in the text box begins with a bullet point. I'd really like to get any wrapped text to indent appropriately, under the bullet. So far, this seems impossible without buying in a rich text...

I couldn't recreate that error message but I did realise that I was using the wrong field - Me.cboDescription should actually be Me.txtDescription . That might solve your problem.

The & symbol concatenates (joins together) strings and variables. A string (length of text) needs to be enclosed in within quotes, but variable (eg field value from a form) must not be. So the line "There are just " & Me.QTY & " of part " & Me.cboHorizonPartNo & " left. you may want to...

Well, I looked for it myself. Replace the If intAnswer part of your code with this: If intAnswer = vbYes Then ' Code to send email here DoCmd.SendObject acSendForm, "Stock Maintainence", acFormatRTF, _ "you@yourmail.com", , , "Stock low on " &...

Hi BlankReg. Because the only way that a new form is loaded is through those combo boxes, I've added the code given above to the code that you already have in AfterUpdate of each of the 2 comboboxes. (After DoCmd.FindRecord is called of course!) This has the desired effect, although wouldn't...

Ah sorry you're using a more recent version of access than me (I'm using 2000).

Not sure without seeing the database, and I won't be able to help with that for a while seeing as I'm away from my Access computer... but if you can upload the database here, or elsewhere I'll take a look.

I can only help a little bit I'm afraid. The code to send the email will include DoCmd.SendObject() , but I'm a newbie too and haven't quite deciphered how to send NoObject but still set the To, Subject and message text. But look into the help files and search the forum I'm sure the answers...

At it's simplest you could do this: If Me.QtyInStock <=10 Then Me.QtyInStock.BackColor = vbRed MsgBox("Stock Low!") Else Me.QtyInStock.BackColor = vbWhite End If Again, remember to change the control name!

Annoying how column 1 in a property is referred to as Column(0) in the underlying code.

Solved using alternative code, found here.

Hi I have an identical problem to the OP. I've tried using this code, but get a "Compile error: user-defined type not defined" on the highlighted line of code above. Any ideas? I'm using Access 2000

I have a field on a report which I am struggling to produce the right query for. I have a table - tblTillDept which consists of a 4 fields. The first is the PK, which is the number of a till department. The second - fourth fields are names of 3 different branches of the small garden centre I...

Brilliant, thanks very much! Should have thought to try that as i saw similar code elsewhere on another thread!

Too big to post here, please excuse the otherwise WIP nature of it: (Access 2000 database) Link Re-uploaded database (to same url) with easier to understand processes at 2.43pm GMT. You may find the newer version of frmSelPrint easier to work with!

I've looked closely at this and a hundred other threads on requerying subforms, but have not yet found the answer to this question. Hope someone can help! I have a main form: frmSelPrint, which contains two subforms in datasheet view: sbfrmPlantName and sbfrmPlantPrint. Ticking a checkbox on...

Here we go, this is the (commented) code that works for me. Hope it's not too obfuscated that others won't find it impossible to read or even adapt if they want to! Private Sub Notes_AfterUpdate() Dim sNotes As String, sEditedNotes As String Dim CurEolPos As Integer, NextNewLinePos As...

Thanks FizzyFish, that unfortunately maintains the problem of it continuing to add bullets on any successive edits. However I've nearly cracked it by breaking it down into a line at time and dealing with each line individually. Just need to stop it removing the last line! I'll post my solution...

Aaah yes, you're right. I did originally have the code you suggested, but of course every time a user updates the form, further bullet points are added! Really I need some kind of regex or wildcard expression to replace vbCrLf & [!•] but Replace() won't accept wildcards (bizarrely). I think...

Sorry found it on another page: Function StrCount(TheStr As String, TheItem As Variant) As Integer '------------------------------------------------------------------ ' PURPOSE: Counts the numbers of times an item occurs ' in a string. ' ARGUMENTS: TheStr: The string to be searched. ' TheItem...