ActiveSheet.ShowDataForm !!

[Guest]

Hi there,

Can the DataForm ( called via ActiveSheet.ShowDataForm ) be displayed ready
for a New Record input instead of displaying the first Record ?

I have used a the Sendkey Method but can't get it to work .

Any Ideas ?

Regards.

 

[Tom Ogilvy]

Sub MyShowform()
Range("A1").Select
SendKeys "%w", False
ActiveSheet.ShowDataForm
End Sub

worked for me.

 

[Guest]

Thanks Tom,

Works for me too . I was sending the wrong characters !

Regards.

 

[Miroslav Balchev Balchev]

Sub find__criteria_cur_cell()
'To find ActiveCell.Value
Set MyData = New DataObject
MyData.SetText ActiveCell.Value
MyData.PutInClipboard
col_mir = ActiveCell.Column - 1
str_mir = "%c" & "{TAB " & col_mir & "}" & "^v" & "%n"
SendKeys str_mir
ActiveSheet.ShowDataForm
End Sub