Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: калькулятор
 
 автор: Мишок   (11.07.2011 в 16:48)   личное сообщение
 
 

есть калькулятор из Гетц. но что-то не получается его использывать :(
т.е. вставляет результат вычислений только со второго раза.
как правильно его использывать?

  Ответить  
 
 автор: Lukas   (11.07.2011 в 19:38)   личное сообщение
 
 

покажите образчик в 2000/2003 формате

  Ответить  
 
 автор: час   (11.07.2011 в 22:40)   личное сообщение
 
 

http://hiprog.com/index.php?option=com_content&task=view&id=251661644
http://hiprog.com/index.php?option=com_content&task=view&id=251661591
http://hiprog.com/index.php?option=com_content&task=view&id=616

  Ответить  
 
 автор: Lukas   (11.07.2011 в 22:52)   личное сообщение
 
 

И который из них от Гетца + Мишок?
:)

  Ответить  
 
 автор: час   (11.07.2011 в 23:11)   личное сообщение
 
 

из Гетц. но что-то не получается его использывать :(

  Ответить  
 
 автор: Мишок   (12.07.2011 в 11:24)   личное сообщение
 
 

это я все смотрел, Гетц красивый :)

  Ответить  
 
 автор: Дядя Федор   (12.07.2011 в 08:05)   личное сообщение
41 Кб.
 
 

У Гетца и пример есть.:) -> см.вложение

  Ответить  
 
 автор: Мишок   (12.07.2011 в 11:28)   личное сообщение
44 Кб.
 
 

Спасибо.
этого примера я не видел :(
лишнюю строку писал в вызове калькулятора, хотя по книге делал
еше такой вопрос
в примере при закрытии калькулятора крестом или Cancel в поле стирается значения. Как сделать чтобы принажатии Cancel значение не мелялось

  Ответить  
 
 автор: Дядя Федор   (12.07.2011 в 12:03)   личное сообщение
 
 


Private Sub cmdTryCalendar_Click()
    Dim s$
    s = Nz(adhDoCalendar(txtCalOutput), "")
    If Len(s$) > 0 Then txtCalOutput = s  'adhDoCalendar(txtCalOutput)
End Sub

  Ответить  
 
 автор: Мишок   (12.07.2011 в 12:24)   личное сообщение
 
 

не, не работает ругается на txtCalOutput

  Ответить  
 
 автор: Дядя Федор   (12.07.2011 в 13:07)   личное сообщение
62 Кб.
 
 

А у меня работает.

  Ответить  
 
 автор: час   (12.07.2011 в 14:00)   личное сообщение
 
 

Хорошо тебе, ДядяФёдор.

  Ответить  
 
 автор: Дядя Федор   (12.07.2011 в 14:15)   личное сообщение
 
 

А? Чё? А у кого не работает?
Что вы меня пугаете.
У мну работает а у вас не работает. Щас скачал свое же вложение - все работает.
Может вы калькулятор проверяли, а я код только для календаря дал (!!!!!!!).
Что б все - надо: (я думал что сами измените :()

Private Sub cmdTryCalculator_Click()
    Dim s$
    s = Nz(adhDoCalc(), "")
    If Len(s$) > 0 Then txtCalcOutput = s 'txtCalcOutput = adhDoCalc()
End Sub

Private Sub cmdTryCalendar_Click()
    Dim s$
    s = Nz(adhDoCalendar(txtCalOutput), "")
    If Len(s$) > 0 Then txtCalOutput = s  'adhDoCalendar(txtCalOutput)
End Sub




txtCalcOutput? txtCalOutput? - разные по гетцу. но похожие.

  Ответить  
 
 автор: Мишок   (12.07.2011 в 15:14)   личное сообщение
 
 

я понял что для календаря, попробывал переделать не заработало :( тогда тогда подставил в календарь, тот же результат . Видимо руки не оттуда растут:(

  Ответить  
 
 автор: Дядя Федор   (12.07.2011 в 15:34)   личное сообщение
 
 

Странно. А Аксес какой? И чЁ говорит - какая ошибка?

  Ответить  
 
 автор: Мишок   (12.07.2011 в 15:44)   личное сообщение
 
 

Ура, заработало
перезагрузка компа :))

А Аксес какой? 2003

  Ответить  
 
 автор: Дядя Федор   (12.07.2011 в 16:15)   личное сообщение
 
 

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList