iki mesaj arasına ne gelmeli ?

[celoy]

Arkadaşlar iyi akşamlar ,kolay gelsin
iki mesaj kutusu arasındaki aşağıda yazılı kodlar arasındaki (...........) boşluktaki yerlere acaba ne gelmeli ,else yazdım olmadı,end yazdım olmadı,yardımcı olabilirmisiniz.


If IsNull([Etiket155]) Then
MsgBox "**DİKKAT** Aşağıda bulunan GÖNDERİLECEK TARİHİ,AMİR İSMİ, RÜTBESİ İLE MEMUR İSİMLERİNİ DOLDURMADAN YAZDIRAMAZSINIZ,LÜTFEN DOLDURUNUZ......"
Me.Etiket155.SetFocus
(........................)

IsNull ([Metin54])
MsgBox "**DİKKAT** ,AMİR İSMİ,GÖREVİ VE RÜTBESİ İLE MEMUR İSİMLERİNİ DOLDURMADAN YAZDIRAMAZSINIZ,LÜTFEN DOLDURUNUZ......"
Me.Metin54.SetFocus

(........................)
IsNull ([Metin57])
MsgBox "**DİKKAT** AMİRİN GÖREVİNİ VE RÜTBESİ İLE MEMUR İSİMLERİNİ DOLDURMADAN YAZDIRAMAZSINIZ,LÜTFEN DOLDURUNUZ......"
Me.Metin57.SetFocus
(........................)

IsNull ([Metin58])
MsgBox "**DİKKAT** AMİRİN RÜTBESİ İLE MEMUR İSİMLERİNİ DOLDURMADAN YAZDIRAMAZSINIZ,LÜTFEN DOLDURUNUZ......"
Me.Metin58.SetFocus
Else

On Error GoTo Err_Komut104_Click

 

[Taruz]

Merhaba..

Kod kümesini aşağıdaki ile karşılaştırın..

Private Sub Form_AfterUpdate()
If IsNull([Etiket155]) Then
MsgBox "**DİKKAT** Aşağıda bulunan GÖNDERİLECEK TARİHİ,AMİR İSMİ, RÜTBESİ İLE MEMUR İSİMLERİNİ DOLDURMADAN YAZDIRAMAZSINIZ,LÜTFEN DOLDURUNUZ......"
Me.Etiket155.SetFocus
End If
If IsNull([Metin54]) Then
MsgBox "**DİKKAT** ,AMİR İSMİ,GÖREVİ VE RÜTBESİ İLE MEMUR İSİMLERİNİ DOLDURMADAN YAZDIRAMAZSINIZ,LÜTFEN DOLDURUNUZ......"
Me.Metin54.SetFocus
End If
If IsNull([Metin57]) Then
MsgBox "**DİKKAT** AMİRİN GÖREVİNİ VE RÜTBESİ İLE MEMUR İSİMLERİNİ DOLDURMADAN YAZDIRAMAZSINIZ,LÜTFEN DOLDURUNUZ......"
Me.Metin57.SetFocus
End If
If IsNull([Metin58]) Then
MsgBox "**DİKKAT** AMİRİN RÜTBESİ İLE MEMUR İSİMLERİNİ DOLDURMADAN YAZDIRAMAZSINIZ,LÜTFEN DOLDURUNUZ......"
Me.Metin58.SetFocus
End If
End Sub

 

[beab05]

else ( diğer şart için)
.......
end if

 

[celoy]

Hocam İyi Akşamlar kolay gelsin
örneğinizi uyguladım ancak benim istediğim gibi olmadı, benim isteğim ise ekte bulunan tek tek formunda Yazdır dedğimde belirtilenmetinlerdeki yerler boş ise (ve hangisi olursa olsun) doldurulmadan yazdırmaya geçilmemisdir. örneği ekliyorum.

 

[beab05]

Aslında en güzeli for...each döngüsü oluşturmak ve tabii tag(im) kullanarak. Yazdır düğmesine koyarsınız kodu boş alan varsa hangi alan olduğunu söyler ve oraya focus yapar yoksa da yazdırır. For.. each.. next için örnekler forumda var...

 

[celoy]

Beab05 Hocam sizin belirttiğiniz,each ,tag(im) tam benim aradığım gibi olamsı için kullanıldığı anlaşılıyor,ancak aynen yazım formda aradım sonuç yok,acaba örnek üzerinde uygulamanız mümkünmü .

 

[beab05]

Merhaba;
Sizin yazdırma kodunun üstüne ekledim..

Dim ctl As Control
Dim strList As String
Dim strDelim As String
 
    strList = "": strDelim = ""
    For Each ctl In Me.Form
        If ctl.Tag = "bb" Then
            If IsNull(Me(ctl.Name)) Then
                strList = strList & strDelim & ctl.Name
                strDelim = vbCrLf
            End If
        End If
    Next ctl
    
    If strList <> "" Then
        MsgBox "Alttaki alanlar bo&#351; olamaz" & vbCrLf & strList, vbCritical, "Bo&#351; Alan"
        Me.SetFocus
    Else


    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "tek tek"
    
    stLinkCriteria = "[HAZIRLIK NO]=" & "'" & Me![HAZIRLIK NO] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.RunCommand acCmdRefresh
    DoCmd.PrintOut acPrintAll, , , acHigh, Me.Metin40
    
Exit_Komut104_Click:
    Exit Sub

Err_Komut104_Click:
    MsgBox Err.Description
    Resume Exit_Komut104_Click
    End If

Not: İlgili alnların tag(im) bb yapınız..

 

[celoy]

Hocam teşekkürler ,kodları yazdım ancak yine direk yazdırmaya geçti tabi ben sizin (Not: İlgili alnların tag(im) bb yapınız..) derken ne demek istedriğiniz anlamamdan kaynaklandı,şunu iyice benim anlayacağım şekilde yazarsanız sevinirim. :mrgreen:

 

[beab05]

Merhaba;
Dediğiniz gibi "im" leri boş bıraktığınız için olmuş, yoksa kod çalışıyor ben denedim.
Boş kalmasını istemediğiniz alanların özelliklerine girin orda "im" olacak oraya bb yazınız. Böylece koda göre im'i "bb" olan her alan kontrol ediliyor. Ayrı alanlar için ayrı im'ler verebilirsiniz ve tabii kodda da biraz değişiklik yapmak gerekir.

 

[celoy]

Hocam Her zamamki gibi mükemmelsiniz,çalıştı, ancak sadece küçük bir sorunum var ,mesaj çıktıktan sonra boş olan Metin kutusuna focuslamıyor,sadece mesaj listesinde metinleri gösteriyor,otomatik olarak boş kalan metine focuslaması mümkünmü ?

 

[beab05]

Merhaba;

Dim ctl As Control
Dim strList As String
Dim strDelim As String
 
    strList = "": strDelim = ""
    For Each ctl In Me.Form
        If ctl.Tag = "bb" Then
            If IsNull(Me(ctl.Name)) Then
                strList = strList & strDelim & ctl.Name
                strDelim = vbCrLf
                [COLOR="Red"][B]ctl.SetFocus[/B][/COLOR]
            End If
        End If
    Next ctl
    
    If strList <> "" Then
        MsgBox "Alttaki alanlar bo&#351; olamaz" & vbCrLf & strList, vbCritical, "Bo&#351; Alan"
          
    Else


    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "tek tek"
    
    stLinkCriteria = "[HAZIRLIK NO]=" & "'" & Me![HAZIRLIK NO] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.RunCommand acCmdRefresh
    DoCmd.PrintOut acPrintAll, , , acHigh, Me.Metin40
    
Exit_Komut104_Click:
    Exit Sub

Err_Komut104_Click:
    MsgBox Err.Description
    Resume Exit_Komut104_Click
    End If

Kırmızı kısmı ekleyin sadece...

 

[celoy]

Hocam k::