Close All Public oform1 oform1=Newobject("form1") oform1.Closable = .F. && Disable the window pop-up menu oform1.MinButton = .F. oform1.MaxButton = .F. oform1.Show READ EVENTS && Start event processing release oForm1 Return ************************************************** *-- Form: form1 (\imaginecorp\form11.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 02/02/07 01:25:12 AM * Define Class form1 As Form Top = 63 Left = 268 Height = 290 Width = 422 DoCreate = .t. ShowTips = .T. Caption = "MY ENTRY SCREEN" Name = "Form1" FontName = 'Lucida Console' FontSize = 9 Add Object command1 As CommandButton With ; Top = 19, ; Left = 318, ; Height = 27, ; Width = 54, ; Caption = "GO", ; TabIndex = 2, ; Name = "Command1" Add Object label1 As Label With ; AutoSize = .T., ; Caption = "Enter Name", ; Height = 17, ; Left = 5, ; Top = 25, ; Width = 55, ; TabIndex = 3, ; Name = "Label1" Add Object text1 As TextBox With ; Format = "K", ; Height = 23, ; Left = 80, ; SelectOnEntry = .T., ; TabIndex = 1, ; Top = 20, ; Width = 207, ; Name = "Text1" text1.autocomplete = 1 Procedure Load If Used("Name") Use In vName Endif **** Do not need to do this if there is an Index set exclusive on ************************************************ Select 0 Use c:\db\prg\Menu\mydatatable.Dbf ************************************************ INDEX ON vNAME TO Tag Name1 Set Order To Tag Name1 ************************************************ Endproc Procedure command1.Click CLEAR Thisform.Release CLEAR EVENTS DEACTIVATE WINDOW form1 SET ORDER TO DO STEPTWO &&&&& THIS LEADS TO MAIN SCREEN OF THE SELECTED RECORD return Endproc Procedure text1.Init If !Pemstatus(This,"nIDSelStart",5) This.AddProperty("nIDSelStart",0) Endif Endproc Enddefine PROCEDURE STEPTWO &&& moves program to an exisiting screen display of record