Search:

Type: Posts; User: ChrisE

Page 1 of 13 1 2 3 4

Search: Search took 0.07 seconds; generated 38 minute(s) ago.

  1. Replies
    48
    Views
    1,662

    Re: new project - DB help needed please

    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
  2. Replies
    48
    Views
    1,662

    Re: new project - DB help needed please

    I am working with the first .mdb you provided, did you change something in the .mdb
  3. Replies
    48
    Views
    1,662

    Re: new project - DB help needed please

    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
    ...
  4. Replies
    48
    Views
    1,662

    Re: new project - DB help needed please

    what is "sets completed" ?
    all 4 Cars with Own= YES ?

    what is "Generations completed" ?
  5. Replies
    48
    Views
    1,662

    Re: new project - DB help needed please

    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
  6. Replies
    48
    Views
    1,662

    Re: new project - DB help needed please

    @Shaggy Hiker

    It was not possible to send a PM to you.

    EDIT:
    thanks for the PM, problem solved
  7. Replies
    48
    Views
    1,662

    Re: new project - DB help needed please

    sounds like you need to set a Ref. to ... Microsoft ActiveX Data Objects 2.5 Library


    EDIT:
    Sam was faster
  8. Replies
    48
    Views
    1,662

    Re: new project - DB help needed please

    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...
  9. Replies
    48
    Views
    1,662

    Re: new project - DB help needed please

    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...
  10. Re: how to have a dynamic table in my form and full it from another form

    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

    ...
  11. Replies
    32
    Views
    3,426

    Re: Delete duplicate in access table

    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?
  12. Replies
    32
    Views
    3,426

    Re: Delete duplicate in access table

    change Min to Max in the SQL
  13. Replies
    32
    Views
    3,426

    Re: Delete duplicate in access table

    something like this..
    EmployeeID is an AutoIncrement


    DELETE *
    FROM Employees
    WHERE EmployeeID NOT IN
    (
    SELECT MIN(EmployeeID)
    FROM Employees
  14. Replies
    32
    Views
    3,426

    Re: Delete duplicate in access table

    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...
  15. Thread: rs.Edit (help)

    by ChrisE
    Replies
    34
    Views
    1,291

    Re: rs.Edit (help)

    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
  16. Replies
    659
    Views
    143,216

    Re: Hamilton 5x World Champion ?

    Rooting for Lando, I also think 3 Years Red Bull is enough.
  17. VS 2019 Re: Populating a Combobox display/value of states from text file

    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...
  18. Replies
    174
    Views
    7,410

    Re: Team Fuki: Pioneers in the Coding World

    Oh :eek:
    I thought Team Fuki was finished, wonder what ShaggySan has to say about this
  19. Replies
    174
    Views
    7,410

    Re: Team Fuki: Pioneers in the Coding World

    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
  20. Re: To get correct result using Regex.Replace or without using Regex.Replace

    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)
    ...
  21. Re: To get correct result using Regex.Replace or without using Regex.Replace

    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..

    ...
  22. Re: To get correct result using Regex.Replace or without using Regex.Replace

    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...
  23. Replies
    174
    Views
    7,410

    Re: Team Fuki: Pioneers in the Coding World

    here something for Team Fuki to watch



    Module Module1

    Sub Main()
    Console.Title = "Matrix Effect"
    Console.ForegroundColor = ConsoleColor.DarkGreen
    ...
  24. Re: Calculate the yield of Solar panels

    well in Post#1 he is talking about a Database...
  25. Replies
    25
    Views
    1,051

    Re: Look who is back...

    I think he smokes the same stuff :cool:
  26. Re: Calculate the yield of Solar panels

    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...
  27. Replies
    19
    Views
    1,627

    Re: Copy a column

    you obviously didn't try the code, take a look at the Split = Space
    here a Image of the results
    190184
  28. Replies
    19
    Views
    1,627

    Re: Copy a column

    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...
  29. Replies
    174
    Views
    7,410

    Re: Team Fuki: Pioneers in the Coding World

    wonder what you are smoking
  30. Replies
    174
    Views
    7,410

    Re: Team Fuki: Pioneers in the Coding World

    @Team Fuki
    first must learn..'paint the Fence ..Up Down' then 'side to side'
    https://www.youtube.com/watch?v=R37pbIySnjg
    before Programing anything
  31. Replies
    14
    Views
    1,176

    Re: Excel data lookup function fine-tuning

    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...
  32. VS 2022 Re: What is wrong with my code for Items.Add to a list box?

    this would be my first approach
    I used you sample file from Post#1



    get-entries:

    John
    Nancy
    Edward
  33. Replies
    42
    Views
    2,076

    Re: saving dot instead comma to database

    well what do you want the user to enter as a quantity ?
    12 or 12,34
  34. Replies
    42
    Views
    2,076

    Re: saving dot instead comma to database

    what do you want to calculate ?

    is this a correct value for quantity = 12,34
  35. Replies
    42
    Views
    2,076

    Re: saving dot instead comma to database

    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...
  36. Replies
    9
    Views
    1,047

    Re: DataTable Search Help Please

    dont know where your data comes from, but using OLEDB with SQL should/could be an option
  37. Re: Get Merge fields from Word document

    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
    ...
  38. Replies
    8
    Views
    918

    Re: Formatted 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...
  39. Re: VB.NET Search Multiple Files for String, Count Duplicates, Return Filename & Qty

    this will search in a Directory , you can add multiple words to search
    you need to add these Ref.
    Imports System.Text.RegularExpressions
    Imports System.IO
    Imports System.Text



    Private Sub...
  40. Re: How to determine 2 Values of Splitted String Array into One String Array for spec

    here a sample to Filter the Emails, not sure what the other part means is with ..Communication detail
    I just added it to find that and the next word



    Private Sub Button1_Click(sender As...
Results 1 to 40 of 500
Page 1 of 13 1 2 3 4



Click Here to Expand Forum to Full Width