Recent content by johnnychow

Thank you for your reply! I am a newbie, I don't know how to do and what is Allen's code, would you please get me an example. Thank you!!!!!!!!!!!!!!! Please.

Hi: I need help. the Members table has member's personal information including "first name" and "given name", it is possible to have more than one person with same first name and given name. When I am using the Form to enter members information, how to detect the members who has same first...

Hi, r.harrison thank you for your help, it is still not work, but I did some test, the result are enlightened, maybe can help you to solve my problem. thank!!!!!!!!!! I think it can't check the text box "" or not"" within the opened recordset, check it after the procedure done and do it on the...

this time has a error message: Run time error '3021': Ether BOF or EOF is true, or the current record has been deleted. Requested operation requires a current record.

Hi: Both are not work, just work on recordset with value not null.

Not work still stay null and uncalculable, can someone give me more help?

I tried many methods but never set $o.oo value on the null text box, how can I use the Null value text box as a calculable text box. Thank you!!!!!!!!!!!!! Private Sub CombYear_AfterUpdate() Dim strFundCode As String Dim i As Integer For i = 1 To 12 strFundCode = "GEN"...

After I ran the follow code, some text box are blank because there are no records but I want to set it in $0.00 in order to be a added text box, I tried (if isnull("text box") then Me.text box=Ccur(0)), but it doesn't work. Why? Somebody can help????Thank you!!!!!!!!!!! Private Sub...

I need one more help on this code. If the controls are null, I want to put $0.00 on the Null controls because I will add all the controls value up at the end. If the controls are null will cause the error. thank you!!!!!!!!!!!

thank you!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

For...Next statement and convert string to currency How can I combine three groups of 'For..Next" statements into one Statement and convert the "total" form string to currency. thank you!!! Private Sub CombYear_AfterUpdate() Dim conn As ADODB.Connection Dim rst As New ADODB.Recordset Dim...

Galaxiom, thank you! I am a new guy to learn VBA, thank you for your suggestion.

Private Sub Form_Load() Dim conn As ADODB.Connection Dim rst As New ADODB.Recordset Dim sql As String Dim total As Double Set conn = CurrentProject.Connection For i = 1 To 2 sql = "select sum([Offering Query].[Among]) from [Offering Query] where [Offering Query].[FundCode]='GEN'" & _ "and...

Hi! has a syntax error, can you help me most.

Hi: Please tell me what's wrong on the following, the beging date is ok but the end date is error. If put actual date instead, the statement will be ok. why? Dim LSQL As String LSQL = "Select * from [Offering] where [Offering].[OfferDate]" & _ "between #" & Format(Me("TxtBeginDate").Value...