Search results for query: *

I have been tasked with documenting a legacy system that has a couple hundred Word documents as part of a mail merge routine. How do I view the data source for each document? The server is running Word 2007, although the documents were developed in an earlier version. I tried launching the...

Can we see the code, please?

I did it like this: bValidEmail = True strEmail = Text1.Text iX = InStr(1, strEmail, "@", vbBinaryCompare) If iX Then If InStr(iX + 1, strEmail, "@", vbBinaryCompare) Then strMsg = "Only 1 '@' for Email Address.&quot...

Instead of an asterisk, why don't you add a boolean column, called ChangedFromDefault or something like that, and set it to True when the value is changed? That way you won't have to strip out the asterisk. If you can't do that, you'll have to do a formula in Crystal that looks something like...

Are you trying to load it into, say, a picture box? Try: Picture1.Picture = LoadPicture("mypic.bmp")

You can also set the width at run time with something like this: flexgrid.ColWidth(1) = Me.TextWidth(String$(Len(MyString), "X")) That can get a little hairy, though, we usually just let the users stretch the darn thing :-)

That's all well and good, but after you use GetChunk to read your image into a variable, how do you use it? I have: lngLogoSize = rs(&quot;logo&quot;).ActualSize lngOffset = 0 Do While lngOffset < lngLogoSize varChunk = rs(&quot;logo&quot;).GetChunk(conChunkSize) varLogo = varLogo &...

This snippet allows only upeer/lowercase letters and the backspace key: Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case Asc(UCase(Chr(KeyAscii))) Case vbKeyA To vbKeyZ, vbKeyBack 'do nothing Case Else KeyAscii = 0 End Select End Sub