Recent content by uncleh

The method I am using now is as follows: 1.When the FE open check the version and run bat CODE: Dim VERN As String VERN = DLookup("[FVersionNumber]", "usysSoftInfo") If VERN <> "WMR.HK_V200801.111.SQL" Then MsgBox "炵緙追政衄陔唳掛.." & Chr(13) & "?尕緊,炵緙笭陔湖嶱!", vbInformation, "炵緙枑尨"...

=DLookUp("APN","Access_Agreement","Well_ID = " & Me.Well_ID & "") IF Well_ID Not text

Hi arnelgp, I found a small bug. If I pull it up from the bottom, it will error

I have change to If Len(sVal) >= 1 Then....can be delete if selete 1 record only

yeh!!There is another way to solve the problem. Thank you!!

arnelgp, It's great. The problem is finally solved. You help solve my problem every time. You're the best. Thank you!

Thank you very much! BUT if i Select 1 record, i cant be delete

thank you for reply. there has a button on main form

hi, all, I have a strange problem. I continuously select records in subform and then press button to delete, but the deleted records are not that I have selected. ie. i selected record no.1 to 3. will delete 1 and 3 skip 2 i selected record no.1 to 5. will delete 1,3,5,7,8 skip 2,4, Plus7,8...

you meane use temptable for calculation directly? i afraid lots of record will slowdown the calculat

noted with thank you

Qty ...thank you

need delete Itemexists otherwise the sum will be wrong. i am using below 4 steps complicated but work. whould you please help to simplify? Private Sub Command1_Click() '1..Markdown Itemexists(Itemexists = Yes in TempTable). CurrentDb.Execute "UPDATE TempTable LEFT JOIN Table1 ON...

thank you for reply I am really sorry, I am not very understanding how to do it.

@arnelgp.. attached is the sample thank you