Recent content by btamsgn

Dear Everyone, Pls see and how to fix error sub c1tim() on command 4 of form as follows: Sub c1tim(tablea As String, loai As String, x1 As Integer, tableb As String) Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim i As Integer ' Bu?c 1: Tìm giá tr...

If If Type="T45" and No 18 not found then reDvi="" but my code is still wrong

I have 2 table "Tso45" va "Tso55". I took one table Tso45 to check result first for exmaple: latest records for T45: 1174:8,14,26,28,43,45 then next record 1,3,5,26,30,42,.. then number 26 appeared again then don't take the number because number 26 appeared in latest record in C3 already. AD455...

Dear Everyone, I really appreciate "Thank you" all of you supported me. Sometimes I confused by comments because I am not good English. So that I usually send with the attachment. I often wrote wrong code and output wrong result as follows: I want to update number with current column latest...

Hi everyone, Pls fix missing values from the 28th records to 45th into table tbltke(vitriD) from sub as belows: Sub dkepos45(tablea As String) Dim i As Integer Dim db As DAO.Database Dim rs As DAO.Recordset Dim dpos(1 To 45) As String Dim strSQL As String Set db =...

da fix thanh cong

textbox1=tkeso("All455", txthnay, txttongay,"T45") =>error 3021 at result = result & num & "," you tried do the function or not ?

file is not working as belows

Yes, I mean by mixing, Combination with the sub dayso.

Hi Gasman, The function belows : used to get values from c1 to c6 and no repetition. however after click then error 3021 at result = result & num & "," from the function below: Function tkeso(tablea As String, fromngay As Date, tongay As Date, loai As String) As String Dim db As DAO.Database Dim...

Hi Everyone, Pls fix error 3021 at result = result & num & "," from the function below: Function tkeso(tablea As String, fromngay As Date, tongay As Date, loai As String) As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim SQL As String Dim result As String Dim...

Dear arnelgp, after click button "dayso" with your public sub dayso(), all records as the same from tablea. ex. after click button "dayso" =>ouput records 1 10 21 25 32 39 or 1 3 22 27 38 40 exist from tablea already etc. *I want to insert new records no duplicate and different from tablea, but...

Dear everyone, I add a function dayso() in module1 and 1 button "dayso" .after click data insert into tableb. However data duplicate I want to insert records no duplicate both tablea and tableb. That records inserted tableb based on C1 to C6 from tablea. example: insert into...

and if I delete Private UsedValues As New dictionary after option explicit then error: error:

Hi Majp, If I add Private UsedValues As New dictionary after option explicit then error: