Господа прошу помочь, уже все перерыл - ничего не работает.
Если вместо ссылки на форму подставлять

 date() 

то все работает.

Private Sub Кнопка3_Click()

 '  CurrentDb.Execute ("DELETE table_ceh_birki.id_birki, table_ceh_birki.nomer, table_ceh_birki.date_now FROM table_ceh_birki WHERE (((table_ceh_birki.id_birki)=1))")
 ' Me.Requery
   
   Dim k
   Dim lk As Recordset
    
    k = Forms![Print_lable_ceh_birki]![kol]
    d = Forms![Print_lable_ceh_birki]![Data]
    f = CDate(d)
    Set lk = CurrentDb().OpenRecordset("table_ceh_birki")
    
  For i = 1 To k
  
   Set q = CurrentDb.Execute("INSERT INTO table_ceh_birki (nomer, id_birki, date_birka)SELECT " & i & " AS nomer_birki, '1' AS birki_id, f AS data_birki")
   
  
    Me.Requery
   
   
  Next i
 
  lk.Close


    DoCmd.OpenReport "lable_shtr_ceh_1", acPreview

End Sub

http://www.sql.ru/forum/1151058/vydaet-oshibku-slishkom-malo-parametrov-trebuetsya-1