Search:
Type: Posts; User: ChrisE
Search:
Search took 0.12 seconds.
-
I changed the Sql for both, see below
Option Explicit
Private Sub Form_Load()
Call CountSets
-
well I get 1 Set Complete (Kings)
Option Explicit
Private Sub Form_Load()
Call CountSets
-
I think it would be best if you can upload just the new .mdb
EDIT: replace CountSets with the Version below and report back
Sub CountSets()
Dim cnn As New ADODB.Connection
-
I am working with the first .mdb you provided, did you change something in the .mdb
-
a Recordcount should be OK then, see changes in Blue
Sub CountSets()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim MyQ() As String
Dim ssql As String
...
-
what is "sets completed" ?
all 4 Cars with Own= YES ?
what is "Generations completed" ?
-
Zvoni was heading in the right direction.
here a revised way based on Zvoni's code in Post#23
Sub CountSets()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
-
@Shaggy Hiker
It was not possible to send a PM to you.
EDIT:
thanks for the PM, problem solved
-
sounds like you need to set a Ref. to ... Microsoft ActiveX Data Objects 2.5 Library
EDIT:
Sam was faster
-
if you want help you need to put more effort in than that "oneLiner" above. I gave you also a start in Post#3
did you try that SQL ???
do you know how to implement that SQL ???
Private Sub...
-
you need to count the result rows from your 'Select'
somthing like ...
SELECT Count(*) AS [Total Sets]
FROM (SELECT DISTINCT Table1.CardSet AS mySets From Table1) AS q;
the Result will...
-
well just like DDay I'm not sure what you want todo.
this line...
here is a sample to first read the Excel-Worbook and get the Sheetnames then
select a Sheet to get the Columnnames
...
-
I sure hope you are making Backups before testing, besides did you take action now in order in order in order in order in order to prevent duplicates?
-
change Min to Max in the SQL
-
something like this..
EmployeeID is an AutoIncrement
DELETE *
FROM Employees
WHERE EmployeeID NOT IN
(
SELECT MIN(EmployeeID)
FROM Employees
-
I think that this query will Delete ALL records with the lastname say 'Smith'
.Execute "DELETE from Custumers where Lastname IN (SELECT Lastname FROM Custumers GROUP BY Lastname HAVING...
-
you can also set a Default value for a Field in the Database Table
190612
this is an Access Database, you can see the Default value in the new Record
I set the default value to someText
-
Rooting for Lando, I also think 3 Years Red Bull is enough.
-
you could use OLEDB, but that might be an overkill, I like JMC's sample
here the OLEDB sample, the CharacterSet 65001 is for Germany, you can Sort with ASC or DESC
Private Sub...
-
Oh :eek:
I thought Team Fuki was finished, wonder what ShaggySan has to say about this
-
Team Fuki it is time for you to leave vbForums....
https://www.youtube.com/watch?v=YzaWAEhFWpw
you Finally Snatch the Pebble From Master Kan
-
regarding number 3
you might want to consider the StringBuilder
here a small example
Public Function cleanString(ByVal s As String) As String
Dim sb As New StringBuilder(s)
...
-
why not just try the code, you can/could have removed the +
here a Image of the MessageBox the space between the numbers are removed
190436
and to add a space between the Capital letters..
...
-
like this perhaps
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim s As String = "SamD 1 6 2 " & vbNewLine & "The Brown Fox Quickly...
-
here something for Team Fuki to watch
Module Module1
Sub Main()
Console.Title = "Matrix Effect"
Console.ForegroundColor = ConsoleColor.DarkGreen
...
-
well in Post#1 he is talking about a Database...
-
I think he smokes the same stuff :cool:
-
I made a Table of your Data in Access, then you can Group By Hour
this is the Sql
SELECT Birdy.Feld1 AS theDay, Sum(Birdy.Feld3) AS SumInHour, Hour([Birdy.Feld2]) AS x
FROM Birdy
GROUP BY...
-
you obviously didn't try the code, take a look at the Split = Space
here a Image of the results
190184
-
why so complicated, just open the Database Table and split the Column to a new Column
this is a sample with Access
Private Sub Command1_Click()
Dim db As DAO.Database
Dim rst As...
-
wonder what you are smoking
-
@Team Fuki
first must learn..'paint the Fence ..Up Down' then 'side to side'
https://www.youtube.com/watch?v=R37pbIySnjg
before Programing anything
-
here a sample, see if it helps
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
Dim xlApp As New...
-
this would be my first approach
I used you sample file from Post#1
get-entries:
John
Nancy
Edward
-
well what do you want the user to enter as a quantity ?
12 or 12,34
-
what do you want to calculate ?
is this a correct value for quantity = 12,34
-
in Post#1 your Quantity is set to Decimal ??
I think it should be Integer
this will create a Table in your Database, see if it helps
change D:\db2010.accdb to your Database
Private...
-
dont know where your data comes from, but using OLEDB with SQL should/could be an option
-
I didn't test this, but it should provide the names
'...
For Each MergeField As Word.MailMergeField In moApp.ActiveDocument.MailMerge.Fields
'Select the text
...
-
this should find anything Italic
Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
Dim strtItalic As Integer = -1
Dim lenItalic...
|
Click Here to Expand Forum to Full Width
|