First Code Ever (1 Viewer)

[jsanders]

What was the first piece of VBA code you ever wrote?

I know mine.

 

[Rich]

Why write any when you can just copy somebody elses?

 

[FoFa]

print "Hello World"

 

[Kraj]

VBA...? Hmmm.... I think it was a DoCmd to open a form. I used it to make a custom button out of a label so I wasn't stuck with the ugly grey things for everything.

 

[ShaneMan]

txtName = [LastName] & ", " & [FirstName]

Was pretty proud of myself when I finally figured out to how to do it too!

 

[jsanders]

txtName = [LastName] & ", " & [FirstName]

Was pretty proud of myself when I finally figured out to how to do it too!

Yup, that was one of mie also.

But numero uno was

DoCmd.maximize

on the on activate event.

 

[jsanders]

Why write any when you can just copy somebody elses?

Yup, Copying code lets me spend alot more time experimenting with Queries.

 

[Ron_dK]

First code ever was :

Option Compare Database
Option Explicit


and the second was a macro I made which was converted to
a module :

Function McrImportCCC_copy()
On Error GoTo McrImportCCC_copy_Err

DoCmd.OpenTable "TbCCC", acNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings False
DoCmd.Echo True, ""
DoCmd.TransferText acImportDelim, "Ccc Import Specification", "TbCCC", "C:\ccc.txt", False, ""
DoCmd.Close acTable, "TbCCC"


McrImportCCC_copy_Exit:
Exit Function

McrImportCCC_copy_Err:
MsgBox Err.description
Resume McrImportCCC_copy_Exit

End Function

 

[ColinEssex]

print "Hello World"

C: Print "Hello Colin"

On a Sinclair Spectrum in the 1980's that belonged to a friend.

Col

 

[BarryMK]

DoCmd.AsktheForum

 

[Ron_dK]

I found this in one of my first Dbases :

Sub Combo254_AfterUpdate()
    ' Find the record that matches the control.
    Me.RecordsetClone.FindFirst "[Partij-ID] = " & Me![Combo254]
    Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

I didn't have a clue where it came from and what it did.

 

[jsanders]

DoCmd.AsktheForum

That's good Barry.

Still one of my favorites.

 

[Ron_dK]

That's good Barry.

Still one of my favorites.

Yes and in case of emergency :
DoCmd.QueryPatHartman

 

[reclusivemonkey]

10 CLS
20 PRINT "Luke is Cool!!!"
30 GOTO 20

When I was a lad, infinite loops were positively encouraged ;-)

 

[indesisiv]

begin
  Writeln('Hello, World !');
end.

Here is the first code that I wrote. Back when i had to write stuff in pascal.

Steve

 

[Ron_dK]

What was the first piece of VBA code you ever wrote?

I know mine.

Just out of curiosity JS, what was your last piece ?

 

[indesisiv]

Just out of curiosity JS, what was your last piece ?

My last one was:

msgbox "Goodbye world!"

Steve

 

[jsanders]

Just out of curiosity JS, what was your last piece ?

Now days i usually copy something from some other part of my stuff

You have to remember I use queries almost exclusively to control data.

But this is new.

Private Sub Status_AfterUpdate()
On Error GoTo Err_Status_AfterUpdate


    Dim stDocName As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.SetWarnings False

    stDocName = "QryServiceStatusAppend"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    
    Me.TblServiceStaus_subform.Requery
    
    DoCmd.SetWarnings True
    

Exit_Status_AfterUpdate:
    Exit SubErr_Status_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Status_AfterUpdate
    
End Sub

I use this to create a history of the changing status of a service order.

It runs an update query that gets its data from controls on the form and makes a new record. then it requeries the subform so you can see it.

Next I'm going to add a little code to disable the status controll after you click the complete (yes/no) control

 

[Kraj]

My last one was:

msgbox "Goodbye world!"

Steve

Don't you mean "Goodbye cruel world!"?

 

[indesisiv]

Don't you mean "Goodbye cruel world!"?

I was going to put that but thought that it sounded just a little bit to final.

Steve