Search:
Type: Posts; User: pnish
Search:
Search took 2.07 seconds.
-
Brilliant! That did the trick, thanks very much.
Cheers
-
I've previously used SQLCommandBuilder with SQL Server without issue. I'm trying to replicate that using OleDB against an Access 2007 database without success.
I'm using VB.Net, Visual Studio 2019...
-
ClosedXML is a wrapper for Microsoft's OpenXML library, specifically for creating Excel spreadsheets. I love it!
https://github.com/closedxml/closedxml/wiki
-
As far as I can see from the code the status of each of the drive parameters is returned in Drive_Info.Attributes(i).StatusFlags.
In the Combo1_Click event you'll see a line commented out. That...
-
One simple way to do it would be to set a flag in the label's MouseDown event and reset it in the MouseUp event. Use a timer to check the value of the flag and perform the appropriate action, eg...
-
I found a couple of bugs in the original code. Check out the attached project... it seems to be doing the right thing now. I had to comment out a line in the GetDriveInfo() function to make it...
-
Go to the ReadAttributesCmd() function in modSMART. In the For|Next loop there is a line of code commented - remove the comment and all should be well.
Cheers
Pete
-
It's OK, I found how to do it....
create index [PrimaryKey] on [tablename] ([field1],[field2],[field3]) WITH PRIMARY
Can I give myself rep points? :)
-
Greetings
I can create Indexes on an existing table by:
create index [index name] on [table name] ([field to index])
and execute this against an open ADO connection.
Can anyone show me how to...
-
CrystalReport1.ReportFileName = App.Path & "\" & "reports\Category.rpt"
CrystalReport1.SetTablePrivateData 0, 3, rstResult
CrystalReport1.Destination = crptToPrinter
CrystalReport1.Action = 1...
-
Your syntax looks OK. What version of Crystal are you using? Are you using the Crystal OCX? Does the error message provide any more specific information?
-
That's right, SUBSTRING will return 4 characters starting from position DATALENGTH(BARCODE) - 3), ie 7. So it will return the characters in positions 7, 8, 9 and 10
-
Does your DB have a RIGHT function (or similar)?
You could then do: RIGHT(BARCODE, 4) to return the last 4 digits
otherwise, if your SUBSTRING function behaves the way I think, try:...
-
No, probably not. I'ts just a habit of mine.
-
Underlay causes following sections to be placed underneath. For example:
Section1: This is text from section one
Section2: ------------------------------------> This is text from section two
...
-
It's because there's 2 records so each record is displayed on a separate line of the report. Usually you could set the 'Underlay Following Sections' property in the Section Expert and that would fix...
-
Is the Account field numeric or text?
Why are you doing this inside a loop?
It's a good habit to wrap field and table names etc in brackets, eg
StrSql = "DELETE FROM [" & StrSql & "] WHERE...
-
Try this:
Private Sub Form_Activate()
Me.WindowState = vbMaximized
End Sub
-
It's been a long time since I've used the Crystal OCX but I believe you need to do something like this:
In your report create a new formula, eg ReportHeading. In the formula just place two empty...
-
The main problem I see is that when a council has BOTH a residential and an office address, 2 records are returned. That's why they're not displayed on the same line.
You should also set the...
-
I'm just guessing here... but maybe the field used to hold the running sum is too small to display the whole result. Try making the field larger.
-
Here's the .hlp file that comes with ntsvc.ocx if that's any use to you...
-
-
If the text is always formatted in the same way you could try:
Label1.Caption = Mid$(List1.List(List1.ListIndex), instrrev(List1.List(List1.ListIndex), " ") +1)
-
Dim haystack As String
haystack = "This is my sentence, it is very good, infact it is great! it is."
Dim needle As String
needle = "it is"
Dim cnt As Long
Dim pos As Long
pos = InStr(1,...
-
A combo's Change event only fires when the text in the text box portion of the combo has changed. It works the same way as the Change event does for a normal text box so, as you've discovered, adding...
-
One way is to use the FileSystemObject.
In your project add a reference to Windows Script Host Object Model.
Dim fso As FileSystemObject
Set fso = New FileSystemObject
MsgBox...
-
Is this what you mean...
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case vbLeftButton
MsgBox "Left...
-
Show us a sample of what your text file looks like....
-
Did you look at the link that zynder provided. Using that example code, an .ini file will automatically be created if you use any of the Write... functions.
Check the link a couple of posts up....
-
You use DateDiff() the same way for time, eg Dim dTime1 As Date
Dim dTime2 As Date
dTime1 = "10:35"
dTime2 = "16:37"
MsgBox "The difference is " & DateDiff("s", dTime1, dTime2) & "...
-
Ditto Al42....
Nothing's broken.. it works exactly as it should. :ehh:
-
What do you mean 'it will not am or pm right'?
Format$("22:00", "hh:nn:ss AMPM") shows 10:00:00 PM
Format$("02:00", "hh:nn:ss AMPM") shows 02:00:00 AM
etc
-
Format$("22:25","hh:nn:ss AMPM")
-
Exactly... that's why I said to get rid of the loop. He wants to make sure that the textbox isn't empty before continuing and a loop isn't the best way to achieve this IMHO. As leinad31 said, you...
-
You really don't need a loop for that. Try using the LostFocus event to check that the textbox isn't blank, if it is display your message and set the focus back to the textbox, egPrivate Sub...
-
I realise that now... as I said, I misread the question.
-
Hmmmm... I may have misread the question. I was assuming he wanted Parity = 0 for an even number and Parity = 1 for an odd number. :o
-
If it's always binary then it's easy. If the righmost bit is zero, then the number is even, if it's a one then the number is odd. So all you need to do is extract the righmost digit from the string...
-
Are these strings always zeros and ones, ie binary? If so you could do this:
Dim parity As Integer
parity = CInt(Right$("1010101", 1))
|
Click Here to Expand Forum to Full Width
|